# 123456789_123456789_123456789_123456789_123456789_123456 sub p {$_=pop;@_=(1,map$_[-2]+pop,0..$#_),print"@_\n"while$_>@_}