sub group {
        my $n = shift;
        map [ @_[$_*$n .. $_*$n + $n - 1] ] => 0 .. $#_ / $n;
    }