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