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