project euler problem #6 in clojure