main=getContents>>=putStr.f.lines
f x=unlines$zipWith(++)(map g$scanl1(+)$map length$"":x)x
g n=replicate n '\32'