NFKC case folding.

NFKC Case folding

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

fold u is u's NFKC_Casefold property.