A clean solution to Project Euler problem 4, written in Clojure