sig
  val is_ascii_hex_digit : Uucp.uchar -> bool
  val is_hex_digit : Uucp.uchar -> bool
  type numeric_type = [ `De | `Di | `None | `Nu ]
  val pp_numeric_type : Format.formatter -> Uucp.Num.numeric_type -> unit
  val numeric_type : Uucp.uchar -> Uucp.Num.numeric_type
  type numeric_value = [ `Frac of int * int | `NaN | `Num of int64 ]
  val pp_numeric_value : Format.formatter -> Uucp.Num.numeric_value -> unit
  val numeric_value :
    Uucp.uchar -> [ `Frac of int * int | `NaN | `Num of int64 ]
end