map{//;print"@{[map$_-$'-1?0:$_*(@j-$_),@j]} "}@j=0..$_*2for<>