Help for this page

Select Code to Download

Select or download this

sub compress ($x) {
    state $previous;
...
        return;
    }
}