gets stdin n gets stdin s set i $n while \$i {puts [regsub -all . $s \\0[string repe [expr 1<$i&$i<$n?{ }:{\\0}] [expr $n-2]]\\0] incr i -1}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page