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 }