; Here your code !
(use slib)
(require 'factor)
(define n (read))
(if (prime? n) (print "YES") (print "NO"))