use strict;
use warnings;
use bigint;

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

$answer %= 10 ** 10;

print "$answer\n";