let flag tags flags = set_flags (Tags.of_list tags) flags