(define (prime? n)
  (define (iter cur)
    (cond
      ((> cur (sqrt n)) #t)
      ((= (modulo n cur) 0) #f)
      (else (iter (+ cur 1)))))
  (if (< n 2)
    #f
    (iter 2)))