anchor.diff:  handle_payload({replay, #seto_replay{seq=Seq}}, #s{session=Sess, sock=Sock} = State) ->
     smk_example_message_cache:map_from(Sess, Seq,
       fun(Msg) ->
  +      io:format("Resending ~p~n", [replay_msg(Msg)]),
         sock_send(Sock, replay_msg(Msg))
       end),
     State;
   
  -handle_payload({login_response, #seto_login_response{session=Sess}}, State) ->
  -  io:format("Logged in as ~p~n", [Sess]),
  -  State#s{session=Sess};
  +handle_payload({login_response, _} = Payload, State) ->
  +  login_payload(Payload, State);
   
   handle_payload(pong, State) ->
     io:format(" p", []),
  
positive.code:       {stop, Reason}
    end.
  
  handle_call(Payload, _From, State0) ->
    {Reply, State} = send_call(Payload, State0),
    {reply, Reply, State}.
  
negative.code: %% API Function Exports
  %% ------------------------------------------------------------------
  
  -export([start_link/1, stop/1, seq/1]).
  
  %% send payloads
  -export([ping/1, order/6, order_cancel/2]).
  