(define (prime? n)
  (define (iter n1 c)
    (if (not(zero? (remainder n1 c)))
        (if (< c n1)
            (iter n1 (+ c 1))
            #t)
        (>= c n1)))
  (iter n 2))