Posted to tcl by Maximus at Mon Sep 30 10:55:05 GMT 2019view pretty

set num "0"

proc myNum {} {

  global num

  for {set i 0} {$i < 10} {incr i} {
    if {[info exists num]} {
      set num [expr 1 + $num]
    } else {
      set num 1
    }
  }

  puts $num
}

myNum

puts "Found: $num"