set s [join [split [read stdin]] ""] while {[regexp (.{1,[incr i]})(.*) $s a b s]} {puts $b}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page