Select Code to Download

sub p {
map{$_[$_]+=$_[$_+1]for 0..$#_;@_=(1,@_);print"@_\n"}1..pop
}

sub p {
@_=(1,map$_[-2]+pop,@_),print"@_\n"for 1..pop 
}