`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 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 enum : unit -> char BatEnum.t val range : ?until:char -> char -> char BatEnum.t val ( -- ) : char -> char -> char BatEnum.t module Infix : sig val ( -- ) : char -> char -> char BatEnum.t end val print : 'a BatInnerIO.output -> Char.t -> unit val compare : BatChar.t -> BatChar.t -> int val equal : BatChar.t -> BatChar.t -> bool val hash : BatChar.t -> int val ord : char BatOrd.ord module Incubator : sig module Comp : sig type t = char val compare : t BatOrd.comp end module Ord : sig type t = char val ord : t BatOrd.ord end module Eq : sig type t = char val eq : t BatOrd.eq end end external unsafe_chr : int -> char = "%identity" external unsafe_int : char -> int = "%identity" end`