Calculate unigram of Lovecraft's Dagon using multiset <https://hackage.haskell.org/package/multiset>.

1.unigram.hs

import Data.List (sortOn)
import qualified Data.MultiSet as MultiSet

main :: IO ()
main = do
  contents <- concat . map words . lines <$> readFile "dagon.txt"
  mapM_ print . take 10 . reverse . sortOn snd . MultiSet.toOccurList . MultiSet.fromList $ contents

2.result.bash

$ runhaskell Main.hs
("the",154)
("I",91)
("of",85)
("and",61)
("a",56)
("to",41)
("in",39)
("was",33)
("that",28)
("my",27)