set s [read stdin] while {$s!=[set s [regsub "(.) ?(T.*)_" $s \\2\\1]]} {} puts $s
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page