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

my $n = 20;

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

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