Clojure fibonacci

core.clj

(ns flyr.core)

(defn fib [n]
  (if (= 0 n)
    0
    (if (= 1 n)
      1
      (+ (fib (- n 1)) (fib (- n 2))))))

(defn -main
  "The document string"
  []
  (->
    (loop [i 0]
      (->
        (fib i)
        (println))
      (if (< i 10)
      (recur (+ i 1)))))
  )