?onclose:(unit
->
unit)
->
Pervasives
.in_channel
->
Netchannels
.in_obj_channel