module Mark: sig .. end
sig
end
type t
val create : unit -> t
unit -> t
val equals : t -> t -> bool
t -> t -> bool