Help for this page

Select Code to Download

Select or download this

sub s{
push @{$_[0]},0;
...
${$_[0]}[$#{$_[0]}] /= $#{$_[0]};
pop @{$_[0]};
}