Mutils.Cmp
val compare_list : ( 'a -> 'b -> int ) -> 'a list -> 'b list -> int
val compare_lexical : ( unit -> int ) list -> int