(define (prime max)
  (let ((a 2)))
  (if not(= modulo max 2) 0)
  ((+ a 1)
    prime(max))
  )