set o [string repe "{} " 58]
set i 0
while {[gets stdin s]>0} {set j -1
foreach c [split $s ""] {lset o [set y [expr $i-[incr j]+50]] [format "%-[expr $i+$j<<1]s" [lindex $o $y]]$c}
incr i}
puts [regsub \n+ [join $o \n] ""]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).