Posted to tcl by karen at Sun Jan 31 19:06:11 GMT 2021view pretty
for {set val expr{2**10}} {$val>=0} {val >> 1} after 100 write_source_data -instance_index 1 -value $val }
for {set val expr{2**10}} {$val>=0} {val >> 1} after 100 write_source_data -instance_index 1 -value $val }