cscan a4 0. .2 10 2
for {set i 0} { $i < 5} { incr i} {
count timer 200
}