sig type t = string val compare : string -> string -> int end