Lisp solution for Euler 20.