(define (prime? n)
  (define (iter n1 c)
    (and (not(zero? (remainder n1 c)))
        (or (< c n1)
            (iter n1 (+ c 1)))))
  (iter n 2))