$0=tolower($0){for(gsub(/[^a-z ]/,n=_);$++n;v[i+1]=$n)for(i=++m;--i&&$n>v[i];)v[i+1]=v[i]}END{for(;++c*m;w=v[m])if(w&&w!=v[--m]){print--c,w c=1}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page