function mobius( n as uinteger ) as integer
    if n = 1 then return 1
    for d as uinteger = 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

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