open UPervasives

module type Type = sig
  type t = uchar
  val code : uchar -> int
  val chr : int -> uchar
  val escaped : uchar -> string
  val lowercase : ?locale:string -> uchar -> uchar
  val uppercase : ?locale:string -> uchar -> uchar
  val titlecase : ?locale:string -> uchar -> uchar
  val compare : uchar -> uchar -> int
  val eq : uchar -> uchar -> bool
  val is_printable : uchar -> bool
  val unsafe_chr : int -> uchar
end
