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]"}