zip-ls-al = path + archive-name ->
  temp-path = fs FS_TMP | FS_DIR

  archive-name = temp-path '/' date '.zip'
  ' date <- (clock), 'YYYY-MM-DD'

  zip = ext <
              name : 'zip.exe', mode : STD_PIPE_IO
              parameters : { '-q' '-@' '-9rmX' archive-name }
              workdir : temp-path
            > 

  - ext <
          name : 'ls.exe'
          parameters : { '-U1' '*.txt' }
          workdir : path
        >
        (
          line -> - line-out zip.stdin line [ line, '.txt' ]
        ),
    char-out zip.stdin "^Z"

  - env WAIT_ID zip.process_id
;