functor (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