f:openr("/dev/fd/0");while stringp(a:readline(f))do(for i while(ssubst("",(b:substring(a,1,i+1)),a)#"")do 0,printf(?t,"~d ",b));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page