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