find anagrams by primo

<?for(;${$o?s:o}=fgets(STDIN);strspn($s,$o,-8)^7||print$s);

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

download

return top