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