         (.pack)
         (.show))))
 
+(defn initialize-console []
+  "Sets up display loop for console output"
+  (let [task (proxy [TimerTask] []
+               (run [] (println (req-map-counts))))]
+    (. (new Timer) (scheduleAtFixedRate task (long 0) (long 1000)))))
+
 (defn -main [concurrencyArg reqsArg url]
   (let [requests    (Integer. reqsArg)
         concurrency (Integer. concurrencyArg)

      (.get (future (.invokeAll pool tasks)))
      (.shutdown pool)))

(defn on-draw
  "Draws the canvas based on the data in req-map"
  [dst]

       (binding [*applet* this]
       (on-draw this)))))

(defn initialize-graphics [width height]
  "Sets up GUI output via Processing"
  (let [pb-applet   (create-pb-applet width height)
