sig
  val error_when_null_denominator_flag : bool Pervasives.ref
  val normalize_ratio_flag : bool Pervasives.ref
  val floating_precision : int Pervasives.ref
  val approx_printing_flag : bool Pervasives.ref
  val gcd_int : int -> int -> int
  val num_bits_int : int -> int
  val compare_int : int -> int -> int
  val sign_int : int -> int
  val length_of_int : int
  val biggest_int : int
  val least_int : int
  val monster_int : int
  val max_power10_int : int
  val sprint_full_length_int : int -> string
end