Problem 4 in clojure.