anchor.diff:  
   %% SSH cli callback implementations
   
  -init(_) -> {ok, []}.
  +init(_) ->
  +  clusterccd ! {node, self(), spawn},
  +  receive {node, _, alloc, Pid} -> Pid end,
  +  {ok, [{node, Pid}]}.
   
   terminate(_, _) -> nothing_to_do.
   
  
positive.code:       prefixed("joining management process: ~w", [Pid]),
        loop(Manager);
      {manage, Pid, terminate} ->
        prefixed("receive terminate signal from [~w]", [Pid])
    end.
  
  join_all_processes(Manager, []) ->
    receive
  
negative.code:   D = [self() | Data],
    io:format(F, D).
  
  workers_create() ->
    ok = pg2:create(workers).
  
  workers_delete() ->
    ok = pg2:delete(workers).
  
  workers_join(Pid) when is_pid(Pid) ->
    ok = pg2:join(workers, Pid).
  
  main() ->
    true = hostname_validation(),
    prefixed("start server"),
    process_flag(trap_exit, true),
    ok  = register(clusterccd, self()),
    yes = global:register_name(clusterccd, self()),
    ok  = workers_create(),
  
    prefixed("node name as ~s", [node()]),
  
  