(phixonline)-->
with javascript_semantics
sequence words = unix_dict()
integer maxlen = -1, found = 0
for i=1 to length(words) do
string word = words[i]
integer l = length(word)
if l>=maxlen and word=sort(word) then
if l>maxlen then {found,maxlen} = {0,l} end if
found += 1
words[found] = word
end if
end for
printf(1,"The %d longest ordered words:\n %s\n",{found,join_by(words[1..found],1,4," ","\n ")})