                             {:query-params
                              (merge access-token
                                     {:fields "created_time,description,id,permalink_url,picture,title,embeddable,format"})})) true)]
+               (when (mod c 10)
+                 (log/debug "...page" c))
                (let [{:keys [data paging]} page
                      {:keys [next]} paging
                      next-data (concat a data)]

    (try
      (with-open [in (io/input-stream uri)
                  out (io/output-stream file)]
        (io/copy in out)
        (when-let [img (ImageIO/read file)]
          [(.getWidth img) (.getHeight img)]))
      (finally (fs/delete file)))))

(defn coerce-time

      (let [{:keys [app-id app-secret page-id]} facebook
            tags (atom (load-tags! database bucket-segments default-tags))
            md-keys (set (db/list-keys database metadata-bucket))
            _ (log/debug "Fetching records...")
            records (->> (fetch app-id app-secret page-id)
                         (filter :embeddable)
                         (map scrub)
