isPrime n
= all (\i
-> (n `
rem` i
) /= 0) $ takeWhile (\i
-> i
^2 <= n
) [2..]
forM_ [1..n] $ \i ->
aXNQcmltZSA6OiBJbnRlZ2VyIC0+IEJvb2wKaXNQcmltZSBuID0gYWxsIChcaSAtPiAobiBgcmVtYCBpKSAvPSAwKSAkIHRha2VXaGlsZSAoXGkgLT4gaV4yIDw9IG4pIFsyLi5dCgptYWluIDo6IElPICgpCm1haW4gPSBkbyBuIDwtIHJlYWRMbgogICAgICAgICAgZm9yTV8gWzEuLm5dICQgXGkgLT4KICAgICAgICAgICAgICBwdXRTdHJMbiAoc2hvdyAoaSkgKysgIiBpcyBhIHByaW1lPyAiICsrIHNob3cgKGlzUHJpbWUgaSkp