(use math.prime) (use srfi.217) (define yuki36 (let* ((n (read)) (pfs (length (mc-factorize n)))) (display (if (= n 1) "NO\n" (if (<= 3 pfs) "YES\n" "NO\n")))))