scan clear
scan np 10
scan var A4 20. 2.
scan preset 10
for {set i 0 } { $i < 2000 } { incr i} {
scan run
}