delete words by I., S.(w/o strings-(via csv-)lib)

wd({.(' '"_`(i.@#@[+/bx@E.)`]}"1|.@|:)^:4&:>}.)<;._2(1!:1)3

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

download

return top