functor (Text : UnicodeString.Type->   sig     type text = Text.t     class input_line :       UChar.t #OOChannel.obj_input_channel ->       [text] OOChannel.obj_input_channel     class output_line :       ?sp:separator ->       UChar.t #OOChannel.obj_output_channel ->       [text] OOChannel.obj_output_channel   end