anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 1996-2016. All Rights Reserved.
  +%% Copyright Ericsson AB 1996-2017. All Rights Reserved.
   %%
   %% Licensed under the Apache License, Version 2.0 (the "License");
   %% you may not use this file except in compliance with the License.
  
positive.code:     format(Fd, Ws, ["Total:", TnStr, "100.00%", TusStr, TuspcStr]),
      ok.
  
  s({M,F,A}) -> s("~w:~w/~w",[M,F,A]);
  s(Term) -> s("~p", [Term]).
  s(Format, Terms) -> lists:flatten(io_lib:format(Format, Terms)).
  
  
  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;
  
negative.code:     TnStr    = s(Tn),
      TusStr   = s(Tus),
      TuspcStr = s("~.2f", [divide(Tus,Tn)]),
      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),
  