size :: Ord c => Trie c v -> Int
size t = 1 + sum (fmap (size.snd) $ M.toList $ tails t)
size :: Ord c => Trie c v -> Int
size t = 1 + sum (fmap (size.snd) $ M.toList $ tails t)
size t = 1 + sum (fmap (size.snd) $ M.toList $ tails t)