module type S = sig .. end
sig
end
type t
val compare : t -> t -> int
t -> t -> int
val show : t -> string
t -> string