anchor.diff:  	    {ok, EncodedPayload};
   	no -> {error, {bad_string, String}}
       end;
  -payload({response, []} = Payload) ->
  +payload({response, []}) ->
       {ok, ["<?xml version=\"1.0\"?><methodResponse></methodResponse>"]};
  -payload({response, [Param]} = Payload) ->
  +payload({response, [Param]}) ->
       case encode_params([Param]) of
   	{error, Reason} -> {error, Reason};
   	EncodedParam ->
  
positive.code: 	    NewAcc = Acc++["<value>", EncodedValue, "</value>"],
  	    encode_values(Rest, NewAcc)
      end;
  encode_values([{Name, Value}|Rest], Acc) -> {error, {invalid_name, Name}};
  encode_values(UnknownMember, Acc) ->
      {error, {unknown_member, UnknownMember}}.
  
negative.code: 		      EncodedValue, "</value></member>"],
  	    encode_members(Rest, NewAcc)
      end;
  encode_members([{Name, _Value}|_Rest], _Acc) -> {error, {invalid_name, Name}};
  encode_members(UnknownMember, Acc) ->
      {error, {unknown_member, UnknownMember}}.
  
  