sig
type t = char
val is_whitespace : char -> bool
val is_uppercase : char -> bool
val is_lowercase : char -> bool
val is_uppercase_latin1 : char -> bool
val is_lowercase_latin1 : char -> bool
val is_latin1 : char -> bool
val is_digit : char -> bool
val is_symbol : char -> bool
val is_letter : char -> bool
val is_newline : char -> bool
val of_digit : int -> char
val chr : int -> char
val escaped : char -> string
val lowercase : char -> char
val uppercase : char -> char
val compare : t -> t -> int
val enum : unit -> char Extlib.Enum.t
val range : ?until:char -> char -> char Extlib.Enum.t
val ( -- ) : char -> char -> char Extlib.Enum.t
external code : char -> int = "%identity"
val t_of_sexp : Sexplib.Sexp.t -> t
val sexp_of_t : t -> Sexplib.Sexp.t
val print : 'a Extlib.InnerIO.output -> t -> unit
external unsafe_chr : int -> char = "%identity"
external unsafe_int : char -> int = "%identity"
end