anchor.diff:  		{Type, Used} = lists:keyfind(Type, 1, DebitAmount),
   		case charge(Type, Used, true, Buckets) of
   			{R1, C1, NB1} when R1 > 0 ->
  -				{R2, C2, NB2}  = purchase(Type, Price, Size, Used - C1, Validity, true, NB1),
  +				{R2, _C2, NB2}  = purchase(Type, Price, Size, Used - C1, Validity, true, NB1),
   				{R2, NB2};
  -			{R1, C1, NB1} ->
  +			{R1, _C1, NB1} ->
   				{R1, NB1}
   		end
   	of
  
positive.code: 			throw(price_not_found)
  	end.
  %% @hidden
  rate3(#subscriber{session_attributes = SessionList, name = Sub} = Subscriber,
  		Charged, Flag, ReserveAmount, SessionIdentification) ->
  	case Charged of
  		C1 when C1 > 0 ->
  
negative.code: 		{Type, Reserve} = lists:keyfind(Type, 1, ReserveAmount),
  		case charge(Type, Reserve, false, Buckets) of
  			{R1, C1, NB1} when R1 > 0 ->
  				{R2, _C2, NB2} = purchase(Type, Price, Size, Reserve - C1, Validity, false, NB1),
  				{R2, NB2, Reserve};
  			{R1, _C1, NB1} ->
  				{R1, NB1, Reserve}
  		end
  	of
  