#! perl -wl
use Digest::SHA 'sha512_hex';

$|=1;
die unless @ARGV==2;
$start=$ARGV[0];
$end=$ARGV[1];
print "Start $start End $end";
$maxa="ffff";
$prefix="/mit/bitbucket/.kenta.M4.";
$ct=0;
for($a=$start;;$a++){
    $ct++;
    $n=sha512_hex($a);
    if ($n gt $maxa){
	print "$a $n";
	$maxa=$n;
	`touch $prefix$a`;
    }
    last if $a eq $end;
}
print "Count $ct";