anchor.diff:  %% in which state is.
   handle_sock(ok, S = #state{socket=Sock, state=list}) ->
       io:format("doing list ~n"),
  -    case recv_ok(Sock) of
  -        ok ->
  +    case recv_repl(Sock) of
  +        {ok, _} ->
               gen_server:cast(self(), capa),
               {noreply, S#state{state=eof}}; % Next state will be 'eof'
           {error, Error} ->
  
positive.code:     handle_sock(sync(Sock), S);
  
  %% LOAD RDB DATA
  handle_cast({load_rdb, Bulk}, S = #state{socket=_Sock, state=caca}) -> % FIXME
      io:format("load_rdb data -> ~p ~n", [Bulk]),
      {noreply, S};
  
  
negative.code:     {error, "invalid rdb data"}.
  
  send_pkg(Sock, Pkt) when is_list(Pkt) ->
      io:format("pkt -> ~p ~n", [Pkt]),
      gen_tcp:send(Sock, [Pkt] ++ ?CRLF);
  send_pkg(_, _) ->
      throw("cannot send invalid tcp paquet").
  