gistfile1.clj

(defn page!
  [init-res req page-size]
  (reduce
    (fn [coll n]
      (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))
          (reduced coll)
          new-coll)))
    (into (sorted-set-by #(compare (:id %1) (:id %2))) init-res)
    (range 50)))