(fn [n]
(loop [cnt 2 out [1 1]]
(if (>= cnt n)
out
(recur (inc cnt) (conj out (+ (first (reverse out)) (second (reverse out)))))
)
)
)

Clojure and Lisp have something of so beautiful... I don't know what it is, but is magical.