gistfile1.clj

(defn page!
  [init-res req]
  (go
   (loop [coll (into (sorted-set-by #(compare (:id %1) (:id %2))) init-res)]
     (let [req (update-in
                req [:query-params]
                merge
                {:max_id (:id_str (first coll))})
           res (<! (async-request req))
           new-coll (into coll res)]
       (if (= (count new-coll) (count coll))
         coll
         (recur new-coll))))))