sig type t = unit val string_of : t -> string val of_string : string -> t val compare : t -> t -> int val t_of_sexp : Sexplib.Sexp.t -> t val sexp_of_t : t -> Sexplib.Sexp.t val print : 'a Extlib.InnerIO.output -> t -> unit end