class input_channel :
?onclose:unit -> unit -> Pervasives.in_channel ->
in_channel, which must be open.
pos_in reflects the real position in the channel as
Pervasives.pos_in. This works for both seekable and
close_in also closes the underlying
onclose is called after the
in_channel has been closed.