: .runtime ( a- ) time [ do time ] dip - "\n%d\n" puts ;

: test 20000 [ putn space ] iterd ;
&test .runtime