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