anchor.diff:      Acc1 = TS1 - TS0,
       Acc2 = TS2 - TS1,
       io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc2, Acc1]),
  -    {comment, io_lib:format("~p times slower", [Acc2/Acc1])}.
  +    {comment, io_lib:format("~p times slower", [divide(Acc2,Acc1)])}.
   
   %%%---------------------------------------------------------------------
   
  
positive.code:             file:delete(AnalysisFile),
              Acc1 = TS1 - TS0,
              io:format("cpu_ts:~w, fprof:~w~n", [Acc, Acc1]),
              {comment, io_lib:format("~p% cpu utilization",
                                      [100*Acc/Acc1])};
          {'EXIT', not_supported} ->
              case {os:type(), os:version()} of
                  {{unix, sunos}, {Major, Minor, _}}
  
negative.code:     io:format("~p (plain), ~p (eprof), ~p (fprof), ~p (cpu)~n",
                [Acc1/1000, Acc3/1000, Acc5/1000, Acc/1000]),
      {comment, io_lib:format("~p/~p (fprof/eprof) times slower", 
                              [divide(Acc5,Acc1), divide(Acc3,Acc1)])}.
  
  %%%---------------------------------------------------------------------
  
  