Lisp solution to euler34.