sig
  type t
  val of_float : float -> Floatable.S.t
  val to_float : Floatable.S.t -> float
end