let get_site_cookies (d: domain) (p: path) (b: b)
  : (string * string) list =
    let check (cid, _) =
      (cid.cookie_id_domain = d &&
        prefix cid.cookie_id_path.path_value p.path_value) ||
        (prefix cid.cookie_id_domain.domain_value d.domain_value &&
          cid.cookie_id_path.path_value = [])
    in
    let strip (cid, rslt) = (cid.cookie_id_key, rslt) in
    List.map strip (List.filter check b.browser_cookies)