Help for this page

Select Code to Download

Select or download this

sub f {
    ($x,$y)=@_;print$x--while$x>=$y
}

Select or download this
```
perl -le '$_=ord$/;print$_--while$_'
```