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

(defn main []
  (do
    (println "Fibonacci sequence:")
    (for [i 0 10]
      (println &(str (fib i))))))