let del_site_cookie (d: domain) (p: path) (k: string) (b: b)
: b =
let cid = {
cookie_id_domain = d;
cookie_id_path = p;
cookie_id_key = k;
} in
{ b with browser_cookies = List.remove_assoc cid b.browser_cookies }