delete words by pooq

load'strings'
r=.|.k=.>0{<;._2 d=.(1!:1)3
s=.#&' '#k
w=.|:><;._2 d rplc k;s;r;s
echo}.|:($w)$w rplc k;s;r;s

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

download

return top