anchor.diff:      Port.
   
   chunk_size(<<$;, _/binary>>, Acc) ->
  -    erlang:integer_to_list(lists:reverse(Acc), 16);
  +    erlang:list_to_integer(lists:reverse(Acc), 16);
   chunk_size(<<"\r\n">>, Acc) ->
  -    erlang:integer_to_list(lists:reverse(Acc), 16);
  +    erlang:list_to_integer(lists:reverse(Acc), 16);
   chunk_size(<<Char, Rest/binary>>, Acc) ->
       chunk_size(Rest, [Char | Acc]).
  
positive.code:                     list_to_binary(lists:reverse(Acc));
              Size ->
                      setopts(Module, Socket, [{packet, raw}]),
                      {ok, Chunk} = Module:recv(Socket, Size),
                      read_chunks(Module, Socket, [Chunk | Acc])
              end;
          {error, Reason} ->
  
negative.code:         {ok, {http_header, _, Name, _, Value}} when is_list(Name) ->
              Trailer = {Name, Value},
              read_trailers(Module, Socket, [Trailer | Hdrs]);
          {ok, http_eoh} -> Hdrs
      end.
  
  server_loop(Module, Socket, _, _, []) ->
  