Sort out problem 5 in clojure