sub fibonacciB(n)
    local sq5, phi1, phi2, dn1, dn2, k

    sq5 = sqrt(5)
    phi1 = (1 + sq5) / 2
    phi2 = (1 - sq5) / 2
    dn1 = phi1: dn2 = phi2
    for k = 0 to n
        dn1 = dn1 * phi1
        dn2 = dn2 * phi2
        print int(((dn1 - dn2) / sq5) + .5);
    next k
end sub