find anagrams by *yuko*

character*9c;read*;do1;read*,c;1 if(len_trim(c)+9*scan(c,"POWDY")==6)print'(a6)',c;end

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

download

return top