anchor.diff:                                    fs_log(PrivDir,
                                            "sched_util_runner.msacc:ServerStats",
                                            ServerStats),
  -                                  Pid ! {self(), ServerStats}
  +                                  exit({result,Tag,ServerStats})
                             end
                     end
             end),
  
positive.code:         [erlang:spawn_link(
             B, fun () -> throughput_server() end)
           || _ <- lists:seq(1, Senders)],
      ServerMsacc =
          erlang:spawn(
            B,
            fun() ->
                    receive
                        {start,Pid} ->
                            msacc:start(Time),
                            receive
                                {done,Pid} ->
                                    fs_log(PrivDir,
                                           "sched_util_runner.msacc:stats",
                                           ok),
  
negative.code:            end) || Pid <- ServerPids],
      %%
      receive after 1000 -> ok end,
      ServerMsacc ! {start,Tag,self()},
      fs_log(PrivDir, "sched_util_runner.self", self()),
      msacc:start(Time),
      fs_log(PrivDir, "sched_util_runner.msacc:start.done", ok),
      ClientMsaccStats = msacc:stats(),
      fs_log(PrivDir, "sched_util_runner.ClientMsaccStats", ClientMsaccStats),
      receive after 1000 -> ok end,
      ServerMsacc ! {done,Tag,self()},
      ServerMsaccStats =
          receive
              {'EXIT',ServerMsacc,{result,Tag,Stats}} ->
                  Stats;
              {'EXIT',ServerMsacc,Other} ->
                  exit({other,ServerMsacc,Other})
          end,
      fs_log(PrivDir, "sched_util_runner.ServerMsaccStats", ServerMsaccStats),
      %%
      {ClientMsaccStats,ServerMsaccStats, flush()}.
  
  