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