words = #.split(#.readtext("unixdict.txt","ascii"),#.lf)
max = 0
> i, 1..#.size(words,1)
  word = words[i]
  wordb = #.array(word)
  wordbc = #.size(wordb,1)
  > j, 3..wordbc,2
    << wordb[j]<wordb[j-2]
  <
  >> j!>wordbc|wordbc<max
  ? wordbc>max, result = ""
  ? wordbc>max, max = wordbc
  result += word+#.crlf
<
#.output(result)