           {:success false :next-url nil :data nil :reason "Empty Response"}
           (do
             (let [data (parse-string-strict (:body response) true)
-                  _ (log/sometimes 0.1 (log/info (:headers response) ))
+                  _ (log/sometimes 0.01 (log/info (:headers response) ))
+                  credit-state (select-keys (:headers response) [:X-RateLimit-Reset :X-RateLimit-Remaining])
+                  ; _ (log/infof "R/L %s" credit-state)
                   next-url (find-next-url
                               (or (-> response :headers :link)
                                   (-> response :headers :Link) ;; json encoder causes this when executed remotely
                               ))]
               {:success true
                 :next-url next-url
-                :data data}))))
+                :data data
+                :credits credit-state}))))
     (catch Throwable t
       (do
         (throw+ t)
         {:success false :reason (.getMessage t) :repos [] :next-url nil }))))
 
-
-(defn pick-bee []
-  (let [hive (wcar  {:pool {} :spec {:host "localhost" :port 6379}}
-              (car/smembers "oss.worker.bees"))]
-        (rand-nth hive)))
-
 (defn assign-worker-bee
-  [task param & {:keys [bee-picker] :or {bee-picker pick-bee}}]
-  (let [bee (bee-picker)
-        url (format "http://%s/%s/%s" bee task param )]
-      (log/info url)
+  [task bee param]
+  (let [url (format "http://%s/%s/%s" bee task param )]
+      ; (log/info url)
      (when-let [result (try
                         (dd/timed {} "worker.bee.call" {:service "oss"}
                           (-> (client/get url)

          :user-does-not-exist
          (let [{:keys [next-url data]} response]
            (when-let [user-info (select-keys data user-fields)]
              (log/warn (format "%s -> %s" user-login user-info))
              user-info)))))

(defn expand-project

                         (sql/build)
                         (sql/format :quoting :ansi))))]
      ; (log/warn (format "Found projects: %d" (count projects)))
      projects)))

(defn insert-users
  [conn coll]
