PE problem 2 in Clojure