sig val fold : Uchar.t -> [ `Self | `Uchars of Uchar.t list ] end