-- Insert a new molecule in the list of productions for a given molecule.
insertMulti :: [String] -> [String] -> TransMap -> TransMap
insertMulti k v = ML.insertWith (\[new] old -> new : old) k [v]
insertMulti :: [String] -> [String] -> TransMap -> TransMap
insertMulti k v = ML.insertWith (\[new] old -> new : old) k [v]
insertMulti k v = ML.insertWith (\[new] old -> new : old) k [v]