sig type t val compare : Extlib.Interfaces.OrderedType.t -> Extlib.Interfaces.OrderedType.t -> int end