Compress ->
Arg Archive_name : &String 
    Current_path : String 
    Text_lines : A|L : String    
+

 Request ->
 Arg Zip : String 
     Text_lines : A|L : String

 Do LineOut Zip String
 With String from Text_lines

 /

+

Zip = . ..

Archive_name = Date '.zip'
' Date <- Today # 'YYYY-MM-DD'
' Today - Clock >Today<

- Ext >Zip< 
      <
        Name : 'Zip.exe', Mode : STD_STREAM_IO
        Parameters : < Archive_name '-' >
        Workdir : Current_path
      >

- Request Zip.Std_in Text_lines,
  CharOut Zip.Std_in "^Z"

- Env WAIT_ID Zip.Process_id

/
