anchor.diff:      put(recv,    Times+1),
       case Res of
   	{ok, _} ->
  -	    Info = if
  -		       is_port(S) -> erlang:port_info(S);
  -		       true -> gen_tcp_socket:info(S)
  -		   end,
  -	    case inet:getstat(S) of
  -		{ok, Stat} ->
  -		    {_, R} = lists:keyfind(recv_oct, 1, Stat),
  -		    case (R < Received) of
  -			true ->
  -			    ?P("[acceptor] recv counter error:"
  -			       "~n      Recv Cnt:  ~p"
  -			       "~n      Received:  ~p"
  -			       "~n      Times:     ~p"
  -			       "~n      Stat:      ~p"
  -			       "~n      Last Stat: ~p"
  -			       "~n      Info:      ~p"
  -			       "~n      Last Info: ~p",
  -			       [R, Received, Times, Stat,
  -				LastStat, Info, LastInfo]),
  -			    (catch gen_tcp:close(S)),
  -			    {error, {output_counter, R, Received, Times}};
  -			false ->
  -			    case Times rem 16#FFFFF of
  -				0 ->
  -				    ?P("[acceptor] read: ~p"
  -                                       "~n      Times: ~w"
  -                                       "~n      Stat:  ~p"
  -                                       "~n      Info:  ~p",
  -                                       [R, Times, Stat, Info]);
  -				_ ->
  -				    ok
  -			    end,
  -			    oct_aloop(S, Stat, Info, R, Times+1)
  -		    end;
  -		{error, StatReason} ->
  -		    ?P("[acceptor] get stat failed:"
  -		       "~n      Reason:   ~p"
  -		       "~n   when"
  -		       "~n      Received: ~p"
  -		       "~n      Times:    ~p", [StatReason, Received, Times]),
  -		    (catch gen_tcp:close(S)),
  -		    exit({error, {stat_failure, StatReason, Received, Times}})
  -	    end;
  +            #{counters := #{recv_oct := R} = _Stat} = Info = inet:info(S),
  +            case (R < Received) of
  +                true ->
  +                    ?P("[acceptor] recv counter error:"
  +                       "~n      Recv Cnt:  ~p"
  +                       "~n      Received:  ~p"
  +                       "~n      Times:     ~p"
  +                       "~n      Info:      ~p"
  +                       "~n      Last Info: ~p",
  +                       [R, Received, Times, Info, LastInfo]),
  +                    (catch gen_tcp:close(S)),
  +                    {error, {output_counter, R, Received, Times}};
  +                false ->
  +                    case Times rem 16#FFFFF of
  +                        0 ->
  +                            ?P("[acceptor] read: ~p"
  +                               "~n      Times: ~w"
  +                               "~n      Info:  ~p",
  +                               [R, Times, Info]);
  +                        _ ->
  +                            ok
  +                    end,
  +                    oct_aloop(S, Info, R, Times+1)
  +            end;
  +
   	{error, RecvReason} ->
   	    ?P("[acceptor] receive failed:"
   	       "~n      Reason:   ~p"
  
positive.code:     end.
  
  wc_await_completion(Acceptor, ASock, Pump, PSock) ->
      receive
          {'EXIT', Pump, Res} ->
              ?P("[ctrl] Received pump exit: "
                 "~n      ~p", [Res]),
              Res;
          {'EXIT', Acceptor, Res} ->
              ?P("[ctrl] Received unexpected acceptor exit: "
                 "~n      ~p", [Res]),
              wc_await_completion(undefined, ASock, Pump, PSock)
                  
      after 10000 ->
              ASockStat = wc_sock_stat(ASock),
              AccInfo   = wc_proc_info(Acceptor),
              PSockStat = wc_sock_stat(PSock),
              PumpInfo  = wc_proc_info(Pump),
              ?P("Info: "
                 "~n   Acceptor Socket Stat: ~p"
                 "~n   Acceptor Info:        ~p"
                 "~n   Pump Socket Stat:     ~p"
                 "~n   Pump Info:            ~p",
                 [ASockStat, AccInfo, PSockStat, PumpInfo]),
              wc_await_completion(Acceptor, ASock, Pump, PSock)
      end.
              
  wc_sock_stat(S) ->
      inet:getstat(S).
  
  wc_proc_info(P) when is_pid(P) ->
      try erlang:process_info(P)
  
negative.code:     {ok, [{recbuf,RecBuf}]} = inet:getopts(ASock, [recbuf]),
      ?P("[acceptor] connection accepted - start receiving with: "
         "~n      RecBuf: ~w", [RecBuf]),
      put(action,  nothing),
      put(recv,    0),
      put(elapsed, 0),
      oct_aloop(ASock, inet:info(ASock), 0, 0).
  
  oct_aloop(S, LastInfo, Received, Times) ->
      put(action, recv),
      Start   = erlang:monotonic_time(),
      Res     = gen_tcp:recv(S, 0),
  