let page_win (pr: page_ref) (b: b) : win_ref option = let has_pr (_, w) = (w.win_page = pr) in begin match List.filter has_pr b.browser_windows with | [ (wr, _) ] -> Some(wr) | _ -> None end