Kimariji by vlo

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