sub zip {
    my $half = @_>>1;
    return @_[map { ($_&1 && $half) + ($_>>1) } 0 .. $#_];
}