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