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: %% @doc Handling cast messages
  %% @end 
  %%--------------------------------------------------------------------
  handle_cast({balance, Pid, Time}, State = #state{balance=Ets}) ->
    case ets:lookup(Ets, Pid) of
      [] -> ets:insert(Ets, {Pid, 1});
      [{Pid, Count}] -> ets:insert(Ets, {Pid, Count+1})
    end,
    {noreply, State};
  
  handle_cast({start, Pid, Id, Time}, State = #state{ets=Ets}) ->
    put({Pid,Id}, Time),
    {noreply, State};
  