anchor.diff:  count_metrics(Metrics) ->
       count_metrics(Metrics, 0).
   
  -count_metrics([], Count) -> Count;
  -count_metrics([#metric_file{} | Ms], Count) ->
  -    count_metrics(Ms, Count+1);
  -count_metrics([#metric_dir{contents=Cs} | Ms], Count) ->
  -    count_metrics(Ms, Count + count_metrics(Cs)).
  +count_metrics(Dict, Count) ->
  +    Sum = fun(_K, #metric_dir{dirs=Dirs, metrics=Metrics}, Acc) ->
  +                  Acc + orddict:size(Metrics) + count_metrics(Dirs)
  +          end,
  +    orddict:fold(Sum, Count, Dict).
   
   
   find_metrics_files(File) ->
  
positive.code:     case file:read_file_info(Path, [raw]) of
          {ok, {file_info, _, directory, _, _, _, _, _, _, _, _, _, _, _}} ->
              case file:list_dir(Path) of
                  {ok, Fs} ->
                      case lists:flatmap(fun(F) -> find_metrics_files(F, Path) end, Fs) of
                          [] -> [];
                          Contents -> [#metric_dir{name=File, contents=Contents}]
                      end;
                  _Otherwise -> []
              end;
          {ok, {file_info, _, regular, read_write, _, _, _, _, _, _, _, _, _, _}} ->
  
negative.code:     Start = erlang:monotonic_time(millisecond),
  
      case find_metrics_files(Dir) of
          [#metric_dir{dirs=Ms}] ->
              Count = count_metrics(Ms),
  
              if OldCount /= Count ->
  