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