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))))))