do euler1 in clojure