#!/usr/bin/perl -w

use Data::Dumper;

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

print Dumper($million50);

# FIXME: method fails for 1000000 and over
foreach my $i (899999 .. 999999) {
  my $prime = $million50->GetIthPrime(I => $i);
  my $j = $million50->GetPrimeIndex(Prime => $prime);
  die "oops $i:$j:$prime\n" unless ($i == $j);
}