let
set_flags tags flags =
all_flags := (tags, flags) :: !all_flags