Project Euler xbfool's solution by common lisp