add :: Ord c => v -> Trie c v -> [c] -> Trie c v
add value = update (\_ -> Just value )
add :: Ord c => v -> Trie c v -> [c] -> Trie c v
add value = update (\_ -> Just value )
add value = update (\_ -> Just value )