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