If OpenConsole("")=0 : End 1 : EndIf
If ReadFile(0,"./Data/unixdict.txt")=0 : End 2 : EndIf
NewList dict$()

While Eof(0)=0 : AddElement(dict$()) : dict$()=Trim(ReadString(0)) : Wend : CloseFile(0)

While FirstElement(dict$())
  buf$=dict$() : DeleteElement(dict$())
  If buf$="" : Continue : EndIf
  xbuf$=ReverseString(buf$)
  ForEach dict$()
    If xbuf$=dict$()
      res$+buf$+" / "+xbuf$+#LF$
      Break
    EndIf
  Next
Wend

PrintN("Semordnilap pairs found: "+Str(CountString(res$,#LF$)))
For k=1 To 5
  If k=1 : PrintN(~"\nFirst 5 pairs: "+StringField(res$,k,#LF$)) : Continue : EndIf
  PrintN(Space(15)+StringField(res$,k,#LF$))
Next
Input()