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