Zip_files = <> ..

Call ZipList Archive_name Flags ( File_name : 
                                              Zip_files .= File_name
                                )