I made some localized improvements to C-Lil's implementation of the "in" operator. Using this dictionary file:
https://github.com/dwyl/english-words/blob/master/words_alpha.txt
and this version of the entire script:
words:extract where 5<count@value from "\n" split read["words_alpha.txt"] on strip x do "" fuse "r" drop x end still:select where wod in words from select word:value wod:strip@value where value like "*r*" from words show[table random[still -10]]
The patch brings execution time on my laptop from about 12 minutes (oof) to about half a second.