A:=Array new:59withAll:''.I:=-2.stdin linesDo:[:l|I:=I+1.l doWithIndex:[:c :j|S:=A at:(Y:=54+I-j).[I+j*2>S size]whileTrue:[S:=S,' '].A at:Y put:S,{c}]].A do:[:x|x=''or:[x displayNl]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).