expect的循环和计算

#!/usr/bin/expect --
#
puts "---自加---"
for {set i 1} {$i <= 10} {incr i} {
    puts "I inside first loop: $i"
}

puts "---自减---"
for {set i 10} {$i >= 1} {incr i -1} {
    puts "I inside second loop: $i"
}

puts "---while循环---"
set i 0
while {$i <= 10} {
    puts "I inside third loop: $i"
    incr i
}

set i 0
incr i
puts "---自加---"
puts "$i"
# This is equivalent to:
set i [expr {$i + 1}]
puts "---计算---"
puts "$i"