Compress ->
Arg Archive_name : &String 
    Current_path : String    

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

- Ext <
        Name : 'Zip.exe'
        Parameters : < '-9rmX' Archive_name '*' >
        Workdir : Current_path
      >

/