functor (Text : UnicodeString.Type->   sig     type text = Text.t     type index = Text.index     val compare :       ?locale:string ->       ?prec:UCol.precision ->       ?variable:UCol.variable_option -> text -> text -> int     val sort_key :       ?locale:string ->       ?prec:UCol.precision ->       ?variable:UCol.variable_option -> text -> string     val compare_with_key :       ?locale:string ->       ?prec:UCol.precision ->       ?variable:UCol.variable_option -> string -> text -> int     val search_with_key :       ?locale:string ->       ?prec:UCol.precision ->       ?variable:UCol.variable_option ->       string -> text -> index -> index * index     val search :       ?locale:string ->       ?prec:UCol.precision ->       ?variable:UCol.variable_option ->       text -> text -> index -> index * index   end