for(w in a<-readLines("stdin")){i=1;while(pmatch(s<-substr(w,1,i),a,0)<1)i=i+1;write(s,1)}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page