let set_site_cookie (d: domain) (p: path) ((k, v): string * string) (b: b)
  : b =
    let cid = {
      cookie_id_domain = d;
      cookie_id_path = p;
      cookie_id_key = k;
    } in
    { b with browser_cookies = upd_assoc cid v b.browser_cookies }