anchor.diff:  filter_mfa([{_, {C, T}}=Bpf|Bpfs], Out, Ct, Tt) when C >= Ct, T >= Tt -> filter_mfa(Bpfs, [Bpf|Out], Ct, Tt);
   filter_mfa([_|Bpfs], Out, Ct, Tt) -> filter_mfa(Bpfs, Out, Ct, Tt).
   
  +%% strings and format
   
   s({M,F,A}) -> s("~w:~w/~w",[M,F,A]);
   s(Term) -> s("~p", [Term]).
  
positive.code: 	 terminate/2,
  	 code_change/3]).
  -record(bpd, {
  	n   = 0,
  	us  = 0,
  	p   = gb_trees:empty(),
  	mfa = []
      }).
  
  -record(state, {
  
negative.code: 	Error ->
  	    {reply, Error, S}
      end;
  
  handle_call(dump, _From, #state{ bpd = Bpd } = S) when is_record(Bpd, bpd) ->
      {reply, gb_trees:to_list(Bpd#bpd.p), S};
  
  handle_call(stop, _FromTag, S) ->
      {stop, normal, stopped, S}.
  