let rec set_site_cookies
    (d: domain) (p: path) (pairs: (string * string) list) (b: b)
  : b =
    begin match pairs with
    | [] -> b
    | pair :: pairs' ->
        let b' = set_site_cookie d p pair b in
        set_site_cookies d p pairs' b'
    end