OOChannel.channel_of_stream
Convert stream to obj_input_channel
method close_in : unit -> unit
method get : unit -> 'a