anchor.diff:      io:format("Spawning ~p processes~n", [Limit]),
       {StartMicro, {ok, FirstPid, LastPid}} = timer:tc(ring, create, [Limit]),
       io:format("Started ~p processes in ~p seconds~n", [Limit, StartMicro/1000000]),
  +
       ProcMemStarted = proplists:get_value(processes_used, erlang:memory()),
       io:format("Memory usage: ~p bytes~n", [ProcMemStarted - ProcMemInit]),
   
  
positive.code:             Pid ! {stop, self()}
      end;
  start_process(Count, ManagerPid) ->
      dbg("~p.", [Count]),
      NextPid = spawn(ring, start_process, [Count-1, ManagerPid]),
      %% Wait for a stop message
      receive
  
negative.code:     receive
          {stop, LastPid} -> ok
      end.
  