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