class ['a] poly_in_channel : ('a, 'b) IO.input -> object end
'a
('a, 'b) IO.input -> object end
method get : unit -> 'a
unit -> 'a
method close_in : unit -> unit
unit -> unit