let filter_outputs (os: output_event list) (lev : level) (new_add_levs : level list): output_event list = filter_outputs_acc os lev new_add_levs []