class type ['a] obj_input_channel = object .. end
['a]
object
end
method close_in : unit -> unit
unit -> unit
method get : unit -> 'a
unit -> 'a