Pervasives.out_channel -> Main.Type.OOChannel.char_output_channel