import Data.List t=transpose;l=length main=interact$unlines.t.x.map(concat.words).t.lines x a=map(\y->replicate(maximum(map l a)-l y)' '++y)a