I need help, I need to find all the sets of anagrams that contain the most words.
The function must be of the following type: anagram :: [String] -> [[String]]
