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
}