dim m
m = 1
for i = 0 to 13
	m = looksay(m)
	wscript.echo m
next