Posted to tcl by karen at Sun Jan 31 19:06:11 GMT 2021view raw

  1. for {set val expr{2**10}} {$val>=0} {val >> 1}
  2. after 100
  3. write_source_data -instance_index 1 -value $val
  4. }