         ([] (step))
         ([accum] (step accum))
         ([accum frame] 
+          println
           (let [current-time (System/currentTimeMillis)
                 elapsed-cycle-time (- current-time @cycle-start-time)]
             (if (> elapsed-cycle-time period)
               (let [framerate (quot 1000 (/ elapsed-cycle-time @frame-count))]
-                (log/info "Framerate:" framerate)
+                (println "Framerate:" framerate)
                 (reset! cycle-start-time (System/currentTimeMillis))
                 (reset! frame-count 0))
               (swap! frame-count inc))

  (comp
    (map eval-state)
    (map mode/pixel-map)
    ;(log-framerate 1000)
    ))

(defn -main
  [& args]
  (let [command-chan (chan (buffer 10))
        pixel-chan (chan (buffer 1)) ;render-pipeline)
        pixel-pusher-chan (fc/start-pushing-pixels pixel-chan)
        render-loop-chan (render-loop command-chan pixel-chan)]
    (.addShutdownHook (Runtime/getRuntime)
      (Thread. (fn []
                  (log/info "Recieved shutdown signal. Halting...")
                  (>!! command-chan {:type :stop}))))
    (<!! render-loop-chan)
    (<!! pixel-pusher-chan)))

(log/info "Alive and kicking!")

      (case (:type command)
        :stop nil
        :render (do
                  (>! render-chan state)
                  (recur state))
        (recur state)))))

