`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 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`