thread benchmark

interp create I; interp eval I {proc test {} {}}
puts stderr E_INTERP:[time {::interp eval I test} 100]
proc test {} {}
puts stderr E_PROC:[time {test} 100]

set now [clock microseconds]
puts stderr A_THREAD:[time {::thread::send -async $thread test indicator} [set counter 100]]
while {$counter} {vwait indicator; incr counter -1}
puts stderr AE_THREAD:[expr {[clock microseconds] - $now}]