Select Code to Download

my $n    = shift || 10;
my $iter = int_partitions($n);
...
        return map { ($_) x $tally[$_] } reverse 1 .. $n;
    };
}

my @set  = @ARGV ? @ARGV : 1 .. 4;
my $iter = set_partitions(@set);
...
        return @return;
    };
}