sig   external code : char -> int = "%identity"   val chr : int -> char   val escaped : char -> string   val lowercase : char -> char   val uppercase : char -> char   val lowercase_ascii : char -> char   val uppercase_ascii : char -> char   type t = char   val compare : Char.t -> Char.t -> int   val equal : Char.t -> Char.t -> bool   external unsafe_chr : int -> char = "%identity" end