{for(;sub(c=substr($1,++i,1),_,$2);)}$0=i=c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page