function semiprime( n as uinteger ) as boolean
	dim as uinteger a = 2, c = 0
	while c < 3 andalso n > 1
		if n mod a = 0 then
			n /= a
			c += 1
		else
			a += 1
		end if
	wend
	if c = 2 then return true
	return false
end function

for i as uinteger = 0 to 64
    print i, semiprime(i)
next i