a=[] (x=$.-2 y=a.size a<<'' scan(/./){(a='',*a y=0)if 0>y-=1 a[y]=a[y].ljust(2*x+=1)+$&})while gets puts a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page