anchor.diff:      Acc1 = TS1 - TS0,
       Acc3 = TS3 - TS2,
       io:format("ts:~w, fprof:~w, bare:~w.~n", [Acc, Acc3, Acc1]),
  -    {comment, io_lib:format("~p times slower", [Acc3/Acc1])}.
  +    {comment, io_lib:format("~p times slower", [divide(Acc3,Acc1)])}.
   
   %%%---------------------------------------------------------------------
   
  
positive.code:     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])}.
  
  
  spawn_simple_test(Start, Stop, Succ) ->
  
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)])}.
  
  %%%---------------------------------------------------------------------
  
  