Pervasives.in_channel -> OOChannel.char_input_channel