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