reports2.clj

(defn download-report [client date]
  (try
    ;; snip
    (catch Exception e
      (Thread/sleep 10000)
      (download-report client date))))

(defn upload-to-s3 [file]
  (try
    ;; snip
    (catch Exception e
      (Thread/sleep 10000)
      (upload-to-s3 file))))

(defn -main []
  (doseq [[date client] requests]
    (let [file (download-report client date)]
      (upload-to-s3 file))))