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