anchor.diff:      Clock / 1000.
   
   %% @private
  -record(Clock0, Map, Clients, Filename, Lines0) ->
  +record(Clock0, Map, Filename, Lines0) ->
       Clock = Clock0 + ?INTERVAL,
       Lines = orddict:fold(
           fun(Type, Size, Acc) ->
  -            Line = io_lib:format("~w,~w,~w,~w\n",
  +            Line = io_lib:format("~w,~w,~w\n",
                                    [Type,
                                     clock(Clock),
  -                                  megasize(Size),
  -                                  megasize(Size) / Clients]),
  +                                  megasize(Size)]),
               Acc ++ Line
           end,
           Lines0,
  
positive.code: 
  %% API
  -export([start_link/0,
           start/2,
           log/4,
           stop/0]).
  
  
negative.code:     Map = orddict:store(Type, Current + Size, Map0),
      {reply, ok, State#state{size_per_type=Map}};
  
  handle_call({start, Filename}, _From, #state{}=State) ->
      {ok, TRef} = start_timer(),
      _ = lager:info("Instrumentation timer enabled!"),
      {reply, ok, State#state{tref=TRef, clock=0,
                              filename=Filename, status=running,
                              size_per_type=orddict:new(), lines=[]}};
  
  handle_call(stop, _From, #state{lines=Lines0, clock=Clock0,
                                  size_per_type=Map,
                                  filename=Filename, tref=TRef}=State) ->
      {ok, cancel} = timer:cancel(TRef),
      {ok, Clock, Lines} = record(Clock0, Map, Filename, Lines0),
      _ = lager:info("Instrumentation timer disabled!"),
      {reply, ok, State#state{tref=undefined, clock=Clock, lines=Lines}};
  
  