res<-function(y){
ex91<-function(t,x=y){(1/(1+t/x))*exp(-t)}
integrate(ex91,0,1000)
}
appres1<-function(y){return(1-1/y)}
appres2<-function(y){return(1-1/y+2/y**2)}