anchor.diff:      TnStr    = s(Tn),
       TusStr   = s(Tus),
       TuspcStr = s("~.2f", [divide(Tus,Tn)]),
  -    Ws = {erlang:max(length("FUNCTION"), MfaW),
  -          lists:max([length("CALLS"), CountW, length(TnStr)]),
  -          erlang:max(length("      %"), PercW),
  -          lists:max([length("TIME"), TimeW, length(TusStr)]),
  -          lists:max([length("uS / CALLS"), TpCW, length(TuspcStr)])},
  +    Ws = {erlang:max(string:length("FUNCTION"), MfaW),
  +          lists:max([string:length("CALLS"), CountW, string:length(TnStr)]),
  +          erlang:max(string:length("      %"), PercW),
  +          lists:max([string:length("TIME"), TimeW, string:length(TusStr)]),
  +          lists:max([string:length("uS / CALLS"), TpCW, string:length(TuspcStr)])},
       format(Fd, Ws, ["FUNCTION", "CALLS", "      %", "TIME", "uS / CALLS"]),
       format(Fd, Ws, ["--------", "-----", "-------", "----", "----------"]),
       lists:foreach(fun (String) -> format(Fd, Ws, String) end, Strs),
  
positive.code: 	Stpc   = s("~.2f", [divide(Time,Count)]),
  
  	string_bp_mfa(Mfas, Tus, {
  		erlang:max(MfaW,  length(Smfa)),
  		erlang:max(CountW,length(Scount)),
  		erlang:max(PercW, length(Sperc)),
  		erlang:max(TimeW, length(Stime)),
  		erlang:max(TpCW,  length(Stpc))
  	    }, [[Smfa, Scount, Sperc, Stime, Stpc] | Strings]).
  
  print_bp_mfa(Mfas, {Tn, Tus}, Fd, Opts) ->
  
negative.code:     format(Fd, Ws, ["Total:", TnStr, "100.00%", TusStr, TuspcStr]),
      ok.
  
  s({M,F,A}) -> s("~w:~tw/~w",[M,F,A]);
  s(Term) -> s("~tp", [Term]).
  s(Format, Terms) -> lists:flatten(io_lib:format(Format, Terms)).
  
  
  format(Fd, {MfaW, CountW, PercW, TimeW, TpCW}, Strings) ->
      format(Fd, s("~~.~wts  ~~~ws  ~~~ws  ~~~ws  [~~~ws]~~n", [MfaW, CountW, PercW, TimeW, TpCW]), Strings);
  format(undefined, Format, Strings) ->
      io:format(Format, Strings),
      ok;
  