anchor.diff:  %% State record.
   -record(state, {tref,
                   size_per_type=orddict:new(),
  -                lines="",
                   status=init,
                   filename}).
   
  
positive.code: init([]) ->
      Filename = create_dir(),
      Line = io_lib:format("Type,Seconds,MegaBytes\n", []),
  
      {ok, TRef} = start_timer(),
  
      _ = lager:info("Instrumentation timer enabled!"),
  
      {ok, #state{tref=TRef, filename=Filename, status=running,
                  size_per_type=orddict:new(), lines=Line}}.
  
  %% @private
  -spec handle_call(term(), {pid(), term()}, #state{}) ->
  
negative.code:     record_convergence(Filename),
      {reply, ok, State};
  
  handle_call(stop, _From, #state{size_per_type=Map,
                                  filename=Filename, tref=TRef}=State) ->
      {ok, cancel} = timer:cancel(TRef),
      record(Map, Filename),
      _ = lager:info("Instrumentation timer disabled!"),
      {reply, ok, State#state{tref=undefined}};
  
  %% @private
  handle_call(Msg, _From, State) ->
  