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