sig   type t = float   val compare : float -> float -> int   val to_string : float -> string   val of_string : string -> float option end