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