<!ELEMENT div (head*, (lg|l|milestone)*, signed*)>
<!ATTLIST div n  CDATA #IMPLIED
              type (verse|prose|drama) "prose"> 
<!ELEMENT lg (head?, (l|milestone)+)  >
<!ATTLIST lg n  CDATA #IMPLIED>
<!ELEMENT head (#PCDATA) >
<!ATTLIST head type  CDATA #IMPLIED>
<!ELEMENT l  (#PCDATA|emph|q|milestone)* >
<!ATTLIST milestone n CDATA #IMPLIED
                  unit CDATA #REQUIRED >
<!ELEMENT milestone EMPTY >
<!ELEMENT q (#PCDATA|milestone)*>
<!ATTLIST q complete (Y|N) "Y" >
<!ELEMENT emph (#PCDATA|milestone)*>
<!ELEMENT signed (#PCDATA)>