project euler: problem 4 in clojure