map$a[$y=$y?$y-1:@a].=$_.$",1..<>;$_=join$/,reverse@a;s# # #g;print