anchor.diff:           print_labels/1]).
   
   -include("tap_logger.hrl").
  +
  +-define(LOGDURATION(F),
  +            begin
  +                (fun() ->
  +                    {TinMicro, R} = timer:tc(fun() -> F end),
  +                    TinSec = TinMicro div 1000000,
  +                    ?INFO("Time ~s:~B ~s: ~B sec", [?FILE, ?LINE, ??F, TinSec]),
  +                    R
  +                end)()
  +            end).
   
   %% === compute(EdgeList) === 
   %%
  
positive.code: 
  compute_from_graph(G, MaxVertices)->
      ?DEBUG("Starting NCI Calculation"),
      StartTime = tap_time:now(),
      prop_labels(G),
      NCI = calc_nci(G),
      % !!! warning, communities mangles G
      Communities = communities(G, MaxVertices),
      ?INFO("NCI Calculation: ~p sec", [tap_time:since(StartTime)]),
      {NCI, Communities}.
  
  %% === calc_nci ===
  
negative.code:     %% of three communities a, f, and c
      %% which have 10, 3, and 55 members respectively
      
      SC = ?LOGDURATION(rev_sort_labels(C)),
  
      %% At this point, SC referes to a sorted list of communities with
      %% sizes which have been sorted by size
  