anchor.diff:  request(Socket, Body) ->
       case gen_tcp:recv(Socket, 0, ?IDLE_TIMEOUT) of
           {ok, {http_request, Method, Path, Version}} ->
  -            headers(Socket, {Method, Path, Version}, [], Body);
  +            headers(Socket, {Method, Path, Version}, [], Body, 0);
           {error, {http_error, "\r\n"}} ->
               request(Socket, Body);
           {error, {http_error, "\n"}} ->
  
positive.code: 
  -define(IDLE_TIMEOUT, 30000).
  
  -define(DEFAULTS, [{name, ?MODULE},
                     {port, 8888}]).
  
  
negative.code:                     ?MODULE:loop(Socket, Body)
              end;
          {ok, {http_header, _, Name, _, Value}} ->
              headers(Socket, Request, [{Name, Value} | Headers], Body,
                      1 + HeaderCount);
          _Other ->
              gen_tcp:close(Socket),
              exit(normal)
  