Clojure day 1 task 1