s {set r {}; set i [string len $s]; while {$i > 0} {append r [string index $s [incr i -1]]}; . $r}