foreach s [split [read stdin]] {set l [expr [string length $s]/2-1];puts "[string range $s 0 $l] [string range $s [incr l] end]"}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page