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')