sig
  type t = BatUChar.t
  exception Out_of_range
  val char_of : t -> char
  val of_char : char -> t
  external code : t -> int = "%identity"
  val chr : int -> t
  val eq : t -> t -> bool
  val compare : t -> t -> int
  type uchar = t
  val int_of : uchar -> int
  val of_int : int -> uchar
  val unsafe_chr : int -> t
end