2 lines
99 B
Plaintext
2 lines
99 B
Plaintext
|
s {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}
|