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

(defn parse-args
  [params]
  (metrics/reset-metrics)
  (let [args (set params)]
    ;; setup
    (when (contains? args "--aero")
      (println "using aerospike")

     #(do
        (Thread/sleep 1000)
        (process-new-locations)
        )))))

(defn get-histogram
  [num-bins]
