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

##</code><code>##

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