anchor.diff:      {Mp2, AccCallback} = read_until(Mp, <<"\r\n\r\n">>,
               fun(Next) -> acc_callback(Next, []) end),
       HeaderData = AccCallback(get_data),
  -    
  +
       Headers =
       lists:foldl(fun(Line, Acc) ->
               split_header(Line) ++ Acc
  
positive.code: 
      % launch mochiweb
      {ok, Pid} = case mochiweb_http:start(FinalOptions) of
          {ok, MochiPid} -> 
              {ok, MochiPid};
          {error, Reason} ->
              io:format("Failure to start Mochiweb: ~s~n",[Reason]),
  
negative.code:     % Fun({Length, Binary}, State)
      % called with Length == 0 on the last time.
      MochiReq:stream_body(MaxChunkSize, ChunkFun, InitState).
  
  body_length(Req) ->
      case header_value(Req, "Transfer-Encoding") of
          undefined ->
  