let apply_configs s = List.fold_right (apply_config s) (configs ()) Tags.empty