val get_tcp_sock_factory : int -> unit -> out_channel * in_channel