 
 (defn -main [& args]
   (let [port (Integer/parseInt (or (System/getenv "PORT") "8080"))]
-        (run-server application {:port port :join? false})))
-
-
+    (track-word "bacon")
+    (run-server application {:port port :join? false})))

(ns baconator.server.handler
  (:use compojure.core
        ring.util.response
        org.httpkit.server

      (let [tweet (parse-string (str payload) true)
            lower (.toLowerCase (:text tweet))]
        (when (:coordinates tweet)
          (let [coordinates (:coordinates (:coordinates tweet))
                user (:screen_name (:user tweet))]
            (send-checkin {:user user
