gistfile1.clj

(defn backoff-seq
  ([xs]
     (backoff-seq xs 0))
  ([xs backoff]
     (lazy-seq
      (try (if-let [xs (seq xs)]
             (cons (first xs) (backoff-seq (rest xs) (Math/floor (/ backoff 2))))
             nil)
           (catch MyExceptionHere e
             (Thread/sleep (* backoff 1000))
             (backoff-seq xs (* backoff 2 )))))))