Solved code to 4clojure problem