do
a = int( rnd * 20)
wscript.stdout.write a
if a = 10 then exit do
b = int( rnd * 20 )
wscript.echo vbnullstring,b
loop
dim i
for i = 1 to 100000
if a = 10 then exit for
next