#!/usr/bin/env expect
# Reverse the string
set a "1234567"
set aLen [string length $a]
set iLen [expr $aLen - 1]
for {set i $iLen} {$i >= 0} {incr i -1} {
append b [string index $a $i]
}
puts "b is <$b>"
# Reverse the string
set a "1234567"
set aLen [string length $a]
set iLen [expr $aLen - 1]
for {set i $iLen} {$i >= 0} {incr i -1} {
append b [string index $a $i]
}
puts "b is <$b>"