my sub by_n ($n := $_) { my $k = 0; return -> $x { $x ?? $k += $n :: $k } };
    @list = @list.map( &by_n );