sig
  type t
  val compare : Comparator.Pre.t -> Comparator.Pre.t -> int
  val t_of_sexp : Sexplib.Sexp.t -> Comparator.Pre.t
  val sexp_of_t : Comparator.Pre.t -> Sexplib.Sexp.t
end