#!/usr/bin/perl -w

use Data::Dumper;

use PIC::Vis::Algebra::Prime::50Million;
my $million50 = PIC::Vis::Algebra::Prime::50Million->new();

print Dumper($million50);

foreach my $tmpi (1 .. 3) {
  my $prime = $million50->GetIthPrime
    (
     I => $tmpi,
     # Debug => 2,
    );
  print $prime."\n";
  my $j = $million50->GetPrimeIndex(Prime => $prime);
  die "oops $tmpi:$j:$prime\n" unless ($tmpi == $j);
}

# FIXME: method fails for 1000000 and over
foreach my $tmpi (999998 .. 9999999) {
  my $prime = $million50->GetIthPrime
    (
     I => $tmpi,
     # Debug => 2,
    );
  print $prime."\n";
  my $j = $million50->GetPrimeIndex(Prime => $prime);
  die "oops $tmpi:$j:$prime\n" unless ($tmpi == $j);
}