                (fn [client]
                  (info "Closing connection to "
                        (select-keys opts [:host :port]))
-                 (prn client)
                  (close client))
                {:size                 (:pool-size opts)
                 :block-start          (:block-start opts)

           :socket (DatagramSocket.)
           :host host
           :port port))
  (send! [this line]
    (let [bytes (.getBytes line)
          length (count line)
          addr (InetAddress/getByName (:host this))
          datagram (DatagramPacket. bytes length addr (:port this))]
      (.send (:socket this) datagram)))
  (close [this]
    (.close (:socket this))))


                                                (float (:metric event))
                                                (int (:time event))])
                                     "\n")]
                     (send-line client string)))))))
