let main host port () : unit Deferred.t =
  Tcp.with_connection (Tcp.to_host_and_port host port) connect