lo = hi = n = 1
GoldenRatio = N[(1.0 + Sqrt[5.0])/2.0,16]
hilimit = 2^63 - 1
Print[n,"\t",lo]
While [hi <= hilimit,
    Block[{},
	n++;
	ratio = N[hi/lo,16];
	Print[n, "\t", hi, "\t", CForm[ratio], "\t", CForm[N[ratio - GoldenRatio,16]]];
	hi = lo + hi;
	lo = hi - lo;
    ]
]