anchor.diff:      List = lists:seq(1, NrProcesses),
       plists:foreach(Fun, List).
   
  +run_test(0, _St, _NrProc, _RequestsNr, _UseOneSatement) ->
  +    ok;
  +
  +run_test(RepeatNr, St, NrProc, RequestsNr, UseOneSatement) ->
  +    load_test(St, NrProc, RequestsNr, UseOneSatement),
  +    run_test(RepeatNr -1, St,  NrProc, RequestsNr, UseOneSatement).
  +
   profile(NrProc, RequestsNr, UseOneSatement) ->
  +    profile(NrProc, RequestsNr, 1, UseOneSatement).
  +
  +profile(NrProc, RequestsNr, RepeatNumber, UseOneSatement) ->
       eprof:start(),
       eprof:start_profiling([self()]),
       Rs = start(),
  
positive.code:             undefined
      end.
  
  load_test(1, NrReq, UseOneSatement) ->
      St = get_statement(UseOneSatement),
      producer_loop(St, NrReq, UseOneSatement),
      consumer_loop(0, 0, 0, NrReq);
  
  load_test(NrProcesses, NrReq, UseOneSatement) ->
      ReqPerProcess = round(NrReq/NrProcesses),
  
      Fun = fun(_X) ->
          St = get_statement(UseOneSatement),
          producer_loop(St, ReqPerProcess, UseOneSatement),
          consumer_loop(0, 0, 0, ReqPerProcess)
      end,
  
negative.code:             ok
      end,
  
      St = get_statement(UseOneSatement),
  
      {Time, _} = timer:tc( fun() -> run_test(RepeatNumber, St, NrProc, RequestsNr, UseOneSatement) end),
  
      io:format("Cpp Driver Metrics: ~p ~n", [erlcass:get_metrics()]),
      eprof:stop_profiling(),
  