Select Code to Download

sub r2 {
    my ($low, $high) = @_;
...
    my ($x, $y) = @_;
    rand() < .5 ? r2($x/$y, $x) : r2($x,$x*$y);
}