anchor.diff:      Davg = avg([Dtime/Dcnt || #stat{dcount = Dcnt, dtime = Dtime} <- Res]),
       Savg = avg([Size       || #stat{size = Size} <- Res]),
   
  -    io:format("~n  Measurment on ~p messages:"
  -	      "~n  Average size:   ~w bytes, "
  -	      "~n          encode: ~w microsec, "
  -	      "~n          decode: ~w microsec~n~n", 
  -	      [length(Res), Savg, Eavg, Davg]),
  +    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)};
   
  
positive.code: 
  
  measure(Factor, {Id, Codec, Conf, Count, Msgs}) ->
      io:format("measure using codec ~p ~p~n ", [Codec, Conf]),
      {Init, Conf1} = measure_init(Conf),
      Conf2 = [{version3,?V3}|Conf1],
      Res = measure(Factor, Id, Codec, Conf2, Msgs, [], Count),
  
negative.code:     io:format("          ~s~n~n~n", [FormatDiff]),
      ok.
      
  formated_timestamp() ->
      format_timestamp(os:timestamp()).
  
  format_timestamp({_N1, _N2, N3} = Now) ->
      {Date, Time}   = calendar:now_to_datetime(Now),
      {YYYY,MM,DD}   = Date,
  