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