Help for this page

Select Code to Download

Select or download this

sub e{
    @e=(1)x pop;
...
        $e[0]=0
    }
}