(->> (slurp "unixdict.txt") 
     (re-seq #"\w+")        
     (group-by sort)        
     vals                   
     (filter second)        
     (remove #(some true? (apply map = %))) 
     (sort-by #(count (first %))) 
     last
     prn)