Select Code to Download

sub prop3
{
...
    $out .= ')' x ( @str - 1 );
    return $out;
}

sub getpropstr
{
...
    }
    return $_;
}