anchor.diff:  
   -define(IDLE_TIMEOUT, 30000).
   
  +-define(MAX_HEADERS, 1000).
   -define(DEFAULTS, [{name, ?MODULE},
                      {port, 8888}]).
   
  
positive.code: request(Socket, Body) ->
      case gen_tcp:recv(Socket, 0, ?IDLE_TIMEOUT) of
          {ok, {http_request, Method, Path, Version}} ->
              headers(Socket, {Method, Path, Version}, [], Body);
          {error, {http_error, "\r\n"}} ->
              request(Socket, Body);
          {error, {http_error, "\n"}} ->
  
negative.code:             exit(normal)
      end.
  
  headers(Socket, Request, Headers, _Body, ?MAX_HEADERS) ->
      %% Too many headers sent, bad request.
      inet:setopts(Socket, [{packet, raw}]),
      Req = mochiweb:new_request({Socket, Request,
                                  lists:reverse(Headers)}),
      Req:respond({400, [], []}),
      gen_tcp:close(Socket),
      exit(normal);
  headers(Socket, Request, Headers, Body, HeaderCount) ->
      case gen_tcp:recv(Socket, 0, ?IDLE_TIMEOUT) of
          {ok, http_eoh} ->
              inet:setopts(Socket, [{packet, raw}]),
  