Read\lines %unixdict.txt
|filter { ::word = sort word }
|group { .length? .to-string }
|values
|max\by { .first .length? }
|print