problem 1 in clojure done