use strict;
use warnings;
$| = 1;

use Math::Pari;

Math::Pari::allocatemem( 900_000_000 );

my $x = ( PARI 10 ) ** 10_000_000;
print "ok\n";

my $y = ( $x * 22 ) + 1;
print "ok\n";