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 compare : t -> t -> int
  val equal : t -> t -> bool
  external unsafe_chr : int -> char = "%identity"
  module Ascii :
    sig
      val is_digit : char -> bool
      val is_hex_digit : char -> bool
      val hex_digit_value : char -> int
      val lower_hex_digit : int -> char
      val upper_hex_digit : int -> char
      val is_valid : char -> bool
      val is_upper : char -> bool
      val is_lower : char -> bool
      val is_letter : char -> bool
      val is_alphanum : char -> bool
      val is_white : char -> bool
      val is_blank : char -> bool
      val is_graphic : char -> bool
      val is_print : char -> bool
      val is_control : char -> bool
      val uppercase : char -> char
      val lowercase : char -> char
    end
end