Select Code to Download

sub combinationN {
    my ($O,$Z,$current) = @_;
...
print "$string\n";
    return $string
}

sub combinationN {
    my ($O,$Z,$current,$tL) = @_;
...
print "$string\n";
    return $string
}