doprimes.lisp