let of_tag_list x = of_tags (Tags.of_list x)