one Clojure soln for problem 1