method remove_element file = (* print_string ("removing "^file); print_newline (); *) elements <- List.filter (fun t -> t.cvs_file <> file) elements