anchor.diff:              io:format("show prbr statistics for node to be killed~n"),
               lease_checker2:get_kv_db(RandomNode),
   
  +            ct:pal("PRBR state before node is removed"),
  +            print_prbr_data(),
  +
               %% get relative range of node to remove and check if it is not to large
               {true, LL} = lease_checker:get_dht_node_state_unittest(comm:make_global(RandomNode), lease_list),
               NodeRange = l_on_cseq:get_range(lease_list:get_active_lease(LL)),
               RelativeRange = lease_checker:get_relative_range_unittest(NodeRange),
  -            ct:pal("Interval of node to be removed:~nNode Interval ~p~n"
  -                   "Relative Range ~p", [NodeRange, RelativeRange]),
  +            ct:pal("Statistics of removed node ~p~n"
  +                   "Interval of node to be removed:~nNode Interval ~p~n"
  +                   "Relative Range ~p", [RandomNode, NodeRange, RelativeRange]),
   
               R = config:read(replication_factor),
               SaveFraction = quorum:minority(R) / R,
  
positive.code:     config:read(replication_factor).
  
  all() -> [
            {group, make_ring_group},
            {group, remove_node_group}
           ].
  groups() ->
  
negative.code:             true;
          X ->
              ct:pal("found ~p of 100 elements", [X]),
              Missing = lists:subtract(lists:seq(1, 100), Elements),
              ct:pal("Missing elements are:~n~p", [Missing]),
              100 = X
      end.
  
  