class ['a] channel_of_stream : 'a Stream.t -> ['a] obj_input_channel
['a]
'a Stream.t ->
obj_input_channel