Lisp Solution to Euler 16.