function mobius(n)
	if n = 1 then return 1
	for d = 2 to int(sqr(n))
		if n mod d = 0 then
			if n mod (d*d) = 0 then return 0
			return -mobius(n/d)
		end if
	next d
	return -1
end function

outstr$ = " .   "
for i = 1 to 200
	if mobius(i) >= 0 then outstr$ += " "
	outstr$ += string(mobius(i)) + "   "
	if i mod 10 = 9 then
		print outstr$
		outstr$ = ""
	end if
next i
end