anchor.diff:  			end
   	end.
   
  +%% @hidden
  +binary_to_hex(B) ->
  +	binary_to_hex(B, []).
  +%% @hidden
  +binary_to_hex(<<N:4, Rest/bits>>, Acc) when N >= 10 ->
  +	binary_to_hex(Rest, [N - 10 + $a | Acc]);
  +binary_to_hex(<<N:4, Rest/bits>>, Acc) ->
  +	binary_to_hex(Rest, [N + $0 | Acc]);
  +binary_to_hex(<<>>, Acc) ->
  +	lists:reverse(Acc).
  +
  
positive.code: 			list_to_binary(V2);
  		false ->
  			case lists:keyfind("serviceAkaK", 1, Chars) of
  				{_, K} ->
  					case lists:keyfind("serviceAkaOPc", 1, Chars) of
  						{_, OPc} ->
  							#aka_cred{k = K, opc = OPc};
  						false ->
  							undefined
  
negative.code: 		#service{password = #aka_cred{k = K, opc = OPc}} = Service,
  		Chars, Acc) ->
  	NewChars = lists:keystore("serviceAkaK", 1, Chars,
  			{"serviceAkaK", binary_to_hex(K)}),
  	NextChars = lists:keystore("serviceAkaOPc", 1, NewChars,
  			{"serviceAkaOPc", binary_to_hex(OPc)}),
  	inventory(T, Service, NextChars, Acc);
  inventory([multisession | T], #service{multisession = MultiSession} =
  		Service, Chars, Acc) ->
  