#!/usr/bin/env expect
# Reverse the list
set a {1 2 3 4 5 6 7}
set aLen [llength $a]
set iLen [expr $aLen - 1]
for {set i $iLen} {$i >= 0} {incr i -1} {
lappend b [lindex $a $i]
}
puts "b is <$b>"
# Reverse the list
set a {1 2 3 4 5 6 7}
set aLen [llength $a]
set iLen [expr $aLen - 1]
for {set i $iLen} {$i >= 0} {incr i -1} {
lappend b [lindex $a $i]
}
puts "b is <$b>"