anchor.diff:  symm4_slide_succ_rcv_load(_Config) ->
       stop_time(fun() ->
                         BenchPid = erlang:spawn(fun() -> bench:increment(10, 10000) end),
  -                      symm4_slide_load_test(1, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, 50),
  -                      symm4_slide_load_test(2, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, 50),
  -                      symm4_slide_load_test(3, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, 50),
  -                      symm4_slide_load_test(4, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, 50),
  +                      symm4_slide_load_test(1, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, ?NUM_SLIDES),
  +                      symm4_slide_load_test(2, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, ?NUM_SLIDES),
  +                      symm4_slide_load_test(3, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, ?NUM_SLIDES),
  +                      symm4_slide_load_test(4, succ, "slide_succ_rcv", fun id_my_to_succ_1_100/6, ?NUM_SLIDES),
                         erlang:exit(BenchPid, 'kill'),
                         util:wait_for_process_to_die(BenchPid)
                 end, "symm4_slide_succ_rcv_load"),
  
positive.code: symm4_slide_pred_rcv_load(_Config) ->
      stop_time(fun() ->
                        BenchPid = erlang:spawn(fun() -> bench:increment(10, 10000) end),
                        symm4_slide_load_test(1, pred, "slide_pred_rcv", fun id_predspred_to_pred_99_100/6, 50),
                        symm4_slide_load_test(2, pred, "slide_pred_rcv", fun id_predspred_to_pred_99_100/6, 50),
                        symm4_slide_load_test(3, pred, "slide_pred_rcv", fun id_predspred_to_pred_99_100/6, 50),
                        symm4_slide_load_test(4, pred, "slide_pred_rcv", fun id_predspred_to_pred_99_100/6, 50),
                        erlang:exit(BenchPid, 'kill'),
                        util:wait_for_process_to_die(BenchPid)
                end, "symm4_slide_pred_rcv_load"),
  
negative.code: symm4_slide_load_test_slide(DhtNode, PredOrSucc, TargetId, Tag, NthNode, N, Node, Other) ->
      comm:send_local(DhtNode, {move, start_slide, PredOrSucc, TargetId, Tag, self()}),
      receive
          ?SCALARIS_RECV(
          {move, result, Tag, ok}, begin
                                       %% ct:pal("~p.~p ~.0p -> ~.0p~n", [NthNode, N, node:id(Node), TargetId]),
                                       ok
                                   end);
          ?SCALARIS_RECV({move, result, Tag, Result},
                         begin
                             case lists:member(Result, [ongoing_slide, wrong_pred_succ_node]) of
                                 true ->
                                     ct:pal("slide_~.0p(~B.~B, ~.0p, ~.0p, ~.0p) result: ~.0p~nretrying...~n",
                                            [PredOrSucc, NthNode, N, Node, Other, TargetId, Result]),
                                     timer:sleep(100), % wait a bit before trying again
                                     symm4_slide_load_test_slide(DhtNode, PredOrSucc, TargetId, Tag, NthNode, N, Node, Other);
                                 _ ->
                                     ?ct_fail("slide_~.0p(~B.~B, ~.0p, ~.0p, ~.0p) result: ~.0p",
                                              [PredOrSucc, NthNode, N, Node, Other, TargetId, Result])
                             end
                         end);
          ?SCALARIS_RECV(X,
                         ?ct_fail("slide_~.0p(~B.~B, ~.0p, ~.0p, ~.0p) unexpected message: ~.0p",
                                  [PredOrSucc, NthNode, N, Node, Other, TargetId, X]))
      end.
  
  -spec stop_time(F::fun(() -> any()), Tag::string()) -> ok.
  