class output_deflate :?level:int -> Netchannels.out_obj_channel ->Netchannels.out_obj_channel
let ch' = new output_deflate ch: Data written to ch' is deflated
and written to ch. Use this for compressing data while writing.
Note that ch isn't closed when ch' is closed.