use Math::PariInit qw( primes=12000000 );