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