S=$0{for(FS=_;v=X[$0=S]$++i;a[j]=s$0){$0=_ j+=v<p $(i-length(s=a[j-=v>p]))=p=v}for(;i--+7;)if($0=a[-i])print}

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

download

return to the top page