anchor.diff:      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, []),
  +    {UnregPropagationTimeMs, _} = timer:tc(?MODULE, wait_registry_propagation, [0]),
       UnregPropagationTime = UnregPropagationTimeMs / 1000000,
       io:format("----> Eventual additional time to propagate all to master: ~p secs.~n", [UnregPropagationTime]),
   
  
positive.code:     end, PidsMap),
  
      %% wait all unregistered
      {KillPropagationTimeMs, _} = timer:tc(?MODULE, wait_unregistration_propagation, []),
      KillPropagationTime = KillPropagationTimeMs / 1000000,
      io:format("----> Time to propagate killed process to to master: ~p secs.~n", [KillPropagationTime]),
  
  
negative.code:     process_loop/0,
      register_on_node/4,
      unregister_on_node/4,
      wait_registry_propagation/1
  ]).
  -export([
      start_profiling/0,
  