(ns fib
  (use (erlang :only (>/2))))

(defn+ fib (n)
  (cond
    ((> 1 n) n)
    (:else (+ (fib (- n 1))
              (fib (- n 2))))))

(defn+ main ()
  (lists/map fib [0 1 2 3 4 5 6 7 8 9 10]))