main=getContents>>=putStr.f.lines\x0d f x=unlines$zipWith(++)(map g$scanl1(+)$map length$"":x)x\x0d g n=replicate n '\32'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page