train :: [ByteString] -> Words
train = foldl' (\t w -> insertWith (+) w 1 t) Trie.empty
train :: [ByteString] -> Words
train = foldl' (\t w -> insertWith (+) w 1 t) Trie.empty
train = foldl' (\t w -> insertWith (+) w 1 t) Trie.empty