Project Euler solutions using newlisp