anchor.diff:  -module(redis).
   
  +-export([rsize/1, rlen/1, parse/1]).
  +
  +-define(NL, "\n"). % Shortcut for new line
  +-define(TB, "\r"). % Shortcut for tabulation
   -define(CRLF, "\r\n").
  -
  --export([rsize/1, rlen/1, parse/1]).
   
   
   %%
  
positive.code: 
  parse_multibulk(<<>>, Acc) ->
      {ok, <<>>, Acc};
  parse_multibulk(<<"*", Rest/binary>>, Acc) ->
      handle_bulk(multi, Acc, parse_head(Rest, <<>>));
  parse_multibulk(A,B) ->
      io:format("A -> ~p B -> ~p ~n", [A,B]),
      {error, protocol_mismatch}.
  
  
  
negative.code:     {error, empty_stream}.
  
  
  parse_command(Cmd, IntSize) when size(Cmd) > IntSize ->
      <<Command:IntSize/binary, ?CRLF, Rest/binary>> = Cmd,
      {ok, parse, Command, Rest};
  parse_command(_, _) ->
      {error, invalid_input}.
  