functor (Config : ConfigInt.Type) (Text : UnicodeString.Type->   sig     type text = Text.t     exception Prohibited of UChar.t     exception Bad_bidi     type profile =         [ `Iscsi         | `Mib         | `Nameprep         | `Nodeprep         | `Resourceprep         | `Saslprep         | `Trace ]     val stringprep : profile -> text -> text   end