let acknowledge tag =
  let tag = Lexers.tag_gen (Lexing.from_string tag) in
  acknowledged_tags := SSOSet.add tag !acknowledged_tags