anchor.diff:  
   html_test() ->
       ?assertEqual("<br>", html(br)),
  -    ?assertEqual("<body></body>", html({body, [], []})),
  +    ?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>"
  
positive.code:      [{tr, [], [{td, [], [br]}]}, % vskip
        {tr, [],
         [{th, [{align, left}, {colspan, Cols}],
           [{font, [{size, "+1"}], [{str, "Extrema"}]}]}]},
        [pt_table(Pt, AttrCols, Cols, ReportCfg) || Pt <- Pts],
        {tr, [], [{td, [], [br]}]}, % vskip
        {tr, [],
  
negative.code:                                  ds_stats:get_samples(Stats),
                                   ReportCfg),
      Page = {html, [],
              [{head, [],
                [{meta, [{'http-equiv', "Content-Type"},
                         {content, "text/html; charset=UTF-8"}], []}]},
               {body, [{link, ?COLOR_LINK},
                       {alink, ?COLOR_LINK},
                       {vlink, ?COLOR_LINK}],
                [{font, [{size, "-1"}],
  