Net.TCP_client
val with_connect : Unix.sockaddr -> (Iostream.In.t -> Iostream.Out.t -> 'a) -> 'a
Use Lwt to connect over TCP