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