anchor.diff:      [{tt, Prefix ++ [" = "] ++ t_utype(Type, Opts) ++ Last}].
   
   pp_type(Prefix, Type, Opts) ->
  -    Atom = list_to_atom(lists:duplicate(string:length(Prefix), $a)),
  +    Atom = list_to_atom(lists:duplicate(string_length(Prefix), $a)),
       Attr = {attribute,0,type,{Atom,ot_utype(Type),[]}},
       L1 = erl_pp:attribute(erl_parse:new_anno(Attr),
                             [{encoding, Opts#opts.encoding}]),
  
positive.code: atom(String, #opts{encoding = utf8}) ->
      io_lib:write_atom(list_to_atom(String)).
  
  %% <!ATTLIST author
  %%   name CDATA #REQUIRED
  %%   email CDATA #IMPLIED
  
negative.code: 
  pp_clause(Pre, Type, Opts) ->
      Types = ot_utype([Type]),
      Atom = lists:duplicate(string_length(Pre), $a),
      Attr = {attribute,0,spec,{{list_to_atom(Atom),0},[Types]}},
      L1 = erl_pp:attribute(erl_parse:new_anno(Attr),
                            [{encoding, Opts#opts.encoding}]),
  