(defn fib-seq [] ((fn fib* [a b] (cons a (lazy-seq (fib* b (+ a b))))) 0 1)) (take 20 (fib-seq))