anchor.diff:              A#page{e = AE}
           end,
         BPageId = page_allocate(IO),
  -      B = #page{pageid = BPageId, p0 = V#item.p, e = BE},
  +      B = #page{pageid = BPageId, p0 = item_p(V), e = BE},
         page_write(IO, A2),
         page_write(IO, B),
  -      insert(IO, N, A2#page.pageid, V#item{p = BPageId}, Path)
  +      insert(IO, N, A2#page.pageid, item_set_p(V, BPageId), Path)
     end.
   
   split(N, U, E, R) ->
  
positive.code:     {not_found, R} ->
        QPageId =
          if R =:= 0 -> AP0;
             true -> (element(R, AE))#item.p
          end,
        case delete(Cache2, N, X, QPageId) of
          {Cache3, true} ->
  
negative.code: 
  print_page(IO, #page{p0 = P0, e = E}, L) ->
    [io:format("     ") || _I <- lists:seq(1, L)],
    [io:format(" ~4w", [item_k(element(I, E))]) || I <- lists:seq(1, size(E))],
    io:format("~n"),
    print_pageid(IO, P0, L + 1),
    [print_pageid(IO, item_p(element(I, E)), L + 1) || I <- lists:seq(1, size(E))],
    ok.
  
  %%%_* Emacs ====================================================================
  