anchor.diff:  %%
   -spec calc_nci( LabeledGraph :: digraph() ) -> NCI :: integer().
   calc_nci(LabeledGraph)->
  -    C = get_communities(LabeledGraph),
  +    C = ?LOGDURATION(get_communities(LabeledGraph)),
   
       %% At this point in the code C refers to an unordered of community
       %% names with associated sizes
  
positive.code:     %% Using the example C above,  SC = [{c,55},{a,10},{f,3}].
  
      %% We now call a two parameter function 
      NCI = calc_nci(SC,0),
      %% NCI computation results in a one to big, maybe?
      %% XXX requires more study.
      NCI.
  
negative.code:          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) === 
  %%
  