module Price: sig .. end
sig
end
type t = private float
float
include Float_intf.S
include Twsable.S