{-# OPTIONS -fth -O2 -optc-O -fbang-patterns #-}

import Primes

main = print $( let x = pureSieve 10000000 in [| x |] )