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

my $n = 20;

my $result;
for ^$n { $result += $_ ** $_ }

for ^10000 {
    my @p;
    my $sum = 0;
    for ^$n -> $i {
        push @p, Promise.start( { $sum += $i ** $i } );
    }
    await @p;
    say $sum;
    die $_ if $sum != $result;
}