   ;; WorkTeam: Your actual team
 
 
-(go
-  (as-> (<! (genome/<get-all-active-klickster-profiles)) $
-    (reset! people-atom $)
-    ))
+(defn set-people-to-all-active-klicksters [atm interval]
+  (go-loop []
+    (reset! atm (<! (genome/<get-all-active-klickster-profiles)))
+    (println "Downloaded" (count @atm) "Klicksters") 
+    (<! (timeout interval))
+    (recur)))
+
+(set-people-to-all-active-klicksters people-atom (* 5 60 1000))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; filter macro test

                           (println "Error while filtering")
                           (prn e)))
        nil->Out (fn [by-floors]
                 (into {}
                       (for [[k v] by-floors]
                         [(if (nil? k) "Out" k) v])))]
    (some->> all-the-people
             (group-by :KeyscanStatus)
             (nil->Out)  ; mark the OUT ones for better processing!


            [cljs.tools.reader :refer [read-string]]
            [cljs.js :refer [empty-state eval js-eval]])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]])
  (:import goog.History))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
