add do-primes.lisp