      #(do
         (Thread/sleep 1000)
         (process-new-locations)
-        ))))
-  )
+        )))))
 
 (defn get-histogram
   [num-bins]

      (println "setting up a daemon")
      (daemon))
    (when (contains? args "--hist")
      (let [num-bins (if (= \- (-> params second first))
                       5
                       (read-string (second params)))]
        (print-histogram num-bins)))

      (println "using live services")
      (use-live))

    ;; load logfile
    (when-not (and process? (first params) (= \- (-> params first first)))
      (println "load file")
      (parse-logfile (first params) log-parser))

    ;; post processing
    (when process?
      (println "processing ...")
      (process-new-ips)
      (process-new-locations)
