anchor.diff:              server_loop(Pongs);
           {kickoff, Pid, NumPings} ->
               lists:foreach(fun({_, P}) -> spawn(distributed, ping_loop, [Pid, P]) ! {kickoff, NumPings} end, Pongs),
  -            server_loop(Pongs)
  +            server_loop(Pongs);
  +        _ -> server_loop(Pongs)
       end.
   
   server_mode() ->
  
positive.code:         after 10000 -> error(timeout)
      end.
  
  % receive a {done} message for each node
  client_mode([], [], [], _) -> true;
  client_mode([], [], [_|T], NumPings) ->
      receive done ->
          client_mode([], [], T, NumPings)
      end;
  
  % send kickoff messages
  client_mode([Pong|Pongs], [], Nodes, NumPings) ->
  
negative.code:             ping_loop(Parent, Pong);
          {kickoff, X} ->
              Pong ! {ping, self(), X},
              ping_loop(Parent, Pong);
          _ -> ping_loop(Parent, Pong)
      end.
  
  server_loop(Pongs) ->
  