sub zip {
    my $half = @_>>1;
    return @_[map { $_, $_+$half } 0 .. $half-1];
}