initProbs :: Corpus -> Probs
initProbs corpus = foldl initializer HM.empty corpus
  where initializer = foldPair insertProbs
        insertProbs _ e f ac = HM.insert (e,f) probs ac
        probs = 1 / ( fromIntegral . S.size . snd . extractDict $ corpus)
initProbs :: Corpus -> Probs
initProbs corpus = foldl initializer HM.empty corpus
  where initializer = foldPair insertProbs
        insertProbs _ e f ac = HM.insert (e,f) probs ac
        probs = 1 / ( fromIntegral . S.size . snd . extractDict $ corpus)
initProbs corpus = foldl initializer HM.empty corpus
  where initializer = foldPair insertProbs
        insertProbs _ e f ac = HM.insert (e,f) probs ac
        probs = 1 / ( fromIntegral . S.size . snd . extractDict $ corpus)