functor (Config : ConfigInt.Type) (Text : UnicodeString.Type->   sig     type text = Text.t     val lowercase : ?locale:string -> text -> text     val uppercase : ?locale:string -> text -> text     val titlecase : ?locale:string -> text -> text     val casefolding : text -> text     val compare_caseless : text -> text -> int   end