Prelude.TOSTRING
(sig type t val to_string : t -> string end).
(sig type t val to_string : t -> string end)
type t
val to_string : t -> string
val compare : t -> t -> int