method remove_element file =
(*
      print_string ("removing "^file);
      print_newline ();
*)

      elements <- List.filter
          (fun t -> t.cvs_file <> file)
          elements