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