let cleanup_files () =
  List.iter
    (fun f ->
       if String.length f > 0 && Sys.file_exists f then Extlib.safe_remove f)
    !toBeRemoved