UChar.t #OOChannel.obj_input_channel ->
[ULine.Type.text] OOChannel.obj_input_channel