gistfile1.clj

;; The original definition
(rec-cat s [2 1] (map + s (next s)))

;; Expanding out
(let [s# (atom nil)]
  (reset! s# (lazy-seq
               (let [s @s#]
                 (lazy-cat
                  [2 1]
                  (map + s (next s)))))))