sig
  type t
  type floatable = t
  val of_float : float -> floatable
  val to_float : floatable -> float
  type sexpable = t
  val sexp_of_t : sexpable -> Sexplib.Sexp.t
  val t_of_sexp : Sexplib.Sexp.t -> sexpable
end