f=file("stdin","r")
while(l<-10*length(a<-scan(f,nlines=1)))write(a[i<-10:l/10]+i%%1*(c(a[-1],0)-a)[i],1,99)