anchor.diff:              [Parent|LevelAcc]
           end, [], Level2),
           ?debugVal(Parents),
  -        MbrAndPosList = [{Mbr, Pos} || {Mbr, _, Pos} <- Parents];
  +        %MbrAndPosList = [{Mbr, Pos} || {Mbr, _, Pos} <- Parents];
  +        Parents;
           %{ok, [Parents|Acc]}
           %{ok, Parents}
           %Parents;
   %         Level;
       true ->
   ?debugMsg("Fooooooooooooooo"),
  -        ParentMbr = vtree:calc_nodes_mbr(Level),
  -        ChildrenPos = write_nodes(Fd, Level),
  +        %ParentMbr = vtree:calc_nodes_mbr(Level),
  +        %ChildrenPos = write_nodes(Fd, Level),
           %{ParentMbr, #node{type=inner}, ChildrenPos}
  -        [{ParentMbr, #node{type=inner}, ChildrenPos}]
  +        %[{ParentMbr, #node{type=inner}, ChildrenPos}]
  +        %[{ParentMbr, ChildrenPos}]
  +        %[{Mbr, Pos} || {Mbr, _, Pos} <- Level]
  +        Level
       end,
  -    ?debugVal(Root),
  -    {ok, Root}.
  +    ?debugVal(RootNodes),
   
   %    {ok, Pos} = couch_file:append_term(Fd, Parent),
       %{ok, Pos} = couch_file:append_term(Fd, Root),
  
positive.code:     Seedtree1 = seedtree_init(Fd, RootPos, 1),
      ?debugVal(Seedtree1),
      Seedtree2 = seedtree_insert_list(Seedtree1, Nodes1),
      {ok, ResultPos1} = seedtree_write(Fd, Seedtree2, TargetTreeHeight),
      ?debugVal(ResultPos1),
      {ok, Lookup1} = vtree:lookup(Fd, ResultPos1, {0,0,1001,1001}),
      ?assertEqual(105, length(Lookup1)),
  
      % Test 2.2: input tree is too high (2 levels)
      Nodes2 = lists:foldl(fun(I, Acc) ->
  
negative.code:     % And prepend them to the disjoint nodes
      %NewNodesMbrAndPos = lists:foldl(fun(Nodes, Acc) ->
      NewChildren = lists:foldl(fun(Nodes, Acc) ->
          %?debugVal(Nodes),
          {Mbrs, Pos} = lists:unzip(Nodes),
          %?debugVal(Pos),
          ParentMbr = vtree:calc_mbr(Mbrs),
          Meta = case is_tuple(hd(Pos)) of
              true -> #node{type=leaf};
              false -> #node{type=inner}
          end,
          %?debugVal(Meta),
  %                Fd, {ParentMbr, #node{type=inner}, Pos}),
          {ok, ParentPos} = couch_file:append_term(Fd, {ParentMbr, Meta, Pos}),
          [{ParentMbr, ParentPos}|Acc]
  