anchor.diff:  								B4 = #bucket{id = generate_bucket_id(),
   										start_date = StartDate, end_date = EndDate,
   										remain_amount = RemainAmount, units = Units,
  +										attributes = #{bucket_type => normal},
   										product = [ProductRef],
   										last_modified = make_lm()},
   								mnesia:write(B4),
  
positive.code: 	N = erlang:unique_integer([positive]),
  	NewBuckets = charge(ProdRef, PriceAmount + AlterAmount,
  			[#bucket{id = generate_bucket_id(), product = [ProdRef],
  				units = Units, remain_amount = Size, last_modified = {Now, N}}
  				| Buckets]),
  	subscription(Product, Now, true, NewBuckets, T);
  subscription(Product, Now, false, Buckets, [#price{type = one_time} | T]) ->
  	subscription(Product, Now, false, Buckets, T);
  
negative.code: 	N = erlang:unique_integer([positive]),
  	NewBuckets2 = charge(ProdRef, AllowanceAmount,
  			[#bucket{id = generate_bucket_id(),
  					attributes = #{bucket_type => normal},
  					units = Units, remain_amount = Size, product = [ProdRef],
  					end_date = end_period(Now, Period), last_modified = {Now, N}}
  			| NewBuckets1]),
  	Product1 = Product#product{payment = NewPayments},
  	subscription(Product1, Now, false, NewBuckets2, T);
  