define f(x)  {return (x+4)/(x**2 - 3*x - 10);}
define s(n)  {return (n==0)?1:5 + ((-1.0)**n)/n;}
define imprime(n1,n2){
	local k = n1;
	while( k<n2 ){
	print k, "f(",s(k),") = ", f(s(k));
	k++;
	}
}
imprime(60,80);

 quit

f(x) defined
s(n) defined
imprime(n1,n2) defined
60 f( 5.01666666666666666667 ) =  77.10213776722090261283
61 f( 4.98360655737704918033 ) =  -78.46948356807511737089
62 f( 5.01612903225806451613 ) =  79.67356321839080459770
63 f( 4.98412698412698412698 ) =  -81.04090909090909090909
64 f( 5.015625 ) =  82.24498886414253897550
65 f( 4.98461538461538461538 ) =  -83.61233480176211453744
66 f( 5.01515151515151515152 ) =  84.81641468682505399568
67 f( 4.98507462686567164179 ) =  -86.18376068376068376068
68 f( 5.01470588235294117647 ) =  87.38784067085953878407
69 f( 4.98550724637681159420 ) =  -88.75518672199170124481
70 f( 5.01428571428571428571 ) =  89.95926680244399185336
71 f( 4.98591549295774647887 ) =  -91.32661290322580645161
72 f( 5.01388888888888888889 ) =  92.53069306930693069307
73 f( 4.98630136986301369863 ) =  -93.89803921568627450980
74 f( 5.01351351351351351351 ) =  95.10211946050096339114
75 f( 4.98666666666666666667 ) =  -96.46946564885496183206
76 f( 5.01315789473684210526 ) =  97.67354596622889305816
77 f( 4.98701298701298701299 ) =  -99.04089219330855018587
78 f( 5.01282051282051282051 ) =  100.24497257769652650823
79 f( 4.98734177215189873418 ) =  -101.61231884057971014493