sig
type rational = int64 * int64
type srational = int32 * int32
val float_of_rational : int64 * int64 -> float
val float_of_srational : int32 * int32 -> float
val string_of_rational : int64 -> int64 -> string
val string_of_srational : int32 -> int32 -> string
end