anchor.diff:  -define(DESCRIBE, $D).
   -define(EXECUTE, $E).
   -define(FLUSH, $H).
  +-define(PASSWORD, $p).
   -define(PARSE, $P).
   -define(SIMPLEQUERY, $Q).
   -define(AUTHENTICATION_REQUEST, $R).
  
positive.code: 
  %% AuthenticationCleartextPassword
  auth({?AUTHENTICATION_REQUEST, <<3:?int32>>}, State) ->
      send(State, $p, [get(password), 0]),
      {noreply, State};
  
  %% AuthenticationMD5Password
  auth({?AUTHENTICATION_REQUEST, <<5:?int32, Salt:4/binary>>}, State) ->
      Digest1 = hex(erlang:md5([get(password), get(username)])),
      Str = ["md5", hex(erlang:md5([Digest1, Salt])), 0],
      send(State, $p, Str),
      {noreply, State};
  
  auth({?AUTHENTICATION_REQUEST, <<M:?int32, _/binary>>}, State) ->
  
negative.code:     {noreply, State2};
  
  %% ReadyForQuery
  on_message({?READY_FOR_QUERY, <<Status:8>>}, State) ->
      State2 = case command_tag(State) of
                   squery ->
                       case State#state.results of
  