           (-> (str "Lichess is rate-limiting us, waiting 30s...\n")
               color/cyan
               console/print-err)
-          (Thread/sleep 30000)
-          (-games-url->games url max-per-page page))
+          (Thread/sleep even-nicer-downloader-waiting-time)
+          (-games-url->games url max-per-page page total-pages))
 
         ; else
         (throw e)))))

    [fr.tedoldi.lichess.game.retriever.console :as console]))

(def ^:private nice-downloader-waiting-time 300)

(defn username->user [url username]
  (let [url (str url "/user/" username)]

            e))))))


(defn- -games-url->games [url max-per-page page total-pages]
  (-> (str "Downloading page " (inc page) "/" total-pages ".\n")
      color/cyan
      console/print-err)

  (when (pos? page)
    (Thread/sleep nice-downloader-waiting-time))

  (try
    (-> url
        (client/get {:query-params
