sig
  module type Type = CaseMap.Type
  module Make :
    functor (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
end