anchor.diff:  html({raw, Str}) -> Str;
   html({str, Str}) -> html_encode(Str);
   html({term, Term}) ->
  -    RawStr = io_lib:format("~80p", [Term]),
  +    RawStr = io_lib:format("~80tp", [Term]),
       Str = nl_encode(linewrap(html_encode(RawStr), 82)),
       html({code, [], [{raw, Str}]});
   html(Tags) when is_list(Tags) -> lists:concat([html(T) || T <- Tags]);
  
positive.code:                                  ds_stats:get_samples(Stats),
                                   ReportCfg),
      Page = {html, [],
              [{body, [{link, ?COLOR_LINK},
                       {alink, ?COLOR_LINK},
                       {vlink, ?COLOR_LINK}],
                [{font, [{size, "-1"}],
  
negative.code: 
  html_test() ->
      ?assertEqual("<br>", html(br)),
      ?assertEqual("<html><head><meta http-equiv=\"Content-Type\" "
                   "content=\"text/html; charset=UTF-8\"></meta></head>"
                   "<body></body></html>",
                   html({html, [],
                         [{head, [],
                           [{meta, [{'http-equiv', "Content-Type"},
                                    {content, "text/html; charset=UTF-8"}],
                             []}]},
                          {body, [], []}]})),
      ?assertEqual("<table width=\"100%\" cellspacing=\"0\">"
                   "<tr bgcolor=\"#123456\">"
                   "<td align=\"left\">Cell</td>"
  