Simplify roman utf8

thanks a lot, I do something like Uunf (uunf.Uunf)

Uunf_string.normalize_utf_8 `NFD
… (* filter predicate (fun u -> `Mn != Uucp.Gc.general_category u) *)
Uunf_string.normalize_utf_8 `NFC