let build_win
    (wn: win_name) (u: url) (wo: win_opener) (doc: node_ref option) (b: b)
  : win * b =
    let a = {
      act_parent = None;
      act_vars = [];
    } in
    let (ar, b') = act_new a b in
    let p = {
      page_location = u;
      page_document = doc;
      page_environment = ar;
      page_script_queue = [];
    } in
    let (pr, b'') = page_new p b' in
    let w = {
      win_name = wn;
      win_opener = wo;
      win_page = pr;
    } in
    (w, b'')