let page_remove (pr: page_ref) (b: b) : b = let pages' = List.remove_assoc pr b.browser_pages in { b with browser_pages = pages' }