sig
  val code : char -> int
  val chr : int -> char
  val escaped : char -> string
  val lowercase : char -> char
  val uppercase : char -> char
  type t = char
  val compare : Char.t -> Char.t -> int
  val unsafe_chr : int -> char
end