use strict;
use warnings;
use bigint;

my $answer = 0;
for my $i ( 1 .. 999 ) {
  print "$i: $answer\n";
  $answer += $i ** $i;
}

$answer %= 10 ** 10;

print "$answer\n";

##</code><code>##

use strict;
use warnings;
use bigint;

my $answer = 0;
for ( my $i = 1; $i < 1000; $i++ ) {
  print "$i: $answer\n";
  $answer += $i ** $i;
}

$answer %= 10 ** 10;

print "$answer\n";