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 : '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