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)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page