anchor.diff:  	    measure(Factor, Dir, Codec, Conf, Msgs, [Stat | Results], MCount);
   
   	{error, S} ->
  -	    io:format("~n~s failed: ~n", [Name]),
  +	    io:format("~n[~s] ~s failed: ~n", [?FTS(), Name]),
   	    error(S,[]),
   	    measure(Factor, Dir, Codec, Conf, Msgs, Results, MCount);
   
  
positive.code:     io:format("          ~s~n~n~n", [FormatDiff]),
      ok.
      
  format_timestamp({_N1, _N2, N3} = Now) ->
      {Date, Time}   = calendar:now_to_datetime(Now),
      {YYYY,MM,DD}   = Date,
  
negative.code:     Davg = avg([Dtime/Dcnt || #stat{dcount = Dcnt, dtime = Dtime} <- Res]),
      Savg = avg([Size       || #stat{size = Size} <- Res]),
  
      io:format("~n[~s] Measurment on ~p messages:"
  	      "~n  Average:"
                "~n      Size:   ~w bytes, "
  	      "~n      Encode: ~w microsec, "
  	      "~n      Decode: ~w microsec~n~n", 
  	      [?FTS(), length(Res), Savg, Eavg, Davg]),
  
      {ok, lists:reverse(Res)};
  
  