anchor.diff:      statistics(reductions),
       Before = erlang:now(),
   
  -    Compensate = apply_micro(M#micro.function, M#micro.loops),
  +    Compensate = apply_micro(M#micro.function, M#micro.loops * M#micro.outer_loops),
       After = erlang:now(),
       {GC1, Words1, _} = statistics(garbage_collection),
       {_, Reds} = statistics(reductions),
       Elapsed = subtr(Before, After),
  -    MicroSecs = Elapsed - Compensate,
  +    MicroSecs = float(Elapsed - Compensate) / M#micro.outer_loops,
       [{title, M#micro.str},
        {tt1, M#micro.tt1},
        {function, M#micro.function},
  
positive.code:      #micro{function = lists,
  	    weight = 7, 
  	    loops = 6400,
  	    str = "list manipulation"};
  micro(msgp) ->
      #micro{function = msgp,
  
negative.code: 	{function, %% The name of the function implementing the micro
  	 weight,   %% How important is this in typical applications ??
  	 loops = 100,%% initial data
  	 outer_loops = 1,  %% Iteration multiplier, for stability of measurement
  	 tt1,      %% time to do one round
  	 str}).    %% Header string
  
  