sig external code : char -> int = "%identity" val chr : int -> char val escaped : char -> string val lowercase : char -> char val uppercase : char -> char external unsafe_chr : int -> char = "%identity" end