clojure solution to problem 2