anchor.diff:  	P1 = price(usage, octets, rand:uniform(1000000), rand:uniform(100)),
   	OfferId = add_offer([P1], 4),
   	ProdRef = add_product(OfferId),
  -	Service = add_service(Name, ProdRef),
  +	_Service = add_service(Name, ProdRef),
   	DEA = send_diameter_identity(SId, EapId, PeerId1),
   	SIdbin = list_to_binary(SId),
   	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  
positive.code: 			'EAP-Payload' = [Payload]} = DEA,
  	NextEapId = EapId + 1,
  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = EapData} = ocs_eap_codec:eap_packet(Payload).
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  
negative.code: 		#service{password = #aka_cred{k = K, opc = OPc, dif = DIF}}, Identity) ->
  	EapMsg = radius_access_challenge(Socket, Address, Port,
  			Secret, RadId, ReqAuth),
  	EapPacket = #eap_packet{code = request, type = ?AKAprime, identifier = EapID,
  			data = EapData} = ocs_eap_codec:eap_packet(EapMsg),
  	#eap_aka_challenge{rand = RAND, autn = _AUTN, mac = _MAC} = ocs_eap_codec:eap_aka(EapData),
  	{_XRES, CK, IK, <<AK:48>>} = ocs_milenage:f2345(OPc, K, RAND),
  