anchor.diff:      Parc = <<ProxyPort:16, MLLBytes:32, MLL/binary, Body/binary>>,
       Sock = get(sock),
       gen_tcp:send(Sock, Parc),
  -    {ok, <<"ok", _/binary>>} = gen_tcp:recv(Sock, 0),
  +    {ok, <<"ok">>} = gen_tcp:recv(Sock, 0),
       Sluice = get(sluice),
       case Msgs of
           [] ->
  
positive.code: -export([init/1, empty/2, ready/2, full/2,
           handle_event/3, handle_sync_event/4, handle_info/3,
           terminate/3, code_change/4]).
  
  -record(state, {count = 0, mll = <<>>, body = <<>>, msgs = []}).
  
  
negative.code: concat({Count, MLL, Body, [Msg|More]}) ->
      {NewMLL, NewBody} = append_to_binary(MLL, Body, Msg),
      NewState = {Count+1, NewMLL, NewBody, More},
      case byte_size(NewMLL) + byte_size(NewBody) of
          X when X >= ?PARC_MAX_MEM ->
              {next_state, full, NewState#state{msgs = reverse(More)}};
          _ -> case (Count + 1) of
              ?PARC_MAX_MSG ->
                  {next_state, full, NewState#state{msgs = reverse(More)}};
              _ -> concat(NewState)
          end
      end.
  