let filter_out e lst = List.filter (fun (e', _) -> e <> e') lst