(phixonline)-->
with javascript_semantics
sequence words = unix_dict(), semordnilap={}
for i=1 to length(words) do
string word = words[i]
if rfind(reverse(word),words,i-1) then
semordnilap = append(semordnilap,word)
end if
end for
printf(1,"%d semordnilap found, the first five are:\n",length(semordnilap))
for i=1 to 5 do
printf(1,"%s - %s\n",{semordnilap[i],reverse(semordnilap[i])})
end for