import Data.List
import Data.Ord
import Data.Function

pickMajority :: Ord b => (a -> b) -> [a] -> a
pickMajority f = head
               . head
               . sortBy (flip $ comparing length)
               . groupBy ((==) `on` f)
               . sortBy (comparing f)