1 2 3 4 5 6 7 8
(define (prime? n) (define (iter factor) (cond ((= factor n) #t) ((= (remainder n factor) 0) #f) (else (iter (+ factor 1))))) (iter 2))