anchor.diff:  %%--------------------------------------------------------------------
   init([]) ->
     Tid = ets:new(profiling, [set, {keypos, 2}]),
  -  {ok, #state{ets=Tid}}.
  +  Bal = ets:new(balance, [set]),
  +  {ok, #state{ets=Tid, balance=Bal}}.
   
   %%--------------------------------------------------------------------
   %% @spec 
  
positive.code: handle_call(table, _From, State = #state{ets=Ets}) ->
    {reply, Ets, State};
    
  handle_call(averages, _From, State = #state{ets=Ets}) ->
    List = ets:foldl(fun(#profile{name=Name,count=Count,sum=Sum}, List) ->
        [{Name, Sum/Count}|List]
      end, [], Ets),
    {reply, List, State}.
  
  %%--------------------------------------------------------------------
  %% @spec handle_cast(Msg, State) -> {noreply, State} |
  
negative.code: -behaviour(gen_server).
  
  %% API
  -export([start_link/0, start_prof/1, stop_prof/1, stats/1, averages/0, balance_prof/0]).
  
  %% gen_server callbacks
  -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
           terminate/2, code_change/3]).
  
  -record(state, {ets,balance}).
  
  -record(profile, {name, count, sum}).
  
  