incorporate The joy of clojure (until loop)