anchor.diff:  
       Orphaned = sets:fold(GraphFun, [], Nodes),
   
  -    {SymmetricViews, VisitedNames} = breath_first(ServerName, Graph, ordsets:new()),
  +    {SymmetricViews, VisitedNames} = breath_first(node(), Graph, ordsets:new()),
       AllNodesVisited = sets:size(Nodes) == length(VisitedNames),
   
       Connected = SymmetricViews andalso AllNodesVisited,
  
positive.code:     ClientsFromMarathon = clients_from_marathon(),
      ServersFromMarathon = servers_from_marathon(),
      Nodes = sets:union(ClientsFromMarathon, ServersFromMarathon),
      [{ServerName, _, _}|_] = sets:to_list(ServersFromMarathon),
  
      %% Build the graph.
      Graph = digraph:new(),
  
negative.code:     %% If not, stop traversal
      In = ordsets:from_list(digraph:in_neighbours(Graph, Root)),
      Out = ordsets:from_list(digraph:out_neighbours(Graph, Root)),
  
      lager:info("In ~p, root ~p", [In, Root]),
      lager:info("Out ~p, root ~p", [Out, Root]),
  
      Visited1 = ordsets:union(Visited0, [Root]),
  
  