my @sums[13] = 0, 0; for ^99 { my $roll = (1..6).roll(2); @sums[[+] $roll] += 1; } for @sums -> $sum { state $i = 0; say "$i: $sum"; $i += 1 } multi a($b where * < 0) {say -1} multi a($b where * >= 0) {say 1} a 1; a 2; a -1; a -2;