use DB_File;
require 'mjd.pl';
$SIG{INT} = sub { exit };

tie %g, DB_File, 'Graham', O_RDWR|O_CREAT or die $!;
$g{1} = 1;
for (2..1000) {
  next if $g{$_};
  $g{$_} = Graham($_);
  warn "$_\n";
}