?onclose:(unit
->
unit)
->
Pervasives
.out_channel
->
Netchannels
.out_obj_channel