Project euler challenge (clojure)