(ns fibonacci)

(defn fib [n]
  (cond
    (= n 0) 0
    (= n 1) 1
    :else (+ (fib (- n 1))
             (fib (- n 2)))))

(defn -main []
  (println "Fibonacci sequence:")
  (doseq [i (range 10)]
    (println (str "fib(" i ") = " (fib i)))))