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

(defn main ()
  (set i 0)
  (while (< i 10)
    (print (fib i))
    (set i (+ i 1))))