open Num
open Printf

let golden_ratio = (1.0 +. sqrt(5.0)) /. 2.0

let flt = float_of_num
let str = string_of_num
let num i = num_of_int i

let rec fibonacci lo hi n =
    if n </ (num 93) then
    let ratio = flt hi /. flt lo in
    printf "%2s\t%19s\t%19.15f\t%19.15f\n"
        (str n) (str hi) ratio (ratio -. golden_ratio) ;
        fibonacci hi (lo +/ hi) (n +/ (num 1))
    else ()

let _ =
    let lo,hi,n = num 1, num 1, num 1 in
    printf "%2s\t%19s\n" (str n) (str lo);
    fibonacci lo hi (n +/ num 1)