RosettaCodeData/Task/Look-and-say-sequence/VBScript/look-and-say-sequence-2.vb

dim m
m = 1
for i = 0 to 13
	m = looksay(m)
	wscript.echo m
next
Initial data commit 2023-07-01 11:58:00 -04:00			`dim m`
			`m = 1`
			`for i = 0 to 13`
			`m = looksay(m)`
			`wscript.echo m`
			`next`