set lo 1
set hi 1
set n 1
set golden_ratio [expr (1.0 + sqrt(5.0))/2.0]
puts [format "%2d\t%21d" $n $lo]
while {$hi > 0} \
{
    set n [expr $n + 1]
    set ratio [expr double($hi) / double($lo)]
    puts [format "%2d\t%21d\t%19.15f\t%19.15f" $n $hi $ratio [expr ($ratio - $golden_ratio)]]
    set hi [expr int($lo + $hi)]
    set lo [expr int($hi - $lo)]
}