proc doit {n} {
	while {$n > 0} { incr n -1 }
}
doit 1000000