Posted to tcl by anddam at Fri Jun 25 20:10:59 GMT 2010view raw

  1. proc count {i end} {
  2. if {$i > $end} { return }
  3. puts "i = $i"
  4. count [expr {$i + 1}] $end
  5. }
  6. count 1 10