anchor.diff:  -module(sherk_new_prof).
   
   -export([go/3]).
  --import(lists,[dropwhile/2,member/2]).
  -
  --record(state, {start}).
  +-import(lists,[dropwhile/2,member/2,prefix/2]).
   
   -define(LOG(T), sherk:log(process_info(self()),T)).
   
  -%%go(Msg,Seq,initial) -> {ok,FD}=file:open("/export/localhome/locmacr/pan/msgs.txt",[write]),go(Msg,Seq,FD);
  -%%go(Msg,Seq,FD) -> io:fwrite(FD,"~.10w~p~n",[Seq,Msg]),FD;
  -%%go(end_of_trace, _Seq, FD) -> file:close(FD);
   go(Msg, Seq, initial) 	     -> go(Msg, Seq, init());
   go(end_of_trace, Seq, State) -> terminate(Seq,State), State;
   go(Msg, Seq, State) 	     -> handler(Msg) ! {msg,Seq,Msg}, State.
  
positive.code:     ?LOG([{starting,?MODULE}]),
      sherk_ets:new(?MODULE),
      sherk_ets:new(sherk_prof),
      #state{start=now()}.
  
  terminate(Seq,#state{start=Start}) -> 
      ?LOG([{finishing,?MODULE},
  	  {seq,Seq},
  	  {time,timer:now_diff(now(),Start)/1000000},
  
negative.code: %%%-------------------------------------------------------------------
  %%% File    : sherk_new_prof.erl
  %%% Author  : Mats Cronqvist <locmacr@mwlx084>
  %%% Description : 
  