class input_inflate :Netchannels.in_obj_channel ->Netchannels.in_obj_channel
let ch' = new input_inflate ch: Reading data from ch' inflates
      data read from ch. Use this for uncompressing data while reading.
      Note that ch isn't closed when ch' is closed.
