;; Originally from Josh Comer

(defn fib [n]
  (if (<= n 1)
    n
    (let [a (future (fib (dec n)))
	  b (fib (- n 2))]
      (+ @a b))))

(println (fib 25))

; this is needed to avoid long wait
(shutdown-agents)