(@ zip-ls-al path .archive-name +-
    (. .zip ..)
    (# fs +FS_TMP+FS_DIR .temp-path)
    (& temp-path '/' date '.zip' .archive-name -
        ((# clock) 'YYYY-MM-DD' -> .date)
    )
    (# ext (%
               'zip.exe'        .name
               STD_PIPE_IO      .mode 
               (' '-q' '-@' 
                  '-9rmX' 
                  archive-name) .parameters
               temp-path        .workdir
           ) .zip
    )
    (# ext (%
               'ls.exe'    .name
               (' '-U1' 
                  '*.txt') .parameters
               path        .workdir
           ) 
           (@ line +-
               (# line-out zip.stdin line : [line '.txt'])
           )    
     # char-out zip.stdin "^Z"
    )
    (# env WAIT_ID zip.process_id)
)