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