anchor.diff:  	SPwd = {"servicePassword", binary_to_list(Password)},
   	NewChars = lists:keystore("servicePassword", 1, Chars, SPwd),
   	inventory(T, Service, NewChars, Acc);
  -inventory([password | T], #service{password = Password} = Service, Chars, Acc) ->
  -	SPwd = {"servicePassword", Password},
  -	NewChars = lists:keystore("servicePassword", 1, Chars, SPwd),
  -	inventory(T, Service, NewChars, Acc);
  +inventory([password | T],
  +		#service{password = #aka_cred{k = K, opc = OPc}} = Service,
  +		Chars, Acc) ->
  +	NewChars = lists:keystore("serviceAkaK", 1, Chars,
  +			{"serviceAkaK", K}),
  +	NextChars = lists:keystore("serviceAkaOPc", 1, NewChars,
  +			{"serviceAkaOPc", OPc}),
  +	inventory(T, Service, NextChars, Acc);
   inventory([multisession | T], #service{multisession = MultiSession} =
   		Service, Chars, Acc) ->
   	MS = {"multiSession", MultiSession},
  
positive.code: inventory([characteristics | T],
  		#service{characteristics = []} = Service, Chars, Acc) ->
  	inventory(T, Service, Chars, Acc);
  inventory([characteristics | T], #service{characteristics = Chars1} =
  		Service, Chars2, Acc) ->
  	NewChars = Chars1 ++ Chars2,
  	inventory(T, Service, NewChars, Acc);
  inventory([_ | T], Service, Chars, Acc) ->
  
negative.code: 	Value6 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type6]}]}},
  	Char6 = {struct, [Name6, Description6, Config6, Type6, Value6]},
  	Name7 = {"name", "serviceAkak"},
  	Description7 = {"description", "AKA K"},
  	Config7 = {"configurable", true},
  	Type7 = {"valueType", "String"},
  	Value7 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type7]}]}},
  	Char7 = {struct, [Name7, Description7, Config7, Type7, Value7]},
  	Name8 = {"name", "serviceAkaOPc"},
  	Description8 = {"description", "AKA OPc"},
  	Config8 = {"configurable", true},
  	Type8 = {"valueType", "String"},
  	Value8 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type8]}]}},
  