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