let upd_cookies (d: domain) (uri: req_uri) (resp: resp) (b: b)
  : b =
    let b' = del_site_cookies d uri.req_uri_path resp.resp_del_cookies b in
    let b'' = set_site_cookies d uri.req_uri_path resp.resp_set_cookies b' in
    b''