     ;(map #(rfm->umm-collection context %) (metadata-cache/all-cached-revision-format-maps context)))
   (let [[t1 rfms] (u/time-execution (metadata-cache/all-cached-revision-format-maps context))]
     (debug "Get rfms" t1)
-    (let [[t2 collections] (u/time-execution (lazy-seq (u/map-n-all #(rfms->umm-collections context %) n rfms)))]
+    (let [[t2 collections] (u/time-execution (map #(rfms->umm-collections context %) (partition-all n rfms)))]
       (debug "Convert to collections" t2)
       collections)))
 

                         (apply concat humanized-rows))]
          (debug "write " (count rows) "rows to csv")
          (csv/write-csv string-writer rows)
        (debug "Write humanizer report of " (count humanized-rows) " rows"
               "In batches of size " n
               "get-all-collections:" t1
               "get humanized rows:" t2


(defn- rfms->umm-collections
  [context rfms]
  (map #(rfm->umm-collection context %) rfms))

(defn- get-all-collections
  "Retrieves all collections from the Metadata cache"
