Clojure solution for problem 3