Euler #2 in lisp