10 let count = 0
20 let num = 0
30 let modulus = 0
40 let nums = 100
50 let tau = 0

60 rem do

	70 let count = count + 1
	80 let tau = 0
	90 let modulus = 1

	100 rem do

		100 if count mod modulus <> 0 then 130

			120 let tau = tau + 1

		130 rem endif

		140 let modulus = modulus + 1

	150 if modulus < count + 1 then 100

	160 if count mod tau <> 0 then 190

		170 let num = num + 1
		180 print count, tab,

	190 rem endif

200 if num < nums then 60