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