While loops in Clojure ... not so glamorous