anchor.diff:    end;
     
   execute_command("del", Socket) ->
  -  Key = read_length_data(Socket),
  +  Key = binary_to_list(read_length_data(Socket)),
     case mediator:delete(Key) of
       {ok, N} -> send_msg(Socket, "succ", N);
       {failure, Reason} -> send_failure(Socket, Reason)
  
positive.code:   end;
    
  execute_command("put", Socket) ->
    Key = read_length_data(Socket),
    ContextData = read_length_data(Socket),
    Context = if
      erlang:byte_size(ContextData) > 0 -> binary_to_term(ContextData);
  
negative.code:   end;
    
  execute_command("has", Socket) ->
    Key = binary_to_list(read_length_data(Socket)),
    case mediator:has_key(Key) of
      {ok, {true, N}} -> send_msg(Socket, "yes", N);
      {ok, {false, N}} -> send_msg(Socket, "no", N);
  