diff --git a/xml/play.dtd b/xml/play.dtd
new file mode 100644
index 0000000..4cfda9f
--- /dev/null
+++ b/xml/play.dtd
@@ -0,0 +1,27 @@
+<!-- DTD for Shakespeare    J. Bosak    1994.03.01, 1997.01.02 -->
+<!-- Revised for case sensitivity 1997.09.10 -->
+<!-- Revised for XML 1.0 conformity 1998.01.27 (thanks to Eve Maler) -->
+
+<!ENTITY amp "&#38;">
+<!ELEMENT PLAY     (TITLE, FM, PERSONAE, SCNDESCR, PLAYSUBT, INDUCT?,
+                     PROLOGUE?, ACT+, EPILOGUE?)>
+<!ELEMENT TITLE    (#PCDATA)>
+<!ELEMENT FM       (P+)>
+<!ELEMENT P        (#PCDATA)>
+<!ELEMENT PERSONAE (TITLE, (PERSONA | PGROUP)+)>
+<!ELEMENT PGROUP   (PERSONA+, GRPDESCR)>
+<!ELEMENT PERSONA  (#PCDATA)>
+<!ELEMENT GRPDESCR (#PCDATA)>
+<!ELEMENT SCNDESCR (#PCDATA)>
+<!ELEMENT PLAYSUBT (#PCDATA)>
+<!ELEMENT INDUCT   (TITLE, SUBTITLE*, (SCENE+|(SPEECH|STAGEDIR|SUBHEAD)+))>
+<!ELEMENT ACT      (TITLE, SUBTITLE*, PROLOGUE?, SCENE+, EPILOGUE?)>
+<!ELEMENT SCENE    (TITLE, SUBTITLE*, (SPEECH | STAGEDIR | SUBHEAD)+)>
+<!ELEMENT PROLOGUE (TITLE, SUBTITLE*, (STAGEDIR | SPEECH)+)>
+<!ELEMENT EPILOGUE (TITLE, SUBTITLE*, (STAGEDIR | SPEECH)+)>
+<!ELEMENT SPEECH   (SPEAKER+, (LINE | STAGEDIR | SUBHEAD)+)>
+<!ELEMENT SPEAKER  (#PCDATA)>
+<!ELEMENT LINE     (#PCDATA | STAGEDIR)*>
+<!ELEMENT STAGEDIR (#PCDATA)>
+<!ELEMENT SUBTITLE (#PCDATA)>
+<!ELEMENT SUBHEAD  (#PCDATA)>