sub p { @_=map$_+pop,@_,print"1 @_\n"for 1..pop }