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