Select Code to Download

for $i (0..1) {
  for $j ($i+1..3) {
    for $k ($j+1..5) {
      for $l ($k+1..7) {

my $depth = 4;
my $loop = [[0..1]];
...
  my @args = @_;
  print join '', @args, "\n";
}

my $n = shift;
sub plustwo_iter {
...
  output(@list);
}