#!/usr/bin/env perl6
use v6;

my $n = 25_000;
my $runs = 1;
my $result;
for ^$n { $result += $_ ** $_ }
say $result;

for ^$runs {
    my $sum = [+] await map { start { $_ ** $_ } }, ^$n;
    say "$sum $_";
    die $_ if $sum != $result;
}