Lisp solution for Euler 25.