z=scan("stdin","") for(j in 1:100){ i=0 while(i<-i+1)if(!any(grep(paste("^",x<-substr(z[j],1,i),sep=""),z[-j])))break write(x,1) }
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page