                          ct))
                      (partition-work n threads)))]
        (.await latch)
-       (reduce #(+ %1 (deref %2)) 0 res))))+       (reduce #(+ %1 (deref %2)) 0 res))))


(def DATEFORMAT (SimpleDateFormat. "yyyy-MM-dd.HH:mm:ss"))

(def *from* "foo@lolz.dom")
(def *to* "bar@lolz.dom")

(defonce *counter* (atom 0))

(defn reset-counter! []
  (reset! *counter* 0))

(def *logger* (agent nil))

(defn log* [x s]
  (let [s* (format "%s %s"

     (let [date (.format DATEFORMAT (Date.))]
       (dotimes [x n]
         (smtp-send host port (make-fixture from to))
         (swap! counter inc)
         (Thread/sleep delay))
       n))
  ([host port from to n delay threads]
