anchor.diff:          end)
       end, WorkerInfo),
       %% wait
  -    wait_register_on_node(CollectorPid, 0, WorkersPerNode).
  +    Time = wait_done_on_node(CollectorPid, 0, WorkersPerNode),
  +    io:format("----> Registered on node ~p on ~p secs.~n", [node(), Time]).
   
   worker_register_on_node(_Name, []) -> ok;
   worker_register_on_node(Name, [Pid | PidsTail]) ->
       ok = syn:register(Name, Pid),
       worker_register_on_node(Name + 1, PidsTail).
  -
  -wait_register_on_node(CollectorPid, Time, 0) ->
  -    io:format("----> Registered on node ~p on ~p secs.~n", [node(), Time]),
  -    CollectorPid ! {done, node(), Time};
  -wait_register_on_node(CollectorPid, Time, WorkersRemainingCount) ->
  -    receive
  -        {done, WorkerTime} ->
  -            Time1 = lists:max([WorkerTime, Time]),
  -            wait_register_on_node(CollectorPid, Time1, WorkersRemainingCount - 1)
  -    end.
   
   unregister_on_node(CollectorPid, WorkersPerNode, FromName, ToName) ->
       %% split pids in workers
  
positive.code:     io:format("      --> MIN: ~p secs.~n", [lists:min(UnregRemoteNodesTimes)]),
      io:format("      --> MAX: ~p secs.~n", [lists:max(UnregRemoteNodesTimes)]),
  
      {UnregPropagationTimeMs, _} = timer:tc(?MODULE, wait_unregistration_propagation, []),
      UnregPropagationTime = UnregPropagationTimeMs / 1000000,
      io:format("----> Eventual additional time to propagate all to master: ~p secs.~n", [UnregPropagationTime]),
  
  
negative.code:     io:format("      --> MIN: ~p secs.~n", [lists:min(RegRemoteNodesTimes)]),
      io:format("      --> MAX: ~p secs.~n", [lists:max(RegRemoteNodesTimes)]),
  
      {RegPropagationTimeMs, _} = timer:tc(?MODULE, wait_registry_propagation, [ProcessCount]),
      RegPropagationTime = RegPropagationTimeMs / 1000000,
      io:format("----> Eventual additional time to propagate all to master: ~p secs.~n", [RegPropagationTime]),
  
  