One way to test a loop in Clojure