(* Character operations *)

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