anchor.diff:  
   %% Convert -> <<"666\r\n">> to normal integer
   int_offset(B) when is_binary(B) ->
  -    B2 = hd(binary:split(B, <<"\r\n">>)), % First element of binary
  +    B2 = hd(binary:split(B, ?CRLF)), % First element of binary
       binary_to_integer(B2);
   int_offset(_) ->
  -    throw("error in binary offset").+    throw("error in binary offset").
  
positive.code: init([]) ->
      process_flag(trap_exit, true),
      try initial() of
          {ok, Sock} ->
              gen_server:cast(self(), repl),
              {ok, #state{socket=Sock, state=list}};
          {error, timeout} ->
  
negative.code:     inet:setopts(Sock, [{active,once}]),
      receive
          {tcp, Sock, <<"+PONG", _/binary>>} ->
              {ok, pong, Sock};
          {tcp, Sock, Data} ->
              io:format("invalid data received '~p' ~n", [Data]),
              {error, "invalid data received for pong"};
  