1 (defun search-for-primes (start end)
2   (let ((start (if (evenp start) (1+ start) start)))
3     (do ((i start (+ i 2)))
4 	((> i end))
5 	(when (prime? i)
6 	  (format t "~d is prime~%" i)))))
7 
8 (time (dotimes (i 1000 t) (search-for-primes 1000 1019)))