fib.clj

(defn fib [n]
  (cond 
    (< n 0) (throw (IllegalArgumentException. "fib argument must be plus number."))
    (= n 1) 1
    (= n 2) 1
    :else (+ (fib (- n 2)) (fib (- n 1)))))

(loop [x 1]
  (if (< x 10) 
    (do
      (println (fib x))
      (recur (inc x)))))

(print (fib -1))