(use math.prime)
(use srfi.217)

(display (if (<= 3 (length (mc-factorize (read)))) "YES\n" "NO\n"))