/* 1.6180339887 4989484820 ...

/* fib.tc - tct - 4/4/9

dpf int n,d,p [
 /* display proper fraction n/d as decimal number
 /* with p digit precision 
 int w
 w=10*n/d
 if (p) [
  MC w,14
  dpf 10*n%d,d,p-1 /* recursive call
  ]
 ]

fibf int f [
 if (f==0) return 1
 if (f==1) return 1
 return fibf(f-1)+fibf(f-2)
 ]

fib [
 pl "";ps "fib.tc - tct - 4/4/9";pl ""
 int f,i,j
 pl "f? ";f=gn
 i=fibf(f);j=fibf(f-1)
 pl "";pn j/i;ps ".";dpf(j,i,14)
 pl ""
 ]