The following is a function which, when called without arguments, creates an incrementing sequence of numbers where iterating from n to n+1 takes about 2^n seconds.
(defn slow-nums
  ([]
    (slow-nums 0 0))
  ([n sleep-for]
    (Thread/sleep (* sleep-for 1000))
    (cons n (lazy-seq (slow-nums (inc n) (Math/pow 2 n))))))