order.pl

sub myX(@a, @b) {
    my $i = 0;
    return gather {
        while $i < [@a.elems, @b.elems].min {
            take (@a[$i], @b[$i]);
            $i++;
            take (@a[$i] X @b[0..^$i]);
            take (@a[0..^$i] X @b[$i]);
        }
    }
}
my @x := 1..*;
my @y := 1..*;
my @pairs := myX(@x, @y);
say @pairs[0..10].perl;