fun pathological atom situation

cas.clj

(def a (atom 0))

(def f1 (future
          (while (< @a 1000000000)
            (swap! a inc))
          (println "Done incrementing!")))

(def f2 (future
          (swap! a (fn [current-val]
                     (println "Trying...`a' is" current-val) 
                     (Thread/sleep 10) ; actually usually works without this, just from the delay println introduces
                     0))
          (println "Successfully reset!")))