Lisp solution for euler 99.