Clojure solution for problem 1