lo <- hi <- n <- 1
goldenratio <- (1.0 + sqrt(5.0))/2.0
print (n)
print (lo)
while (hi > 0)
{
    n <- n + 1
    ratio <-  hi/lo
    print ("----------------------------------------")
    print (n)
    print (hi)
    print (ratio, digits=17)
    diff <- (ratio - goldenratio)
    print (diff, digits=17)
    hi <- lo + hi
    lo <- hi - lo
}