anchor.diff:  
   encode(Msg) ->
      encode(Msg, new()).
  -encode(Msg, Http) ->
  -   encode(Msg, [], Http).
  +encode(Msg, #http{}=S) ->
  +   encode(Msg, [], S).
   
   
   
  
positive.code:    encode_chunk(Pckt, Acc, S);
  
  encode(_Pckt, Acc, #http{is=eof}=S) ->
     {lists:reverse(Acc), S}.
  
  %%
  encode_http('OPTIONS', Msg, S) -> encode_http_request(Msg, S);
  
negative.code: encode_chunk(Chunk, Acc, S) ->
     Size = integer_to_list(size(Chunk), 16),
     Chnk = iolist_to_binary([<<(list_to_binary(Size))/binary, $\r, $\n>>, Chunk, <<$\r, $\n>>]),
     encode_result([Chnk | Acc], S).
  
  %%
  encode_version({Major, Minor}) ->
  