Pervasives.in_channel -> Main.Type.OOChannel.char_input_channel