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

  archive-name = temp-path '/' date '.zip'
  ' date <- curent-time # 'YYYY-MM-DD'
  ' current-time = .clock

  zip = ext <
              name : 'zip.exe', mode : STD_STREAM_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
;