main=interact$unlines.f.g.init
f s=z(z max)s$map r$r s
g s=(s++" "):[c:(s>>" ")|c<-r s]
r=reverse
z=zipWith