Select Code to Download

while ($k>=2)
    {
    if ($k==1)     
        {last;}

while($k>2){
        $k=$k-1;
...
        print "$k\n";
        }