use strict;
use Math::Pari qw(:int PARI nextprime);
 
print "Find primes from: ";
chomp(my $o = <>);
print "to: ";
chomp(my $e = <>);
 
$o = PARI $o;
$e = PARI $e;
 
if ($o > $e) {
  ($o,$e) = ($e,$o);
}
 
my $p = nextprime($o);
while ($p <= $e) {
   print "$p is prime\n";
   $p = nextprime($p + 1);
}