9 lines
140 B
Text
9 lines
140 B
Text
def count
|
|
for drop endfor
|
|
enddef
|
|
|
|
1000000 count
|
|
msec dup var t0 print " seconds" print nl
|
|
|
|
10000000 count
|
|
msec t0 - print " seconds" print
|