For i = 0 To 20
	WScript.StdOut.WriteLine Oct(i)
Next