Compress ->
Arg Archive_name : &String 
    Current_path : String

Zip = . ..

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

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

- Ext <
        Name : "mysqldump.exe"
        Parameters : < '-u' `DB_LOGIN '-p' `DB_PASSWORD `DB_NAME >
        Workdir : Current_path
      >
      (
        Line : - LineOut Zip.Std_in Line
      ),
  CharOut Zip.Std_in "^Z"

- Env WAIT_ID Zip.Process_id

/