anchor.diff:  -export([session_creation_body/2, session_creation_body/5,
            session_termination_body/2,
            empty_body/2, empty_body/3]).
  +
  +%% Low level API
  +-export([send_raw/2]).
   
   -define(WAIT_FOR_SOCKET_CLOSE_TIMEOUT, 200).
   -define(SERVER, ?MODULE).
  
positive.code: 
  pack_rid(Rid) ->
      list_to_binary(integer_to_list(Rid)).
  
  %%%===================================================================
  %%% gen_server callbacks
  
negative.code:     {stop, normal, State};
  handle_cast({send, Transport, Elem}, State) ->
      NewState = send0(Transport, Elem, State),
      {noreply, NewState};
  handle_cast({send_raw, Transport, Body}, State) ->
      NewState = send(Transport, Body, State),
      {noreply, NewState};
  handle_cast(reset_parser, #state{parser = Parser} = State) ->
      {ok, NewParser} = exml_stream:reset_parser(Parser),
  