let page_new (p: page) (b: b)
  : page_ref * b =
    let pr = fresh_page_ref () in
    let pages' = upd_assoc pr p b.browser_pages in
    let b' = { b with browser_pages = pages' } in
    (pr, b')