sub zip {
    my( $r1, $r2 ) = @_;
    map {
        $r1->[ $_ ], $r2->[ $_ ]
    } 0 .. ( @$r1 > @$r2 ? @$r1 : @$r2 );
}