Select Code to Download

my $N = 4;
my $depth = 3;
...
             ( sub { [$_+1..$N] } ) x ($depth-1),
         ]);
print "@args\n" while @args = $i2->();

0 1 2
0 1 3
0 1 4
...
2 4
3 4
4