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