anchor.diff:  %%%===================================================================
   %%% Helpers
   %%%===================================================================
  -handle_data(Socket, Data, #state{owner = Owner,
  +send0(#transport{socket = {Host, Port, Path}}, Elem0, #state{parser = Parser} = State) ->
  +            Headers = [{"Content-Type", "text/xml; charset-utf-8"}],
  +            Elem = wrap_elem(Elem0, State),
  +            ct:print(default, "Sending element ~p~n", [Elem]),
  +            {ok, {{StatusCode, Reason}, Hdrs, RespBody}} = 
  +                lhttpc:request(Host, Port, false, Path, 'POST', 
  +                               Headers, exml:to_iolist(Elem), infinity, []),
  +            ct:print(default,"status ~p~nhdrs ~p~nresp ~p~n",[
  +                {StatusCode, Reason}, Hdrs, RespBody
  +                ]),
  +            handle_data(RespBody, State). 
  +
  +handle_data(Data, #state{owner = Owner,
                                    parser = Parser} = State) ->
  -    {ok, NewParser, Stanzas} =
  -        exml_stream:parse(Parser, Data),
  -    NewState = State#state{parser = NewParser},
  +    {ok, Stanzas0} = exml:parse(Data),
  +    Stanzas = [Stanzas0],
  +    ct:print(default, "stanzas ~p", [Stanzas]),
       lists:foreach(fun(Stanza) ->
  -        Owner ! {stanza, transport(NewState), Stanza}
  +        Owner ! {stanza, transport(State), Stanza}
       end, Stanzas),
  -    case [StrEnd || #xmlstreamend{} = StrEnd <- Stanzas] of
  -        [] -> {noreply, NewState};
  -        __ -> {stop, normal, NewState}
  -    end.
  +    Stanzas.
   
   transport(#state{url = Url}) ->
       #transport{module = ?MODULE,
  
positive.code:     send(Socket, exml:to_iolist(StreamEnd)),
      {stop, normal, ok, State}.
  
  handle_cast(reset_parser, #state{parser = Parser} = State) ->
      {ok, NewParser} = exml_stream:reset_parser(Parser),
      {noreply, State#state{parser = NewParser}}.
  
  handle_info({tcp, Socket, Data}, State) ->
      handle_data(Socket, Data, State);
  handle_info(_, State) ->
      {noreply, State}.
  
  
negative.code:                compress = false,
                 rcv_pid = self()}.
  
  wrap_elem(#xmlstreamstart{attrs=Attrs}, _) ->
      Version = proplists:get_value(<<"version">>, Attrs, <<"1.0">>),
      Lang = proplists:get_value(<<"xml:lang">>, Attrs, <<"en">>),
      To = proplists:get_value(<<"to">>, Attrs, <<"localhost">>),
  