RosettaCodeData/Task/Reverse-a-string/Tcl/reverse-a-string-2.tcl

proc reverse {str} {
    set rev {}
    set i [string length $str]

    while {$i > 0} {
        incr i -1
       append rev [string index $str $i]
    }
    return [join $rev ""]
}