for k = 1 to 5

	print "k = ", k, ": ",

	let e = 2
	let c = 0

	do

		if c < 10 then

			let n = e
			gosub kprime

			if r then

				print tab, e,
				let c = c + 1

			endif

			let e = e + 1

		endif

	loop c < 10

	print

next k

end

sub kprime

	let f = 0

	for i = 2 to n

		do

			if n mod i = 0 then

				if f = k then

					let r = 0
					return

				endif

				let f = f + 1
				let n = n / i

				wait

			endif

		loop n mod i = 0

	next i

    let r = f = k

return