Solved euler three with clojure