(ns fibonacci)

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

(defn -main
  [& args]
  (let [n (if (seq args)
            (Integer/parseInt (first args))
            10)]
    (println "Fibonacci of" n "is" (fib n))))