problem 16 in clojure