lst := StringTools:-Split(Import("http://www.puzzlers.org/pub/wordlists/unixdict.txt"), "\n"):
longest := 0:
words := Array():
i := 1:
for word in lst do
	if StringTools:-IsSorted(word) then
		len := StringTools:-Length(word):
		if len > longest then
			longest := len:
			words := Array():
			words(1) := word:
			i := 2:
		elif len = longest then
			words(i) := word:
			i++:
		end if;
	end if;
end do;
for word in words do print(word); end do;