after vwait

proc run { name } {
  while { true } {
    puts "$name"
    set x 0; after 1000 { set x 1; }; vwait x
  }
}

after 1000 run 1
after 2000 run 2
after 3000 run 3
after 4000 run 4
after 5000 run 5
after 6000 run 6
after 7000 run 7
after 8000 run 8

vwait forever