sig external code : char -> int = "%identity" 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 external unsafe_chr : int -> char = "%identity"