shaniqua-smeggdrop/procs/44b7497c4bb5f3e8c071b12b7ece82766a88068d

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