def count
	for drop endfor
enddef

1000000 count
msec dup var t0 print " seconds" print nl

10000000 count
msec t0 - print " seconds" print