(define min-divisor
  (lambda (n)
    (let ((x 2))
    (if
     (= (remainder n x) 0)
     x
     (let ((x (+ x 1)))(min-divisor n))))
    )
  )