(use slib) (require 'factor) (define n (read)) (print(if (prime? n) (print "YES") (print "NO"))