anchor.diff:  %%                                  {stop, Reason, State}
   %% @end
   %%--------------------------------------------------------------------
  -handle_cast(loop, State = #state{sock=S}) ->
  -    case gen_udp:recv(S, 8192, 1000) of
  +handle_cast({loop, 0}, State) ->
  +    loop(?FAST_LOOP_CNT),
  +    {noreply, State};
  +
  +handle_cast({loop, N}, State = #state{sock=S}) ->
  +    case gen_udp:recv(S, 8192, 100) of
           {ok, {_Address, _Port, D}} ->
  -            handle_data(D);
  +            handle_data(D),
  +            handle_cast({loop, N-1}, State);
           _ ->
  -            ok
  -    end,
  -    loop(),
  -    {noreply, State};
  +            loop(?FAST_LOOP_CNT),
  +            {noreply, State}
  +    end;
   
   handle_cast(_Msg, State) ->
       {noreply, State}.
  
positive.code:          terminate/2, code_change/3]).
  
  -define(SERVER, ?MODULE).
  
  -record(state, {sock, port}).
  
  
negative.code:                  32768
           end,
      {ok, Sock} = gen_udp:open(Port, [binary, {active, false}, {recbuf, RB}]),
      loop(?FAST_LOOP_CNT),
      {ok, #state{sock=Sock, port=Port}}.
  
  %%--------------------------------------------------------------------
  