sig
  val to_lower : Uucp.uchar -> [ `Self | `Uchars of Uucp.uchar list ]
  val to_upper : Uucp.uchar -> [ `Self | `Uchars of Uucp.uchar list ]
  val to_title : Uucp.uchar -> [ `Self | `Uchars of Uucp.uchar list ]
end