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