 
 TUPLE: public-id { pubid-literal string } { system-literal string } ;
 C: <public-id> public-id
-
-UNION: id system-id public-id POSTPONE: f ;
 
 TUPLE: dtd
     { directives sequence }

    { att-defs string } ;
C: <attlist-decl> attlist-decl

UNION: boolean t POSTPONE: f ;

TUPLE: entity-decl < directive
    { name string }
    { def string }

    { parameter-entities assoc } ;
C: <dtd> dtd

TUPLE: doctype-decl < directive
    { name string }
    { external-id maybe{ system-id public-id } }
    { internal-subset maybe{ dtd } } ;
C: <doctype-decl> doctype-decl

TUPLE: notation-decl < directive
