f=file("stdin","r") for(i in 0:99)write(diffinv(rep(diff(a<-scan(f,nlines=1)),,,10))/10+a[1],1,99)