Dictionary word count in Haskell

word_count.hs

import Data.List
import qualified Data.Map.Strict as Map
import Data.Ord (comparing)

wordFrequency :: (Ord a) => [a] -> Map.Map a Int
wordFrequency xs = foldr (\word acc -> Map.insertWith (+) word 1 acc) Map.empty xs

nBiggest :: Int -> Map.Map a Int -> [(a, Int)]
nBiggest n m = take n $ sortBy (comparing $ negate . snd) $ Map.toList m

main :: IO ()
main = do
    let list = take 100 $ cycle ["hello", "there", "list", "of", "words", "there", "of", "of"]
    let biggest = 2

    print $ nBiggest 2 $ wordFrequency list

    return ()