anchor.diff:  print(Fd, Format, Strings) ->
       format(Fd, Format, Strings).
   
  +
  +format(Fd, {MfaW, CountW, PercW, TimeW, TpCW}, Strings) ->
  +    format(Fd, s("~~.~ps  ~~~ps  ~~~ps  ~~~ps  [~~~ps]~~n", [MfaW, CountW, PercW, TimeW, TpCW]), Strings);
   format(undefined, Format, Strings) ->
       io:format(Format, Strings),
       ok;
  
positive.code: sum_bp_total_n_us(Mfas) ->
      lists:foldl(fun ({_, {Ci,Usi}}, {Co, Uso}) -> {Co + Ci, Uso + Usi} end, {0,0}, Mfas).
  
  print_bp_mfa(Mfas, {_Tn, Tus}, Fd, Opts) ->
      print(Fd, ["FUNCTION", "CALLS", "  %", "TIME", "uS / CALLS"]),
      print(Fd, ["--------", "-----", "---", "----", "----------"]),
      lists:foreach(fun
  	    ({_, {Count, Time}}) when Count =:= 0; Time < 1 ->
  		ok;
  	    ({Mfa, {Count, Time}}) ->
  		print(Fd, [s(Mfa), s(Count), s("~.2f", [100*(Time/Tus)]), s(Time), s("~.2f", [Time/Count])]),
  		ok
  	end, filter_mfa(sort_mfa(Mfas, proplists:get_value(sort, Opts)), proplists:get_value(thresholds, Opts))),
      ok.
  
  handle_call({analyze, _, _}, _, #state{ bpd = #bpd{ p = {0,nil}, us = 0, n = 0} = Bpd } = S) when is_record(Bpd, bpd) ->
  
negative.code: s(Term) -> s("~p", [Term]).
  s(Format, Terms) -> lists:flatten(io_lib:format(Format, Terms)).
  
  
  print(Fd, [_,_,_] = Strings) ->
      print(Fd, "~.44s   ~14s ~14s~n", Strings);
  print(Fd, [_,_,_,_] = Strings) ->
  