use Math::BigInt;

my $sum = new Math::BigInt(0);
for (my $n = 1; $n < 1000; ++$n) {
	my $b = new Math::BigInt($n);
	$b->bpow($b);
	$sum->badd($b);
	print "$n\n";
}
print $sum,"\n";