open Printf

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

let rec fibonacci lo hi n =
    if hi > 0 then 
    let ratio = float hi /. float lo in
    printf "%2d\t%19d\t%19.15f\t%19.15f\n"
        n hi ratio (ratio -. golden_ratio) ;
        fibonacci hi (lo + hi) (n+1)
    else ()

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