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