delete words by llhuii(nn)

!w{for($(FS=_)=w=$0"|";--NF;b=b" ")w=w$NF}s=NF{$0=o=o$!++a RS}END{for(gsub(w,b)s++;j<NF;)p=p$(j/a+j++%a*s+1);$0=p;for(gsub(w,b);k<j;)printf$(k/s+k++*a%j+1)}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top