anagramsFor :: String -> [String] -> [String]
anagramsFor xs = filter (\ys -> f ys /= f xs && g ys == g xs)
 where
  f = fmap toLower
  g = sort . f
anagramsFor :: String -> [String] -> [String]
anagramsFor xs = filter (\ys -> f ys /= f xs && g ys == g xs)
 where
  f = fmap toLower
  g = sort . f
anagramsFor xs = filter (\ys -> f ys /= f xs && g ys == g xs)
 where
  f = fmap toLower
  g = sort . f