anchor.diff:  -behaviour(gen_cluster).
   -define (DEBUG, false).
   -define (TRACE(X, M), case ?DEBUG of
  -  true -> io:format(user, "TRACE ~p:~p ~p ~p~n", [?MODULE, ?LINE, X, M]);
  -  false -> ok
  -end).
  +                        true -> io:format(user, "TRACE ~p:~p ~p ~p~n",
  +                                          [?MODULE, ?LINE, X, M]);
  +                        false -> ok
  +                      end).
   -define (ERROR_MSG (Msg1), {"ERROR", {"Beehive could not start", Msg1}}).
   
   
  
positive.code: start_link() ->
    start(?SERVER, ?MODULE, [], []).
  start_count(Count) ->
    Pids = lists:map(fun(_X) -> {ok, Pid} = start(?MODULE, ?MODULE, [], []), Pid end, lists:seq(1,Count)),
    {ok, Pids}.
  
  % Start servers
  
negative.code: %%% Internal functions
  %%--------------------------------------------------------------------
  sort_servers_by_load(Servers) ->
    lists:sort(fun({_Node1, Load1},{_Node2, Load2}) ->
                   Load1 < Load2
               end, get_server_load(Servers, [])).
  
  get_server_load([], Acc) -> Acc;
  get_server_load([H|Rest], Acc) ->
  