anchor.diff:      ets:insert(Name, [
           {version, 0},
           {limit, Limit},
  +        {burst, 5 * Limit},
           {fair, Limit},
  -        {tokens, Limit},
  +        {tokens, Limit * 5},
           {timer, TRef}]),
       ok.
   
  
positive.code:     ets:update_counter(Name, version, {2,1,16#FFFF,0}),
      %% Add Limit number of tokens to the bucket at the start of each interval.
      Limit = ets:lookup_element(Name, limit, 2),
      %% @todo Cap the token counter to Limit multiple a number of intevals to
      %% protect us from huge bursts after idle intervals. Use 5 intervals as
      %% a reasonable default for now.
      Cap = Limit * 5,
      ets:update_counter(Name, tokens, {2,Limit,Cap,Cap}).
  
  
  %% @doc Add the current process as the member of a flow.
  
negative.code: %% @end
  -spec join(atom()) -> ok.
  join(_Name) ->
      random:seed(now()),
      ok.
  
  
  