anchor.diff:  
   %% @hidden
   price(Type, Units, Size, Amount) ->
  -	#price{name = ocs:generate_identity(),
  +	Name = ocs:generate_identity(),
  +	#price{name = Name,
   			type = Type, units = Units,
   			size = Size, amount = Amount}.
   
  
positive.code: add_offer(Prices, Spec) when is_integer(Spec) ->
  	add_offer(Prices, integer_to_list(Spec));
  add_offer(Prices, Spec) ->
  	Offer = #offer{name = ocs:generate_identity(),
  			price = Prices, specification = Spec},
  	{ok, #offer{name = OfferId}} = ocs:add_offer(Offer),
  	OfferId.
  
negative.code: 	{EapId, ServerId}.
  
  %% @hidden
  receive_radius_id1(Socket, Address, Port, Secret, ReqAuth, RadId,
  		#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),
  	SQN = sqn(DIF),
  	<<CKprime:16/binary, IKprime:16/binary>> = kdf(CK, IK, "WLAN", SQN, AK),
  	<<_:16/binary, Kaut:32/binary, _:32/binary, _:64/binary,
                          _:64/binary, _/binary>> = prf(<<IKprime/binary,
  	CKprime/binary>>, <<"EAP-AKA'", Identity/binary>>, 7),
          EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  	MAC = crypto:hmac(sha256, Kaut, EapMessage1 , 16).
  
  %% @hidden
  send_radius_identity(Socket, Address, Port, NasId,
  		PeerId, Secret, Auth, EapId, RadId) ->
  	EapPacket  = #eap_packet{code = response, type = ?Identity,
  