anchor.diff:  quantity({struct, [{"units", "cents"}, {"amount", Amount}]}) ->
   	#quantity{units = cents, amount = ocs_rest:millionths_in(Amount)};
   quantity({struct, [{"amount", Amount}, {"units", Units}]}) when is_list(Amount) ->
  -	#quantity{units = units(Units), amount = list_to_integer(Amount)};
  +	quantity({struct, [{"units", Units}, {"amount", Amount}]});
   quantity({struct, [{"amount", Amount}, {"units", Units}]}) ->
  -	#quantity{units = units(Units), amount = Amount};
  -quantity({struct, [{"units", Units}, {"amount", Amount}]}) when is_list(Amount) ->
  +	quantity({struct, [{"units", Units}, {"amount", Amount}]});
  +quantity({struct, [{"units", Units}, {"amount", Amount}]}) when is_list(Amount)->
   	Units1 = units(Units),
   	case lists:last(Amount) of
   		$b when Units1 == octets ->
  
positive.code: 
  -export([get_bucket/1, get_buckets/2]).
  -export([abmf/1, adjustment/1]).
  
  -include("ocs.hrl").
  
  
negative.code: 			#quantity{units = Units1, amount = list_to_integer(N) * 1000000000};
  		$s when Units1 == seconds ->
  			N = lists:sublist(Amount, length(Amount) - 1),
  			#quantity{units = Units1, amount = list_to_integer(N)};
  		_ ->
  			#quantity{units = units(Units), amount = list_to_integer(Amount)}
  	end;
  quantity({struct, [{"units", Units}, {"amount", Amount}]}) ->
  	#quantity{units = units(Units), amount = Amount};
  