diff --git a/AUTHORS.md b/AUTHORS.md
--- a/AUTHORS.md
+++ b/AUTHORS.md
@@ -133,7 +133,9 @@
 - Gabor Pali
 - Gabriel Lewertowski
 - Gavin Beatty
+- George Stagg
 - Georgi Lyubenov
+- Gokul Rajiv
 - Gottfried Haider
 - Greg Maslov
 - Greg Rundlett
@@ -149,6 +151,7 @@
 - Hikaru Ibayashi
 - Hos Es
 - Hubert Plociniczak
+- Iacobus1983
 - Ian Max Andolina
 - Igor Khorlo
 - Igor Pashev
@@ -219,6 +222,7 @@
 - Krystof Beuermann
 - Lars-Dominik Braun
 - Laurent P. René de Cotret
+- Lawrence Chonavel
 - Leif Metcalf
 - Leonard Rosenthol
 - Lila
@@ -251,6 +255,7 @@
 - Matthias C. M. Troffaes
 - Mauro Bieg
 - Max Bolingbroke
+- Max Heller
 - Max Rydahl Andersen
 - Merijn Verstraaten
 - Michael Beaumont
@@ -322,6 +327,7 @@
 - S.P.H
 - Salim B
 - Sam S. Almahri
+- Sam May
 - Samuel Tardieu
 - Saumel Lemmenmeier
 - Sascha Wilde
@@ -361,6 +367,7 @@
 - Timothy Humphries
 - Tiziano Müller
 - Todd Sifleet
+- Tomas Dahlqvist
 - TomBen
 - Tom Leese
 - Toni Dietze
@@ -415,11 +422,13 @@
 - infinity0x
 - jeongminkim-islab
 - kaizshang91
+- lawcho
 - lifeunleaded
 - lux-lth
 - luz paz
 - lwolfsonkin
 - mbrackeantidot
+- mh4ckt3mh4ckt1c4s
 - mjfs
 - mt_caret
 - nbehrnd
diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md
--- a/CONTRIBUTING.md
+++ b/CONTRIBUTING.md
@@ -12,16 +12,15 @@
 There are many ways in which you can support pandoc. Here are a few
 ideas:
 
-  * Participate in online discussions. The [pandoc-discuss] mailing
-    list is a good place for this. This gives valuable input and
-    makes it easier to improve the program.
+  * Participate in online discussions. The [discussion
+    forum] is a good place for this.
 
   * Help with questions. Every request that is answered by the wider
     community frees time for programming contributors. This will
     speed up development of new features and issue fixes. Don't
     underestimate your knowledge, please share it!
 
-    Good places to help are the [pandoc-discuss] mailing list, Q/A
+    Good places to help are the [discussion forum], Q/A
     sites like StackOverflow, community forums (e.g.
     [RStudio][RStudio Community], [Zettlr][Zettlr Forum]), and, for
     technical questions, the GitHub [issue tracker].
@@ -62,7 +61,7 @@
 Have a question?
 ----------------
 
-Ask on [pandoc-discuss].
+Ask on the [discussion forum].
 
 
 Found a bug?
@@ -119,7 +118,7 @@
 So before submitting a bug report, consider whether it might be
 "out of scope." If it concerns a feature of documents that isn't
 representable in pandoc's Markdown, then it very likely is.
-(If in doubt, you can always ask on [pandoc-discuss].)
+(If in doubt, you can always ask on the [discussion-forum].)
 
 Fixing bugs from the issue tracker
 ----------------------------------
@@ -133,8 +132,8 @@
   issue is generic and can be resolved without deep knowledge of the code
   base.
 * [enhancement] — A feature which would be desirable. We recommend
-  you discuss any proposed enhancement on pandoc-discuss before
-  writing code.
+  you discuss any proposed enhancement on the [discussion forum]
+  before writing code.
 * [bug] — A problem which needs to be fixed.
 * [complexity:low] — The fix should only be a couple of lines.
 * [complexity:high] — The fix might require structural changes or in depth
@@ -156,7 +155,8 @@
 Have an idea for a new feature?
 -------------------------------
 
-First, search [pandoc-discuss] and the issue tracker (both [open issues] *and*
+First, search the [discussion forum]
+and the issue tracker (both [open issues] *and*
 [closed issues]) to make sure that the idea has not been discussed before.
 
 Explain the rationale for the feature you're requesting.  Why would this
@@ -168,15 +168,16 @@
 contributions. It is helpful to be sympathetic to that fact, and to
 communicate future plans and availability clearly.
 
-Any potential new feature is best discussed on [pandoc-discuss]
-before opening an issue.
+Any potential new feature is best discussed on the [discussion
+forum] before opening an issue.
 
 Patches and pull requests
 -------------------------
 
 Patches and pull requests are welcome.  Before you put time into a nontrivial
-patch, it is a good idea to discuss it on [pandoc-discuss], especially if it is
-for a new feature (rather than fixing a bug).
+patch, it is a good idea to discuss it on the
+[discussion forum], especially if it is for a new feature (rather
+than fixing a bug).
 
 Please follow these guidelines:
 
@@ -457,3 +458,5 @@
 [status:more-discussion-needed]: https://github.com/jgm/pandoc/labels/status:more-discussion-needed
 [status:more-info-needed]: https://github.com/jgm/pandoc/labels/status:more-info-needed
 [stack]: https://github.com/commercialhaskell/stack
+[discussion forum]: https://github.com/jgm/pandoc/discussions
+
diff --git a/MANUAL.txt b/MANUAL.txt
--- a/MANUAL.txt
+++ b/MANUAL.txt
@@ -1,7 +1,7 @@
 ---
 title: Pandoc User's Guide
 author: John MacFarlane
-date: January 5, 2024
+date: February 14, 2024
 ---
 
 # Synopsis
@@ -233,6 +233,7 @@
     - `csljson` ([CSL JSON] bibliography)
     - `csv` ([CSV] table)
     - `tsv` ([TSV] table)
+    - `djot` ([Djot markup])
     - `docbook` ([DocBook])
     - `docx` ([Word docx])
     - `dokuwiki` ([DokuWiki markup])
@@ -295,6 +296,7 @@
     - `commonmark_x` ([CommonMark] Markdown with extensions)
     - `context` ([ConTeXt])
     - `csljson` ([CSL JSON] bibliography)
+    - `djot` ([Djot markup])
     - `docbook` or `docbook4` ([DocBook] 4)
     - `docbook5` (DocBook 5)
     - `docx` ([Word docx])
@@ -479,6 +481,7 @@
 [ConTeXt]: https://www.contextgarden.net/
 [Rich Text Format]: https://en.wikipedia.org/wiki/Rich_Text_Format
 [DocBook]: https://docbook.org
+[Djot markup]: https://djot.net
 [JATS]: https://jats.nlm.nih.gov
 [BITS]: https://jats.nlm.nih.gov/extensions/bits/
 [Jira]: https://jira.atlassian.com/secure/WikiRendererHelpAction.jspa?section=all
@@ -833,7 +836,7 @@
     where there are nonsemantic newlines in the source, there
     will be nonsemantic newlines in the output as well).
     In `ipynb` output, this option affects wrapping of the
-    contents of markdown cells.
+    contents of Markdown cells.
 
 `--columns=`*NUMBER*
 
@@ -951,6 +954,11 @@
     those that come earlier, so
     `--resource-path foo:bar --resource-path baz:bim` is
     equivalent to `--resource-path baz:bim:foo:bar`.
+    Note that this option only has an effect when pandoc
+    itself needs to find an image (e.g., in producing a
+    PDF or docx, or when `--embed-resources` is used.)
+    It will not cause image paths to be rewritten in other
+    cases (e.g., when pandoc is generating LaTeX or HTML).
 
 `--request-header=`*NAME*`:`*VAL*
 
@@ -2938,6 +2946,19 @@
         - Numbers=Proportional
         ...
 
+`mainfontfallback`, `sansfontfallback`, `monofontfallback`
+:   fonts to try if a glyph isn't found in `mainfont`, `sansfont`, or `monofont`
+    respectively. These are lists. The font name must be followed by a colon
+    and optionally a set of options, for example:
+
+        ---
+        mainfontfallback:
+          - "FreeSans:"
+          - "NotoColorEmoji:mode=harf"
+        ...
+
+    Font fallbacks currently only work with `lualatex`.
+
 `babelfonts`
 :    a map of Babel language names (e.g. `chinese`) to the font
      to be used with the language:
@@ -3054,6 +3075,11 @@
 :   font families: take the name of any system font (see
     [ConTeXt Font Switching])
 
+`mainfontfallback`, `sansfontfallback`, `monofontfallback`
+:   list of fonts to try, in order, if a glyph is not found in the
+    main font. Use `\definefallbackfamily`-compatible font name syntax.
+    Emoji fonts are unsupported.
+
 `margin-left`, `margin-right`, `margin-top`, `margin-bottom`
 :   sets margins, if `layout` is not used (otherwise `layout`
     overrides these)
@@ -3275,13 +3301,13 @@
 enabled, while `--from markdown-footnotes-pipe_tables` is pandoc's
 Markdown without footnotes or pipe tables.
 
-The markdown reader and writer make by far the most use of extensions.
+The Markdown reader and writer make by far the most use of extensions.
 Extensions only used by them are therefore covered in the
 section [Pandoc's Markdown] below (see [Markdown variants] for
 `commonmark` and `gfm`). In the following, extensions that also work
 for other formats are covered.
 
-Note that markdown extensions added to the `ipynb` format
+Note that Markdown extensions added to the `ipynb` format
 affect Markdown cells in Jupyter notebooks (as do command-line
 options like `--markdown-headings`).
 
@@ -3433,7 +3459,7 @@
   :  `textile`, `commonmark`
 
   Note: as applied to `ipynb`, `raw_html` and `raw_tex` affect not
-  only raw TeX in markdown cells, but data with mime type
+  only raw TeX in Markdown cells, but data with mime type
   `text/html` in output cells.  Since the `ipynb` reader attempts
   to preserve the richest possible outputs when several options
   are given, you will get best results if you disable `raw_html`
@@ -3526,7 +3552,7 @@
 :  `docx`, `html`
 
 output formats
-:  `docx`, `odt`, `opendocument`, `html`
+:  `docx`, `odt`, `opendocument`, `html`, `latex`
 
 #### Extension: `native_numbering` ####
 
@@ -3596,7 +3622,7 @@
 In the `ipynb` input format, this causes Markdown cells
 to be included as raw Markdown blocks (allowing lossless
 round-tripping) rather than being parsed.  Use this only
-when you are targeting `ipynb` or a markdown-based
+when you are targeting `ipynb` or a Markdown-based
 output format.
 
 #### Extension: `citations` {#org-citations}
@@ -4572,7 +4598,7 @@
 
 The cells of pipe tables cannot contain block elements like paragraphs
 and lists, and cannot span multiple lines.  If any line of the
-markdown source is longer than the column width (see `--columns`),
+Markdown source is longer than the column width (see `--columns`),
 then the table will take up the full text width and the cell
 contents will wrap, with the relative cell widths determined by
 the number of dashes in the line separating the table header
@@ -4704,7 +4730,7 @@
 Just be sure that the YAML file begins with `---` and ends with `---` or
 `...`. Alternatively, you can use the `--metadata-file` option. Using
 that approach however, you cannot reference content (like footnotes)
-from the main markdown input document.
+from the main Markdown input document.
 
 Metadata will be taken from the fields of the YAML object and added to any
 existing document metadata.  Metadata can contain lists and objects (nested
@@ -4790,7 +4816,7 @@
 using `header-includes`; however, it is important to mark up
 this content as raw code for a particular output format, using
 the [`raw_attribute` extension](#extension-raw_attribute), or it
-will be interpreted as markdown. For example:
+will be interpreted as Markdown. For example:
 
     header-includes:
     - |
@@ -5115,7 +5141,7 @@
 whereas `Markdown.pl` will preserve it as is.
 
 There is one exception to this rule:  text between `<script>`,
-`<style>`, and `<textarea>` tags is not interpreted as Markdown.
+`<style>`, `<pre>`, and `<textarea>` tags is not interpreted as Markdown.
 
 This departure from original Markdown should make it easier to mix
 Markdown with HTML block elements.  For example, one can surround
@@ -5428,7 +5454,7 @@
 
 Using the `native_divs` and `native_spans` extensions
 (see [above][Extension: `native_divs`]), HTML syntax can
-be used as part of markdown to create native `Div` and `Span`
+be used as part of Markdown to create native `Div` and `Span`
 elements in the pandoc AST (as opposed to raw HTML).
 However, there is also nicer syntax available:
 
@@ -5825,12 +5851,12 @@
 
 #### Extension: `alerts` ####
 
-Supports [GitHub-style markdown alerts], like
+Supports [GitHub-style Markdown alerts], like
 
     > [!INFO]
     > This is an informational message.
 
-  [GitHub-style markdown alerts]: https://docs.github.com/en/get-started/writing-on-github/getting-started-with-writing-and-formatting-on-github/basic-writing-and-formatting-syntax#alerts
+  [GitHub-style Markdown alerts]: https://docs.github.com/en/get-started/writing-on-github/getting-started-with-writing-and-formatting-on-github/basic-writing-and-formatting-syntax#alerts
 
 #### Extension: `autolink_bare_uris` ####
 
@@ -5839,18 +5865,18 @@
 
 #### Extension: `mmd_link_attributes` ####
 
-Parses multimarkdown style key-value attributes on link
+Parses MultiMarkdown-style key-value attributes on link
 and image references. This extension should not be confused with the
 [`link_attributes`](#extension-link_attributes) extension.
 
-    This is a reference ![image][ref] with multimarkdown attributes.
+    This is a reference ![image][ref] with MultiMarkdown attributes.
 
     [ref]: https://path.to/image "Image title" width=20px height=30px
            id=myId class="myClass1 myClass2"
 
 #### Extension: `mmd_header_identifiers` ####
 
-Parses multimarkdown style heading identifiers (in square brackets,
+Parses MultiMarkdown-style heading identifiers (in square brackets,
 after the heading but before any trailing `#`s in an ATX heading).
 
 #### Extension: `compact_definition_lists` ####
@@ -5897,7 +5923,7 @@
 
 #### Extension: `short_subsuperscripts` ####
 
-Parse multimarkdown style subscripts and superscripts, which start with
+Parse MultiMarkdown-style subscripts and superscripts, which start with
 a '~' or '^' character, respectively, and include the alphanumeric sequence
 that follows. For example:
 
@@ -5909,7 +5935,7 @@
 
 #### Extension: `wikilinks_title_after_pipe` ####
 
-Pandoc supports multiple markdown wikilink syntaxes, regardless of
+Pandoc supports multiple Markdown wikilink syntaxes, regardless of
 whether the title is before or after the pipe.
 
 Using `--from=markdown+wikilinks_title_after_pipe` results in
@@ -6156,7 +6182,7 @@
 
 Pandoc's citation processing is designed to allow you to
 move between author-date, numerical, and note styles without
-modifying the markdown source.  When you're using a note
+modifying the Markdown source.  When you're using a note
 style, avoid inserting footnotes manually. Instead, insert
 citations just as you would in an author-date style---for
 example,
@@ -6833,6 +6859,30 @@
   ~ Either `ltr` or `rtl`. Specifies the `page-progression-direction`
     attribute for the [`spine` element].
 
+`accessModes`
+  ~ An array of strings ([schema][accessibility schema]).
+    Defaults to `["textual"]`.
+
+`accessModeSufficient`
+  ~ An array of strings ([schema][accessibility schema]).
+    Defaults to `["textual"]`.
+
+`accessibilityHazards`
+  ~ An array of strings ([schema][accessibility schema]).
+    Defaults to `["none"]`.
+
+`accessibilityFeatures`
+  ~ An array of strings ([schema][accessibility schema]).
+    Defaults to
+
+        - "alternativeText"
+        - "readingOrder"
+        - "structuralNavigation"
+        - "tableOfContents"
+
+`accessibilitySummary`
+  ~ A string value.
+
 `ibooks`
   ~ iBooks-specific metadata, with the following fields:
 
@@ -6843,6 +6893,7 @@
     - `binding`: `true`|`false` (default `true`)
     - `scroll-axis`: `vertical`|`horizontal`|`default`
 
+[accessibility schema]:  https://kb.daisy.org/publishing/docs/metadata/schema.org/index.html
 [MARC relators]: https://loc.gov/marc/relators/relaterm.html
 [reserved authority value]: https://idpf.github.io/epub-registries/authorities/
 [`spine` element]: http://idpf.org/epub/301/spec/epub-publications.html#sec-spine-elem
@@ -6851,7 +6902,7 @@
 
 For `epub3` output, you can mark up the heading that corresponds to an EPUB
 chapter using the [`epub:type` attribute][epub-type]. For example, to set
-the attribute to the value `prologue`, use this markdown:
+the attribute to the value `prologue`, use this Markdown:
 
     # My chapter {epub:type=prologue}
 
@@ -7078,8 +7129,9 @@
 Pandoc will automatically highlight syntax in [fenced code blocks] that
 are marked with a language name.  The Haskell library [skylighting] is
 used for highlighting. Currently highlighting is supported only for
-HTML, EPUB, Docx, Ms, and LaTeX/PDF output. To see a list of language names
-that pandoc will recognize, type `pandoc --list-highlight-languages`.
+HTML, EPUB, Docx, Ms, Man, and LaTeX/PDF output. To see a list
+of language names that pandoc will recognize, type `pandoc
+--list-highlight-languages`.
 
 The color scheme can be selected using the `--highlight-style` option.
 The default color scheme is `pygments`, which imitates the default color
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -43,6 +43,7 @@
 - `tsv`
   ([TSV](https://www.iana.org/assignments/media-types/text/tab-separated-values)
   table)
+- `djot` ([Djot markup](https://djot.net))
 - `docbook` ([DocBook](https://docbook.org))
 - `docx` ([Word docx](https://en.wikipedia.org/wiki/Office_Open_XML))
 - `dokuwiki` ([DokuWiki markup](https://www.dokuwiki.org/dokuwiki))
@@ -126,6 +127,7 @@
 - `csljson` ([CSL
   JSON](https://citeproc-js.readthedocs.io/en/latest/csl-json/markup.html)
   bibliography)
+- `djot` ([Djot markup](https://djot.net))
 - `docbook` or `docbook4` ([DocBook](https://docbook.org) 4)
 - `docbook5` (DocBook 5)
 - `docx` ([Word docx](https://en.wikipedia.org/wiki/Office_Open_XML))
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,6 +1,226 @@
 # Revision history for pandoc
 
-## pandoc 3.1.11.1 (2023-01-05)
+## pandoc 3.1.12 (2024-02-14)
+
+  * Add `djot` as input and output format. Djot is a light markup syntax
+    (https://djot.net).
+
+    + New module Text.Pandoc.Readers.Djot [API change]. The function
+      `readDjot` is also exported by Text.Pandoc.Readers.
+    + New module Text.Pandoc.Writers.Djot [API change]. The function
+      `writeDjot` is also exported by Text.Pandoc.Writers.
+
+  * `--number-sections` now uses the first digit for the number of
+    the top-level section, no matter what its level. So if the top-level
+    section is level-2, numbers will be `1`, `2`, etc. rather than
+    `0.1`, `0.2`, as in the past (#5071). For some backwards compatibility,
+    we revert to the old behavior when the `--number-offset` option is used.
+
+  * DocBook reader:
+
+    + Better handling of `<procedure>` and `<substeps>` (#9341):
+      `<procedure>` now gets parsed as an ordered list, and
+      `<substeps>` as a sublist.
+
+  * Man reader:
+
+    + Move spaces outside of emph/strong (#9445).
+
+  * MediaWiki reader:
+
+    + Don't make leading blanks underscores in image links (#9425).
+    + Allow lowercase `image:` (#9424).
+
+  * BibTeX reader:
+
+    + Support `pagetotal` in converting BibLaTeX.
+
+  * Markdown reader:
+
+    + Fix wikilinks extensions to allow newlines in titles (#9454).
+
+  * EPUB reader:
+
+    + Don't put `#` characters in identifiers.
+
+  * LaTeX reader:
+
+    + Improve treatment of `\cref`, `\Cref` (#7463). Use the
+      reference-type `ref+label` and `ref+Label`. Also, associate with
+      `\vref` `ref` instead of `ref+page`.
+    + Limited support for `\Cref` (#7463).
+    + Generate relative widths for `\linewidth`, `\textheight` (#9388).
+
+  * Typst reader:
+
+    + Fix handling of `\overline` (#9294). Due to a typo, it was being
+      incorrectly rendered as an `\underset`.
+    + Improve handling of inline `#quote` (#9413).
+    + Fix handling of `dot()`, `tilde()`, `ddot()` (jgm/typst-hs#38).
+    + Fix character used for `norm` (jgm/typst-hs#38).
+
+  * Typst writer:
+
+    + Use reference form (e.g. `@jones2000[p. 30]`) for citations when
+      possible.
+    + Use `#ref` or `@` for links with `reference-type="ref"` (#7463).
+      This attribute is added to LaTeX `\cref`, for example.
+    + Improve citation support (#9452). Emit `form: "prose"` or `form: "year"`
+      qualifiers if the citation is author-in-text or suppress-author.
+      Strip initial comma from suffix, since typst will add an extra one.
+    + Unescape URI escapes in image paths (#9389).
+    + Handle labels and citaiton ids with spaces and other special
+      characters (#9387). In these cases, we produce an explicit `label()`
+      rather than using `<>` or `@`.
+    + Avoid producing illegal labels (#9387).
+    + Avoid unnecessary escapes (#9386).
+
+  * LaTeX writer:
+
+    + Make writer sensitive to `empty_paragraphs` extension (#9443).
+    + Fix beamer highlighting (mh4ckt3mh4ckt1c4s).
+    + Create valid table even when table is empty (#9350).
+    + Set font fallback for babel main font (Max Heller).
+    + Add some kerns where needed between quotes (#9371).
+
+  * HTML writer:
+
+    + Add suffix to multiple footnote section ids, so they are
+      unique (Sam May). This is necessary when `--reference-location`
+      is `block` or `section`.
+
+  * EPUB writer:
+
+    + Add ARA roles for accessibility (#9378, Iacobus1983).
+      Footnote references are given role "doc-noteref", footnote text
+      gets "doc-footnote", and nav gets "doc-toc".
+    + Ensure that an alt attribute is always added (#9354). This seems to
+      be required by iBooks; even an empty alt attribute will satisfy it.
+    + Add `xml:lang` to package element (#9372).
+    + Add accessibility metadata to EPUB metadata (#9372, #9400,
+      Iacobus1983 and John MacFarlane). Reasonable default values are
+      used to ensure that pandoc's EPUBs conform to the EU Accessibilty Act
+      requirements, but values can be overridden using metadata.
+
+  * Docx writer:
+
+    + Restore ability to center-justify table (#9393). The fix to
+      #5947 caused all tables to be left indented. This was necessary
+      to avoid extra indentation in table cells when a table appeared
+      in a list item. This change makes the changes conditional, so
+      that they only affect tables in list items.
+
+  * Man writer:
+
+    + Fix bug with long URLs (#9458). URLs with more than 68 characters didn't
+      display properly because of wrapping.
+    + Support (limited) syntax highlighting in code blocks (#9446).
+      Currently only boldface and italics are supported. The `monochrome`
+      style might be of use for those generating man pages.
+
+  * Org writer:
+
+    + Escape special lines in code blocks (#9218, Albert Krewinkel).
+
+  * Markdown writer:
+
+    + Use different width fences for nested divs (#9450). Outer divs
+      have longer fences. This aids clarity for the reader, making it
+      easier to see where the div ends. It also makes the output
+      compatible with some other implementations, e.g. micromark,
+      which require different-width fences for nesting.
+    + Fix output for pipe tables with a huge number
+      of columns (#9346). Previously we got invalid pipe tables when the
+      number of table columns exceeded the setting of `--columns`.
+
+  * Powerpoint writer:
+
+    + Fix regression in layout for slides with figures (#9442).
+    + Use internal column widths in pptx writer tables (#5706,
+      Tomas Dahlqvist). The table writer used to only divide all
+      available width evenly for all columns. In this update the code
+      uses the incoming widths if they are available. If they are not
+      set the earlier even distribution is used. Some of the golden
+      templates are adjusted slightly because of different rounding when
+      using the new calculation model.
+
+  * Custom writers:
+
+    + Fix handling of common state (#9229, Albert Krewinkel).
+      The CommonState (`PANDOC_STATE` in Lua) may change between the time that
+      a custom writer script is first loaded and when the writer is run.
+      However, the writer was always using the initial state, which led to
+      problems, e.g. when the mediabag was updated in a filter, as those
+      updates where not visible to the writer. The state is now updated
+      right before the writer function runs.
+
+  * Text.Pandoc.SelfContained:
+
+    + Fix id replacements in SVGs with clipping paths (#9420).
+      This fixes `--embed-resources` when SVGs have `clip-path` attributes.
+    + Fix size of duplicated SVGs with `--embed-resources` (#9439).
+
+  * ConTeXt template: support font fallback (#9361, Lawrence Chonavel).
+
+  * Text.Pandoc.Shared:
+
+    + `addPandocAttributes`: use `wrapper` attribute, not `wrap`, for
+      Divs and Spans added as wrappers to hold attributes on elements
+      that do not accept them.
+    + `makeSections` behavior changes:
+      - When the optional base level parameter is provided, we no
+        longer ensure that the sequence of heading levels is gapless
+        (#9398). Instead, we set the lowest heading level to
+        the specified base level, and adjust the others accordingly. If
+        an author wants to skip a level, e.g. from level 1 to level 3,
+        they can do that. In general, the heading levels specified
+        in the source document are preserved; `makeSections` only
+        puts them into a hierarchical structure.
+      - Section numbers are now assigned differently, as described above
+        under `--number-sections` changes (#5071).
+    + Improve `makeSections` code for section number calculation.
+
+  * Text.Pandoc.Chunks:
+
+    + Autogenerate unique ids for sections missing them (#9383).
+      This is needed for TOC generation to work properly. We can't
+      create TOC links if there are no ids. This fixes some EPUB validation
+      issues we've been getting since switching over to Chunks for chunking.
+    + Improve `fixTOCTreePaths`. We weren't adding ids for section headings
+      that don't head a chunk, but these headings are needed for a TOC.
+
+  * Lua: catch encoding error in `pandoc.read` (#9385, Albert Krewinkel).
+    Fixed a bug that could lead to an un-catchable error and program
+    termination when `pandoc.read` was called with invalid UTF-8 input.
+
+  * LaTeX template: support font fallback (lawcho).  This support is
+    LuaLaTeX-specific.  See MANUAL.txt for documentation.
+
+  * Text.Pandoc.Readers: Add `readMan` to exports [API change] (George Stagg).
+
+  * Text.Pandoc.PDF:
+
+    + Reliably detect when TOC has changed (#9295). Sometimes the TOC
+      changes but there are no warnings: this happens when no labels
+      are present. In this case we must rerun LaTeX. So we now take the
+      SHA1 hash of the TOC file and rerun LaTeX if it changes between runs.
+    + Increase maximum number of LaTeX runs to 4 (#9299). On some documents,
+      4 runs are needed (e.g. when a LastPage reference is used).
+    + Avoid `readFileLazy`, which caused improperly cleaned-up
+      temp directories on Windows (#9460).
+
+  * MANUAL.txt:
+
+    + Harmonize spelling of Markdown and MultiMarkdown (#9402, Salim B).
+    + Add `<pre>` to list of exceptions for `markdown_in_html_blocks`
+      extension (#9305).
+    + Add clarification to docs for `--resource-path` (#9417).
+
+  * Makefile: Validate generated EPUB as part of prerelease checks.
+
+  * Add validation for docx golden files to CI (Edwin Török).
+
+## pandoc 3.1.11.1 (2024-01-05)
 
   * Docx reader:
 
diff --git a/data/templates/default.context b/data/templates/default.context
--- a/data/templates/default.context
+++ b/data/templates/default.context
@@ -59,6 +59,16 @@
 
 \setupbodyfontenvironment[default][em=italic] % use italic as em, not slanted
 
+$-- set up font fallbacks
+$for(mainfontfallback)$
+\definefallbackfamily[mainface][rm][$mainfontfallback$][range=0x0000-0xFFFF, check=yes, force=no]
+$endfor$
+$for(sansfontfallback)$
+\definefallbackfamily[mainface][ss][$sansfontfallback$][range=0x0000-0xFFFF, check=yes, force=no]
+$endfor$
+$for(monofontfallback)$
+\definefallbackfamily[mainface][tt][$monofontfallback$][range=0x0000-0xFFFF, check=yes, force=no]
+$endfor$
 \definefallbackfamily[mainface][rm][CMU Serif][preset=range:greek, force=yes]
 \definefontfamily[mainface][rm][$if(mainfont)$$mainfont$$else$Latin Modern Roman$endif$]
 \definefontfamily[mainface][mm][$if(mathfont)$$mathfont$$else$Latin Modern Math$endif$]
diff --git a/data/templates/default.djot b/data/templates/default.djot
new file mode 100644
--- /dev/null
+++ b/data/templates/default.djot
@@ -0,0 +1,27 @@
+$if(title)$
+# $title$
+
+$endif$
+$if(author)$
+$for(author)$
+$author$
+$endfor$
+
+$endif$
+$if(date)$
+$date$
+
+$endif$
+$for(header-includes)$
+$header-includes$
+
+$endfor$
+$for(include-before)$
+$include-before$
+
+$endfor$
+$body$
+$for(include-after)$
+$include-after$
+
+$endfor$
diff --git a/data/templates/default.latex b/data/templates/default.latex
--- a/data/templates/default.latex
+++ b/data/templates/default.latex
@@ -139,13 +139,37 @@
 \ifPDFTeX\else
   % xetex/luatex font selection
 $if(mainfont)$
-  \setmainfont[$for(mainfontoptions)$$mainfontoptions$$sep$,$endfor$]{$mainfont$}
+  $if(mainfontfallback)$
+    \ifLuaTeX
+      \usepackage{luaotfload}
+      \directlua{luaotfload.add_fallback("mainfontfallback",{
+        $for(mainfontfallback)$"$mainfontfallback$"$sep$,$endfor$
+      })}
+    \fi
+  $endif$
+  \setmainfont[$for(mainfontoptions)$$mainfontoptions$$sep$,$endfor$$if(mainfontfallback)$,RawFeature={fallback=mainfontfallback}$endif$]{$mainfont$}
 $endif$
 $if(sansfont)$
-  \setsansfont[$for(sansfontoptions)$$sansfontoptions$$sep$,$endfor$]{$sansfont$}
+  $if(sansfontfallback)$
+    \ifLuaTeX
+      \usepackage{luaotfload}
+      \directlua{luaotfload.add_fallback("sansfontfallback",{
+        $for(sansfontfallback)$"$sansfontfallback$"$sep$,$endfor$
+      })}
+    \fi
+  $endif$
+  \setsansfont[$for(sansfontoptions)$$sansfontoptions$$sep$,$endfor$$if(sansfontfallback)$,RawFeature={fallback=sansfontfallback}$endif$]{$sansfont$}
 $endif$
 $if(monofont)$
-  \setmonofont[$for(monofontoptions)$$monofontoptions$$sep$,$endfor$]{$monofont$}
+  $if(monofontfallback)$
+    \ifLuaTeX
+      \usepackage{luaotfload}
+      \directlua{luaotfload.add_fallback("monofontfallback",{
+        $for(monofontfallback)$"$monofontfallback$"$sep$,$endfor$
+      })}
+    \fi
+  $endif$
+  \setmonofont[$for(monofontoptions)$$monofontoptions$$sep$,$endfor$$if(monofontfallback)$,RawFeature={fallback=monofontfallback}$endif$]{$monofont$}
 $endif$
 $for(fontfamilies)$
   \newfontfamily{$fontfamilies.name$}[$for(fontfamilies.options)$$fontfamilies.options$$sep$,$endfor$]{$fontfamilies.font$}
@@ -297,6 +321,15 @@
   \usepackage[soul]{lua-ul}
 \else
   \usepackage{soul}
+$if(beamer)$
+  \makeatletter
+  \let\HL\hl
+  \renewcommand\hl{% fix for beamer highlighting
+    \let\set@color\beamerorig@set@color
+    \let\reset@color\beamerorig@reset@color
+    \HL}
+  \makeatother
+$endif$
 $if(CJKmainfont)$
   \ifXeTeX
     % soul's \st doesn't work for CJK:
@@ -380,7 +413,7 @@
 $if(mainfont)$
 \ifPDFTeX
 \else
-\babelfont{rm}[$for(mainfontoptions)$$mainfontoptions$$sep$,$endfor$]{$mainfont$}
+\babelfont{rm}[$for(mainfontoptions)$$mainfontoptions$$sep$,$endfor$$if(mainfontfallback)$,RawFeature={fallback=mainfontfallback}$endif$]{$mainfont$}
 \fi
 $endif$
 $endif$
diff --git a/pandoc.cabal b/pandoc.cabal
--- a/pandoc.cabal
+++ b/pandoc.cabal
@@ -1,6 +1,6 @@
 cabal-version:   2.4
 name:            pandoc
-version:         3.1.11.1
+version:         3.1.12
 build-type:      Simple
 license:         GPL-2.0-or-later
 license-file:    COPYING.md
@@ -19,7 +19,7 @@
                  .
                  - light markup formats (many variants of Markdown,
                    reStructuredText, AsciiDoc, Org-mode, Muse, Textile,
-                   txt2tags)
+                   txt2tags, djot)
                  - HTML formats (HTML 4 and 5)
                  - Ebook formats (EPUB v2 and v3, FB2)
                  - Documentation formats (GNU TexInfo, Haddock)
@@ -56,6 +56,7 @@
                  data/templates/default.html4
                  data/templates/default.html5
                  data/templates/default.chunkedhtml
+                 data/templates/default.djot
                  data/templates/default.docbook4
                  data/templates/default.docbook5
                  data/templates/default.jats_archiving
@@ -271,6 +272,7 @@
                  test/media/rId27.jpg
                  test/typst-reader.typ
                  test/undergradmath.typ
+                 test/djot-reader.djot
                  test/latex-reader.latex
                  test/textile-reader.textile
                  test/markdown-reader-more.txt
@@ -293,6 +295,7 @@
                  test/tables.jats_articleauthoring
                  test/tables.jats_publishing
                  test/tables.jira
+                 test/tables.djot
                  test/tables.dokuwiki
                  test/tables.zimwiki
                  test/tables.icml
@@ -329,6 +332,7 @@
                  test/testsuite.txt
                  test/writer.latex
                  test/writer.context
+                 test/writer.djot
                  test/writer.docbook4
                  test/writer.docbook5
                  test/writer.jats_archiving
@@ -447,7 +451,7 @@
   build-depends: xml                   >= 1.3.12   && < 1.4,
                  xml-conduit           >= 1.9.1.1  && < 1.10,
                  xml-types             >= 0.3      && < 0.4,
-                 containers            >= 0.6.0.1  && < 0.7,
+                 containers            >= 0.6.0.1  && < 0.8,
                  text                  >= 1.1.1.0  && < 2.2
 
   hs-source-dirs:  xml-light
@@ -473,10 +477,10 @@
                  bytestring            >= 0.9      && < 0.13,
                  case-insensitive      >= 1.2      && < 1.3,
                  citeproc              >= 0.8.1    && < 0.9,
-                 commonmark            >= 0.2.4.1  && < 0.3,
-                 commonmark-extensions >= 0.2.5    && < 0.3,
-                 commonmark-pandoc     >= 0.2.2    && < 0.3,
-                 containers            >= 0.6.0.1  && < 0.7,
+                 commonmark            >= 0.2.5.1  && < 0.3,
+                 commonmark-extensions >= 0.2.5.2  && < 0.3,
+                 commonmark-pandoc     >= 0.2.2.1  && < 0.3,
+                 containers            >= 0.6.0.1  && < 0.8,
                  crypton-connection    >= 0.3.1    && < 0.4,
                  data-default          >= 0.4      && < 0.8,
                  deepseq               >= 1.3      && < 1.6,
@@ -486,7 +490,7 @@
                  emojis                >= 0.1      && < 0.2,
                  exceptions            >= 0.8      && < 0.11,
                  file-embed            >= 0.0      && < 0.1,
-                 filepath              >= 1.1      && < 1.5,
+                 filepath              >= 1.1      && < 1.6,
                  gridtables            >= 0.1      && < 0.2,
                  haddock-library       >= 1.10     && < 1.12,
                  http-client           >= 0.4.30   && < 0.8,
@@ -520,10 +524,11 @@
                  unicode-transforms    >= 0.3      && < 0.5,
                  yaml                  >= 0.11     && < 0.12,
                  zip-archive           >= 0.4.3    && < 0.5,
-                 zlib                  >= 0.5      && < 0.7,
+                 zlib                  >= 0.5      && < 0.8,
                  xml                   >= 1.3.12   && < 1.4,
-                 typst                 >= 0.5      && < 0.5.1,
-                 vector                >= 0.12     && < 0.14
+                 typst                 >= 0.5.0.1  && < 0.5.1,
+                 vector                >= 0.12     && < 0.14,
+                 djot                  >= 0.1      && < 0.2
 
   if !os(windows)
     build-depends:  unix >= 2.4 && < 2.9
@@ -580,6 +585,7 @@
                    Text.Pandoc.Readers.CSV,
                    Text.Pandoc.Readers.RTF,
                    Text.Pandoc.Readers.Typst,
+                   Text.Pandoc.Readers.Djot,
                    Text.Pandoc.Writers,
                    Text.Pandoc.Writers.Native,
                    Text.Pandoc.Writers.DocBook,
@@ -592,6 +598,7 @@
                    Text.Pandoc.Writers.Jira,
                    Text.Pandoc.Writers.LaTeX,
                    Text.Pandoc.Writers.ConTeXt,
+                   Text.Pandoc.Writers.Djot,
                    Text.Pandoc.Writers.Typst,
                    Text.Pandoc.Writers.OpenDocument,
                    Text.Pandoc.Writers.Texinfo,
@@ -753,10 +760,10 @@
                   Diff              >= 0.2     && < 0.6,
                   Glob              >= 0.7     && < 0.11,
                   bytestring        >= 0.9     && < 0.13,
-                  containers        >= 0.4.2.1 && < 0.7,
+                  containers        >= 0.4.2.1 && < 0.8,
                   directory         >= 1.2.3   && < 1.4,
                   doctemplates      >= 0.11    && < 0.12,
-                  filepath          >= 1.1     && < 1.5,
+                  filepath          >= 1.1     && < 1.6,
                   mtl               >= 2.2     && < 2.4,
                   pandoc-types      >= 1.23.1  && < 1.24,
                   process           >= 1.2.3   && < 1.7,
diff --git a/src/Text/Pandoc/Chunks.hs b/src/Text/Pandoc/Chunks.hs
--- a/src/Text/Pandoc/Chunks.hs
+++ b/src/Text/Pandoc/Chunks.hs
@@ -29,8 +29,8 @@
 
 import Text.Pandoc.Definition
 import Text.Pandoc.Shared (makeSections, stringify, inlineListToIdentifier,
-                           tshow)
-import Text.Pandoc.Walk (Walkable(..))
+                           tshow, uniqueIdent)
+import Text.Pandoc.Walk (Walkable(..), query)
 import Data.Aeson (FromJSON, ToJSON)
 import Data.Text (Text)
 import Text.Printf (printf)
@@ -43,6 +43,8 @@
 import Data.Tree (Tree(..))
 import Data.Data (Data)
 import Data.Typeable (Typeable)
+import qualified Data.Set as Set
+import Control.Monad.State
 
 -- | Split 'Pandoc' into 'Chunk's, e.g. for conversion into
 -- a set of HTML pages or EPUB chapters.
@@ -63,8 +65,24 @@
  where
   tocTree = fixTOCTreePaths chunks $ toTOCTree sections
   chunks = makeChunks chunklev pathTemplate meta $ sections
-  sections = makeSections numberSections mbBaseLevel $ blocks
+  sections = ensureIds $ makeSections numberSections mbBaseLevel blocks
 
+-- The TOC won't work if we don't have unique identifiers for all sections.
+ensureIds :: [Block] -> [Block]
+ensureIds bs = evalState (walkM go bs) mempty
+ where
+   go :: Block -> State (Set.Set Text) Block
+   go b@(Div (ident,"section":cls,kvs) bs'@(Header _ _ ils : _))
+     | T.null ident
+       = do ids <- get
+            let newid = uniqueIdent mempty ils ids
+            modify $ Set.insert newid
+            pure $ Div (newid,"section":cls,kvs) bs'
+     | otherwise
+       = do modify $ Set.insert ident
+            pure b
+   go b = pure b
+
 -- | Add chunkNext, chunkPrev, chunkUp
 addNav :: ChunkedDoc -> ChunkedDoc
 addNav chunkedDoc =
@@ -371,15 +389,20 @@
 fixTOCTreePaths :: [Chunk] -> Tree SecInfo -> Tree SecInfo
 fixTOCTreePaths chunks = go ""
  where
-  idMap = foldr (\chunk -> M.insert (chunkId chunk) (chunkPath chunk))
+  idMap = foldr (\chunk m ->
+                   let ids = filter (not . T.null)
+                               (chunkId chunk :
+                                  query getIds (chunkContents chunk))
+                    in foldr (\i -> M.insert i (chunkPath chunk)) m ids)
                 mempty chunks
+  getIds :: Block -> [Text]
+  getIds (Div (i,"section":_,_) _) = [i]
+  getIds _ = []
   go :: FilePath -> Tree SecInfo -> Tree SecInfo
   go fp (Node secinfo subtrees) =
     let newpath = M.lookup (secId secinfo) idMap
         fp' = fromMaybe fp newpath
-        fragment = case newpath of
-                     Nothing -> "#" <> secId secinfo
-                     Just _  -> "" -- link to top of file
+        fragment = "#" <> secId secinfo
      in Node secinfo{ secPath = T.pack fp' <> fragment }
              (map (go fp') subtrees)
 
diff --git a/src/Text/Pandoc/Citeproc/BibTeX.hs b/src/Text/Pandoc/Citeproc/BibTeX.hs
--- a/src/Text/Pandoc/Citeproc/BibTeX.hs
+++ b/src/Text/Pandoc/Citeproc/BibTeX.hs
@@ -147,6 +147,7 @@
            , "volumes"
            , "number"
            , "pages"
+           , "pagetotal"
            , "version"
            , "date"
            , "eventdate"
@@ -327,6 +328,8 @@
   getContentsFor "year"  = getVariable "issued" >>= getYear
   getContentsFor "month"  = getVariable "issued" >>= getMonth
   getContentsFor "pages"  = getVariable "page" >>= toLaTeX . valToInlines
+  getContentsFor "pagetotal" = getVariable "number-of-pages"
+                                  >>= toLaTeX . valToInlines
   getContentsFor "langid"  = getVariable "language" >>= toLaTeX . valToInlines
   getContentsFor "number" = (getVariable "number"
                          <|> getVariable "collection-number"
diff --git a/src/Text/Pandoc/Extensions.hs b/src/Text/Pandoc/Extensions.hs
--- a/src/Text/Pandoc/Extensions.hs
+++ b/src/Text/Pandoc/Extensions.hs
@@ -612,6 +612,7 @@
     , Ext_raw_tex
     , Ext_task_lists
     , Ext_literate_haskell
+    , Ext_empty_paragraphs
     ]
   getAll "beamer"          = getAll "latex"
   getAll "context"         = autoIdExtensions <>
@@ -653,4 +654,5 @@
     extensionsFromList
     [ Ext_smart ]
   getAll "typst"           = extensionsFromList [Ext_citations]
+  getAll "djot"            = extensionsFromList [Ext_sourcepos]
   getAll _                 = mempty
diff --git a/src/Text/Pandoc/Format.hs b/src/Text/Pandoc/Format.hs
--- a/src/Text/Pandoc/Format.hs
+++ b/src/Text/Pandoc/Format.hs
@@ -179,6 +179,7 @@
     ".csv"      -> defFlavor "csv"
     ".ctx"      -> defFlavor "context"
     ".db"       -> defFlavor "docbook"
+    ".dj"       -> defFlavor "djot"
     ".doc"      -> defFlavor "doc"  -- so we get an "unknown reader" error
     ".docx"     -> defFlavor "docx"
     ".dokuwiki" -> defFlavor "dokuwiki"
diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs
--- a/src/Text/Pandoc/PDF.hs
+++ b/src/Text/Pandoc/PDF.hs
@@ -58,7 +58,7 @@
 #endif
 import Data.List (isPrefixOf, find)
 import Text.Pandoc.Class (fillMediaBag, getVerbosity, setVerbosity,
-                          readFileLazy, readFileStrict, fileExists,
+                          readFileStrict, fileExists,
                           report, extractMedia, PandocMonad, runIOorExplode)
 import Text.Pandoc.Logging
 import Text.DocTemplates ( FromContext(lookupContext) )
@@ -264,17 +264,16 @@
         -> FilePath                        -- ^ temp directory for output
         -> Text                            -- ^ tex source
         -> m (Either ByteString ByteString)
-tex2pdf program args tmpDir' source = do
+tex2pdf program args tmpDir source = do
   let isOutdirArg x = "-outdir=" `isPrefixOf` x ||
                       "-output-directory=" `isPrefixOf` x
-  let tmpDir =
+  let outDir =
         case find isOutdirArg args of
           Just x  -> drop 1 $ dropWhile (/='=') x
-          Nothing -> tmpDir'
-  liftIO $ createDirectoryIfMissing True tmpDir
+          Nothing -> tmpDir
   let file = tmpDir ++ "/input.tex"  -- note: tmpDir has / path separators
   liftIO $ BS.writeFile file $ UTF8.fromText source
-  (exit, log', mbPdf) <- runTeXProgram program args tmpDir
+  (exit, log', mbPdf) <- runTeXProgram program args tmpDir outDir
   case (exit, mbPdf) of
        (ExitFailure _, _)      -> do
           let logmsg = extractMsg log'
@@ -384,7 +383,7 @@
               Just logFile' -> do
                 logExists <- fileExists logFile'
                 if logExists
-                  then Just <$> readFileLazy logFile'
+                  then Just . BL.fromStrict <$> readFileStrict logFile'
                   else return Nothing
               Nothing -> return Nothing
     return (log', pdf)
@@ -392,28 +391,32 @@
 -- Run a TeX program once in a temp directory (on input.tex) and return (exit code,
 -- contents of stdout, contents of produced PDF if any).
 runTeXProgram :: (PandocMonad m, MonadIO m)
-              => String -> [String] -> FilePath
+              => String -> [String] -> FilePath -> FilePath
               -> m (ExitCode, ByteString, Maybe ByteString)
-runTeXProgram program args tmpDir = do
-    let file = tmpDir ++ "/input.tex"
+runTeXProgram program args tmpDir outDir = do
     let isLatexMk = takeBaseName program == "latexmk"
-        programArgs | isLatexMk = ["-interaction=batchmode", "-halt-on-error", "-pdf",
-                                   "-quiet", "-outdir=" ++ tmpDir] ++ args ++ [file]
-                    | otherwise = ["-halt-on-error", "-interaction", "nonstopmode",
-                                   "-output-directory", tmpDir] ++ args ++ [file]
+        programArgs | isLatexMk =
+                      ["-interaction=batchmode", "-halt-on-error", "-pdf",
+                       "-quiet", "-outdir=" ++ outDir] ++ args ++ [file]
+                    | otherwise =
+                      ["-halt-on-error", "-interaction", "nonstopmode",
+                       "-output-directory", outDir] ++ args ++ [file]
     env' <- liftIO getEnvironment
     let sep = [searchPathSeparator]
     let texinputs = maybe (tmpDir ++ sep) ((tmpDir ++ sep) ++)
           $ lookup "TEXINPUTS" env'
     let env'' = ("TEXINPUTS", texinputs) :
-                ("TEXMFOUTPUT", tmpDir) :
+                ("TEXMFOUTPUT", outDir) :
                   [(k,v) | (k,v) <- env'
                          , k /= "TEXINPUTS" && k /= "TEXMFOUTPUT"]
     liftIO (UTF8.readFile file) >>=
       showVerboseInfo (Just tmpDir) program programArgs env''
-    go file env'' programArgs (1 :: Int)
+    go env'' programArgs (1 :: Int) Nothing
  where
-   go file env'' programArgs runNumber = do
+   file = tmpDir ++ "/input.tex"
+   outfile = outDir ++ "/input.pdf"
+   go env'' programArgs runNumber oldTocHash = do
+     let maxruns = 4 -- stop if warnings present after 4 runs
      report $ MakePDFInfo ("LaTeX run number " <> tshow runNumber) mempty
      (exit, out) <- liftIO $ E.catch
        (pipeProcess (Just env'') program programArgs BL.empty)
@@ -423,18 +426,28 @@
      let logFile = replaceExtension file ".log"
      logExists <- fileExists logFile
      logContents <- if logExists
-                       then readFileLazy logFile
+                       then BL.fromStrict <$> readFileStrict logFile
                        else return mempty
      let rerunWarnings = checkForRerun logContents
-     if not (null rerunWarnings) && runNumber < 3
+     tocHash <- do
+       let tocFile = replaceExtension file ".toc"
+       tocFileExists <- fileExists tocFile
+       if tocFileExists
+          then do
+            tocContents <- BL.fromStrict <$> readFileStrict tocFile
+            pure $ Just $! sha1 tocContents
+          else pure Nothing
+     -- compare hash of toc to former hash to see if it changed (#9295)
+     let rerunWarnings' = rerunWarnings ++
+                           ["TOC changed" | tocHash /= oldTocHash ]
+     if not (null rerunWarnings') && runNumber < maxruns
         then do
           report $ MakePDFInfo "Rerun needed"
                     (T.intercalate "\n"
-                      (map (UTF8.toText . BC.toStrict) rerunWarnings))
-          go file env'' programArgs (runNumber + 1)
+                      (map (UTF8.toText . BC.toStrict) rerunWarnings'))
+          go env'' programArgs (runNumber + 1) tocHash
        else do
-          let pdfFile = replaceExtension file ".pdf"
-          (log', pdf) <- getResultingPDF (Just logFile) pdfFile
+          (log', pdf) <- getResultingPDF (Just logFile) outfile
           return (exit, fromMaybe out log', pdf)
 
    checkForRerun log' = filter isRerunWarning $ BC.lines log'
diff --git a/src/Text/Pandoc/Readers.hs b/src/Text/Pandoc/Readers.hs
--- a/src/Text/Pandoc/Readers.hs
+++ b/src/Text/Pandoc/Readers.hs
@@ -50,6 +50,7 @@
   , readTxt2Tags
   , readEPUB
   , readMuse
+  , readMan
   , readFB2
   , readIpynb
   , readCSV
@@ -61,6 +62,7 @@
   , readRIS
   , readRTF
   , readTypst
+  , readDjot
   -- * Miscellaneous
   , getReader
   , getDefaultExtensions
@@ -111,6 +113,7 @@
 import Text.Pandoc.Readers.RIS
 import Text.Pandoc.Readers.RTF
 import Text.Pandoc.Readers.Typst
+import Text.Pandoc.Readers.Djot
 import qualified Text.Pandoc.UTF8 as UTF8
 import Text.Pandoc.Sources (ToSources(..), sourcesToText)
 
@@ -164,7 +167,8 @@
           ,("ris"          , TextReader readRIS)
           ,("rtf"          , TextReader readRTF)
           ,("typst"        , TextReader readTypst)
-           ]
+          ,("djot"         , TextReader readDjot)
+          ]
 
 -- | Retrieve reader, extensions based on format spec (format+extensions).
 getReader :: PandocMonad m => Format.FlavoredFormat -> m (Reader m, Extensions)
diff --git a/src/Text/Pandoc/Readers/Djot.hs b/src/Text/Pandoc/Readers/Djot.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Pandoc/Readers/Djot.hs
@@ -0,0 +1,274 @@
+{-# LANGUAGE RankNTypes #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+
+{- |
+   Module      : Text.Pandoc.Readers.Djot
+   Copyright   : Copyright (C) 2024 John MacFarlane
+   License     : GNU GPL, version 2 or above
+
+   Maintainer  : John MacFarlane <jgm@berkeley.edu>
+   Stability   : alpha
+   Portability : portable
+
+Reads and evaluates a Djot document as a Pandoc AST.
+-}
+module Text.Pandoc.Readers.Djot
+  ( readDjot
+  )
+where
+
+import Text.Pandoc.Class
+import Text.Pandoc.Sources
+import Text.Parsec.Pos (newPos)
+import Text.Pandoc.Options
+import Text.Pandoc.Definition
+import Text.Pandoc.Shared (addPandocAttributes, tshow)
+import qualified Text.Pandoc.UTF8 as UTF8
+import Djot (ParseOptions(..), SourcePosOption(..), parseDoc, Pos(..))
+import qualified Djot.AST as D
+import Text.Pandoc.Error (PandocError(..))
+import Control.Monad.Except (throwError)
+import qualified Data.Text as T
+import Text.Pandoc.Builder
+import Text.Pandoc.Logging
+import Text.Pandoc.Emoji (emojiToInline)
+import Control.Monad.Reader
+import qualified Data.Foldable as F
+import Data.List (foldl')
+import Data.ByteString (ByteString)
+-- import Debug.Trace
+
+-- | Read Djot from an input string and return a Pandoc document.
+readDjot :: (PandocMonad m, ToSources a) => ReaderOptions -> a -> m Pandoc
+readDjot opts inp = do
+  let sources = toSources inp
+  case parseDoc ParseOptions{ sourcePositions =
+                              if isEnabled Ext_sourcepos opts
+                                 then AllSourcePos
+                                 else NoSourcePos }
+          (UTF8.fromText $ sourcesToText sources) of
+    Left e -> throwError $ PandocParseError $ T.pack $ show e
+    Right d ->
+      runReaderT (doc <$> convertBlocks (D.docBlocks d))
+        Env{ references = D.docReferences d <> D.docAutoReferences d
+           , footnotes = D.docFootnotes d
+           }
+
+data Env =
+  Env{ references :: D.ReferenceMap
+     , footnotes :: D.NoteMap
+     }
+  deriving (Show, Ord, Eq)
+
+convertBlocks :: PandocMonad m => D.Blocks -> ReaderT Env m Blocks
+convertBlocks =  fmap mconcat . mapM convertBlock . F.toList . D.unMany
+
+convertBlock :: PandocMonad m => D.Node D.Block -> ReaderT Env m Blocks
+convertBlock (D.Node pos attr bl) =  addAttrToBlock pos attr <$>
+  case bl of
+    D.Para ils -> para <$> convertInlines ils
+    D.Section bls -> divWith ("",["section"],[]) <$> convertBlocks bls
+    D.Heading lev ils -> header lev <$> convertInlines ils
+    D.BlockQuote bls -> blockQuote <$> convertBlocks bls
+    D.CodeBlock lang bs -> pure $
+      codeBlockWith ("", [UTF8.toText lang], []) $ UTF8.toText bs
+    D.Div bls -> divWith nullAttr <$> convertBlocks bls
+    D.OrderedList olattr listSpacing items ->
+      orderedListWith olattr' .
+        (case listSpacing of
+           D.Tight -> map toTight
+           D.Loose -> id) <$> mapM convertBlocks items
+     where
+       olattr' = ( D.orderedListStart olattr
+                 , case D.orderedListStyle olattr of
+                     D.Decimal -> Decimal
+                     D.LetterUpper -> UpperAlpha
+                     D.LetterLower -> LowerAlpha
+                     D.RomanUpper -> UpperRoman
+                     D.RomanLower -> LowerRoman
+                 , case D.orderedListDelim olattr of
+                     D.RightPeriod -> Period
+                     D.RightParen -> OneParen
+                     D.LeftRightParen -> TwoParens
+                 )
+    D.BulletList listSpacing items ->
+        bulletList .
+        (case listSpacing of
+           D.Tight -> map toTight
+           D.Loose -> id) <$> mapM convertBlocks items
+    D.TaskList listSpacing items ->
+        bulletList .
+        (case listSpacing of
+           D.Tight -> map toTight
+           D.Loose -> id) <$> mapM toTaskListItem items
+    D.DefinitionList listSpacing items ->
+      definitionList .
+        (case listSpacing of
+           D.Tight -> map (\(t,d) -> (t, map toTight d))
+           D.Loose -> id) <$> mapM toDlItem items
+     where
+       toDlItem (ils,bls) = (,) <$> convertInlines ils
+                                <*> ((:[]) <$> convertBlocks bls)
+    D.ThematicBreak -> pure horizontalRule
+    D.Table mbCaption rows -> do
+      capt <- case mbCaption of
+                Just (D.Caption bls') ->
+                  Caption Nothing . toList <$> convertBlocks bls'
+                Nothing -> pure $ Caption Nothing mempty
+      let toAlign D.AlignLeft = AlignLeft
+          toAlign D.AlignRight = AlignRight
+          toAlign D.AlignCenter = AlignCenter
+          toAlign D.AlignDefault = AlignDefault
+      let toColSpec (D.Cell _ align _) = (toAlign align, ColWidthDefault)
+      let colspecs = case rows of
+                      [] -> []
+                      (cells:_) -> map toColSpec cells
+      let (headrow, rest) =
+            case rows of
+              (r@(D.Cell D.HeadCell _ _ : _) : rs) -> (r, rs)
+              _ -> ([],rows)
+      let getBody bods row =
+            case row of
+              (D.Cell D.HeadCell _ _ : _) ->
+                   case bods of
+                     [] -> [([row],[])]
+                     ([],_):_ -> (([row],[]):bods)
+                     (hs,bs):rs -> (hs,row:bs):rs
+              _ -> case bods of
+                     (hs,bs):rs -> (hs,row:bs):rs
+                     [] -> [([],[row])]
+      let reverseSnd (as,bs) = (as,reverse bs)
+      let bodies = reverse $ map reverseSnd $ foldl' getBody [] rest
+      let toCell (D.Cell _ al ils) =
+            Cell nullAttr (toAlign al) (RowSpan 1) (ColSpan 1)
+                   . (\is -> [Para $ toList is]) <$> convertInlines ils
+      let toRow = fmap (Row nullAttr) . mapM toCell
+      thead <- TableHead mempty <$> mapM toRow [headrow]
+      let toTableBody (hs, rs) =
+            TableBody mempty (RowHeadColumns 0) <$>
+              mapM toRow hs <*> mapM toRow rs
+      tbodies <- mapM toTableBody bodies
+      let tfoot = TableFoot mempty []
+      pure $ singleton $ Table mempty capt colspecs thead tbodies tfoot
+    D.RawBlock (D.Format fmt) bs -> pure $
+      rawBlock (UTF8.toText fmt) (UTF8.toText bs)
+
+addAttrToBlock :: Pos -> D.Attr -> Blocks -> Blocks
+addAttrToBlock pos (D.Attr as) =
+  addPandocAttributes $
+    case pos of
+        NoPos -> textkvs
+        Pos sl sc el ec ->
+          ("data-pos", tshow sl <> ":" <> tshow sc <>
+                 "-" <> tshow el <> ":" <> tshow ec) : textkvs
+     where
+       textkvs = (map (\(k,v) -> (UTF8.toText k, UTF8.toText v))
+                    (filter (not . internalAttribute) as))
+
+addAttrToInline :: Pos -> D.Attr -> Inlines -> Inlines
+addAttrToInline pos (D.Attr as) =
+  addPandocAttributes $
+    case pos of
+        NoPos -> textkvs
+        Pos sl sc el ec ->
+          ("data-pos", tshow sl <> ":" <> tshow sc <>
+                 "-" <> tshow el <> ":" <> tshow ec) : textkvs
+     where
+       textkvs = (map (\(k,v) -> (UTF8.toText k, UTF8.toText v))
+                    (filter (not . internalAttribute) as))
+
+convertInlines :: PandocMonad m => D.Inlines -> ReaderT Env m Inlines
+convertInlines = fmap mconcat . mapM convertInline . F.toList . D.unMany
+
+convertInline :: PandocMonad m => D.Node D.Inline -> ReaderT Env m Inlines
+convertInline (D.Node pos attr il) = addAttrToInline pos attr <$>
+  case il of
+    D.Str bs -> pure $ str (UTF8.toText bs)
+    D.Emph ils -> emph <$> convertInlines ils
+    D.Strong ils -> strong <$> convertInlines ils
+    D.Highlight ils -> spanWith ("",["highlighted"],[]) <$> convertInlines ils
+    D.Insert ils -> spanWith ("",["inserted"],[]) <$> convertInlines ils
+    D.Delete ils -> spanWith ("",["deleted"],[]) <$> convertInlines ils
+    D.Subscript ils -> subscript <$> convertInlines ils
+    D.Superscript ils -> superscript <$> convertInlines ils
+    D.Span ils -> spanWith nullAttr <$> convertInlines ils
+    D.Quoted D.DoubleQuotes ils -> doubleQuoted <$> convertInlines ils
+    D.Quoted D.SingleQuotes ils -> singleQuoted <$> convertInlines ils
+    D.Verbatim bs -> pure $ code (UTF8.toText bs)
+    D.Symbol bs -> pure $
+      let s = UTF8.toText bs
+       in maybe (spanWith ("",["symbol"],[]) (str s)) singleton $ emojiToInline s
+    D.Math sty bs -> pure $
+      (case sty of
+        D.DisplayMath -> displayMath
+        D.InlineMath -> math) (UTF8.toText bs)
+    D.Link ils target ->
+      case target of
+        D.Direct url -> link (UTF8.toText url) "" <$> convertInlines ils
+        D.Reference label -> do
+          refs <- asks references
+          case D.lookupReference label refs of
+            Just (url, lattr) ->
+              addAttrToInline pos lattr .
+                link (UTF8.toText url) "" <$> convertInlines ils
+            Nothing -> do
+              report $ ReferenceNotFound (UTF8.toText label) (newPos "" 0 0)
+              link "" "" <$> convertInlines ils
+    D.Image ils target ->
+      case target of
+        D.Direct url -> image (UTF8.toText url) "" <$> convertInlines ils
+        D.Reference label -> do
+          refs <- asks references
+          case D.lookupReference label refs of
+            Just (url, lattr) ->
+              addAttrToInline pos lattr .
+                image (UTF8.toText url) "" <$> convertInlines ils
+            Nothing -> do
+              report $ ReferenceNotFound (UTF8.toText label) (newPos "" 0 0)
+              image "" "" <$> convertInlines ils
+    D.FootnoteReference bs -> do
+      notes <- asks footnotes
+      case D.lookupNote bs notes of
+        Just bls -> note <$> convertBlocks bls
+        Nothing -> do
+          -- TODO consider new warning for this?
+          report $ IgnoredElement ("Undefined footnote reference " <> tshow bs)
+          pure mempty
+    D.UrlLink bs -> do
+      let url = UTF8.toText bs
+      pure $ linkWith ("",["uri"],[]) url "" (str url)
+    D.EmailLink bs -> do
+      let email = UTF8.toText bs
+      pure $ linkWith ("",["email"],[]) ("mailto:" <> email) "" (str email)
+    D.RawInline (D.Format fbs) bs -> pure $
+      rawInline (UTF8.toText fbs) (UTF8.toText bs)
+    D.NonBreakingSpace -> pure $ str "\160"
+    D.SoftBreak -> pure softbreak
+    D.HardBreak -> pure linebreak
+
+internalAttribute :: (ByteString, ByteString) -> Bool
+internalAttribute ("_implicit",_) = True
+internalAttribute ("_autogen",_) = True
+internalAttribute _ = False
+
+toTight :: Blocks -> Blocks
+toTight (Many bls) = Many $ paraToPlain <$> bls
+ where
+   paraToPlain (Para ils) = Plain ils
+   paraToPlain x = x
+
+toTaskListItem :: PandocMonad m
+               => (D.TaskStatus, D.Blocks) -> ReaderT Env m Blocks
+toTaskListItem (status, bls) = do
+  bls' <- convertBlocks bls
+  case toList bls' of
+    (Para ils : rest) -> pure $
+      fromList $ Para (Str taskmarker : Space : ils) : rest
+    _ -> pure $ para (str taskmarker) <> bls'
+ where
+   taskmarker
+     | status == D.Complete = "[X]"
+     | otherwise = "[ ]"
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -933,7 +933,8 @@
           orderedListWith (start,listStyle,DefaultDelim) . handleCompact
             <$> listitems
         "variablelist" -> definitionList <$> deflistitems
-        "procedure" -> bulletList <$> steps
+        "procedure" -> orderedList <$> steps
+        "substeps" -> orderedList <$> steps
         "figure" -> getFigure e
         "informalfigure" -> getFigure e
         "mediaobject" -> para <$> getMediaobject e
diff --git a/src/Text/Pandoc/Readers/EPUB.hs b/src/Text/Pandoc/Readers/EPUB.hs
--- a/src/Text/Pandoc/Readers/EPUB.hs
+++ b/src/Text/Pandoc/Readers/EPUB.hs
@@ -239,7 +239,7 @@
 
 addHash :: FilePath -> Text -> Text
 addHash _ ""    = ""
-addHash s ident = T.pack (takeFileName s) <> "#" <> ident
+addHash s ident = T.pack (takeFileName s) <> "_" <> ident
 
 removeEPUBAttrs :: [(Text, Text)] -> [(Text, Text)]
 removeEPUBAttrs kvs = filter (not . isEPUBAttr) kvs
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -114,9 +114,9 @@
 
 resolveRefs :: M.Map Text [Inline] -> Inline -> Inline
 resolveRefs labels x@(Link (ident,classes,kvs) _ _) =
-  case (lookup "reference-type" kvs,
+  case (T.takeWhile (/='+') <$> lookup "reference-type" kvs,
         lookup "reference" kvs) of
-        (Just "ref", Just lab) ->
+        (Just "ref", Just lab) -> -- TODO special treatment of ref+label
           case M.lookup lab labels of
                Just txt -> Link (ident,classes,kvs) txt ("#" <> lab, "")
                Nothing  -> x
@@ -207,11 +207,13 @@
 
 mkImage :: PandocMonad m => [(Text, Text)] -> Text -> LP m Inlines
 mkImage options (T.unpack -> src) = do
-   let replaceTextwidth (k,v) =
+   let replaceRelative (k,v) =
          case numUnit v of
               Just (num, "\\textwidth") -> (k, showFl (num * 100) <> "%")
+              Just (num, "\\linewidth") -> (k, showFl (num * 100) <> "%")
+              Just (num, "\\textheight") -> (k, showFl (num * 100) <> "%")
               _                         -> (k, v)
-   let kvs = map replaceTextwidth
+   let kvs = map replaceRelative
              $ filter (\(k,_) -> k `elem` ["width", "height"]) options
    let attr = ("",[], kvs)
    let alt = maybe (str "image") str $ lookup "alt" options
diff --git a/src/Text/Pandoc/Readers/LaTeX/Inline.hs b/src/Text/Pandoc/Readers/LaTeX/Inline.hs
--- a/src/Text/Pandoc/Readers/LaTeX/Inline.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Inline.hs
@@ -337,10 +337,11 @@
 refCommands = M.fromList
   [ ("label", rawInlineOr "label" dolabel)
   , ("ref", rawInlineOr "ref" $ doref "ref")
-  , ("cref", rawInlineOr "cref" $ doref "ref")       -- from cleveref.sty
-  , ("vref", rawInlineOr "vref" $ doref "ref+page")  -- from varioref.sty
+  , ("cref", rawInlineOr "cref" $ doref "ref+label")       -- from cleveref.sty
+  , ("Cref", rawInlineOr "Cref" $ doref "ref+Label")       -- from cleveref.sty
+  , ("vref", rawInlineOr "vref" $ doref "ref")  -- from varioref.sty
   , ("eqref", rawInlineOr "eqref" $ doref "eqref")   -- from amsmath.sty
-  , ("autoref", rawInlineOr "autoref" $ doref "autoref") -- from hyperref.sty
+  , ("autoref", rawInlineOr "autoref" $ doref "ref+label") -- from hyperref.sty
   ]
 
 acronymCommands :: PandocMonad m => M.Map Text (LP m Inlines)
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -31,6 +31,7 @@
 import Text.Pandoc.Readers.Roff  -- TODO explicit imports
 import qualified Text.Pandoc.Parsing as P
 import qualified Data.Foldable as Foldable
+import Text.Pandoc.Shared (extractSpaces)
 
 data ManState = ManState { readerOptions   :: ReaderOptions
                          , metadata        :: Meta
@@ -241,12 +242,12 @@
     | otherwise = text s <> go mono xs
   go mono (Font fs: xs)
     | litals > 0 && litals >= lbolds && litals >= lmonos
-       = emph (go mono (Font fs{ fontItalic = False } :
+       = extractSpaces emph (go mono (Font fs{ fontItalic = False } :
                    map (adjustFontSpec (\s -> s{ fontItalic = False }))
                    itals)) <>
             go mono italsrest
     | lbolds > 0 && lbolds >= lmonos
-       = strong (go mono (Font fs{ fontBold = False } :
+       = extractSpaces strong (go mono (Font fs{ fontBold = False } :
               map (adjustFontSpec (\s -> s{ fontBold = False }))
               bolds)) <>
             go mono boldsrest
@@ -305,12 +306,12 @@
     "RI" -> parseAlternatingFonts [id, emph] args
     "BR" -> parseAlternatingFonts [strong, id] args
     "RB" -> parseAlternatingFonts [id, strong] args
-    "SY" -> return $ strong $ mconcat $ intersperse B.space
+    "SY" -> return $ extractSpaces strong $ mconcat $ intersperse B.space
                    $ map linePartsToInlines args
     "YS" -> return mempty
     "OP" -> case args of
               (x:ys) -> return $ B.space <> str "[" <> B.space <>
-                         mconcat (strong (linePartsToInlines x) :
+                         mconcat (extractSpaces strong (linePartsToInlines x) :
                            map ((B.space <>) . linePartsToInlines) ys)
                          <> B.space <> str "]"
               []     -> return mempty
@@ -319,16 +320,18 @@
 parseBold :: PandocMonad m => [Arg] -> ManParser m Inlines
 parseBold [] = do
   TextLine lparts <- mline
-  return $ strong $ linePartsToInlines lparts
+  return $ extractSpaces strong $ linePartsToInlines lparts
 parseBold args = return $
-  strong $ mconcat $ intersperse B.space $ map linePartsToInlines args
+  extractSpaces strong $
+  mconcat $ intersperse B.space $ map linePartsToInlines args
 
 parseItalic :: PandocMonad m => [Arg] -> ManParser m Inlines
 parseItalic [] = do
   TextLine lparts <- mline
-  return $ emph $ linePartsToInlines lparts
+  return $ extractSpaces emph $ linePartsToInlines lparts
 parseItalic args = return $
-  emph $ mconcat $ intersperse B.space $ map linePartsToInlines args
+  extractSpaces emph $
+  mconcat $ intersperse B.space $ map linePartsToInlines args
 
 parseAlternatingFonts :: [Inlines -> Inlines]
                       -> [Arg]
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1843,19 +1843,20 @@
 wikilink :: PandocMonad m
   => (Attr -> Text -> Text -> Inlines -> Inlines)
   -> MarkdownParser m (F Inlines)
-wikilink constructor =
-  (guardEnabled Ext_wikilinks_title_after_pipe *> wikilink' swap) <|>
-  (guardEnabled Ext_wikilinks_title_before_pipe *> wikilink' id)
-  where
-    swap (a, b) = (b, a)
-    wikilink' order = try $ do
-      string "[["
-      notFollowedBy' (char '[')
-      raw <- many1TillChar (noneOf "\n\r\f\t") (try $ string "]]")
-      let (title, url) = case T.break (== '|') raw of
-            (before, "") -> (before, before)
-            (before, after) -> order (before, T.drop 1 after)
-      return . pure . constructor nullAttr url "wikilink" $ B.str title
+wikilink constructor = do
+  titleAfter <-
+    (True <$ guardEnabled Ext_wikilinks_title_after_pipe) <|>
+    (False <$ guardEnabled Ext_wikilinks_title_before_pipe)
+  string "[[" *> notFollowedBy' (char '[')
+  raw <- many1TillChar anyChar (try $ string "]]")
+  let (title, url) = case T.break (== '|') raw of
+        (before, "") -> (before, before)
+        (before, after)
+          | titleAfter -> (T.drop 1 after, before)
+          | otherwise -> (before, T.drop 1 after)
+  guard $ T.all (`notElem` ['\n','\r','\f','\t']) url
+  return . pure . constructor nullAttr url "wikilink" $
+     B.text $ fromEntities title
 
 link :: PandocMonad m => MarkdownParser m (F Inlines)
 link = try $ do
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -618,15 +618,16 @@
                      notFollowedBy' header <*
                      notFollowedBy anyListStart)
 
-imageIdentifiers :: PandocMonad m => [MWParser m ()]
-imageIdentifiers = [sym (identifier <> ":") | identifier <- identifiers]
-    where identifiers = ["File", "Image", "Archivo", "Datei", "Fichier",
-                         "Bild"]
+imageIdentifier :: PandocMonad m => MWParser m ()
+imageIdentifier = try $ do
+  ident <- T.pack <$> many1Till letter (char ':')
+  guard $ T.toLower ident `elem`
+            ["file", "image", "archivo", "datei", "fichier", "bild"]
 
 image :: PandocMonad m => MWParser m Inlines
 image = try $ do
   sym "[["
-  choice imageIdentifiers
+  imageIdentifier
   fname <- addUnderscores <$> many1Char (noneOf "|]")
   _ <- many imageOption
   dims <- try (char '|' *> sepBy (manyChar digit) (char 'x') <* string "px")
@@ -653,7 +654,7 @@
       <|> try (oneOfStrings ["link=","alt=","page=","class="] <* many (noneOf "|]"))
 
 addUnderscores :: Text -> Text
-addUnderscores = T.intercalate "_" . splitTextBy sep
+addUnderscores = T.intercalate "_" . splitTextBy sep . T.strip
   where
     sep c = isSpace c || c == '_'
 
diff --git a/src/Text/Pandoc/Readers/Typst.hs b/src/Text/Pandoc/Readers/Typst.hs
--- a/src/Text/Pandoc/Readers/Typst.hs
+++ b/src/Text/Pandoc/Readers/Typst.hs
@@ -503,8 +503,8 @@
       B.underline <$> pWithContents pInlines body)
   ,("quote", \_ fields -> do
       (getField "block" fields <|> pure False) >>= guard . not
-      body <- getField "body" fields >>= pWithContents pInlines
-      pure $ B.doubleQuoted body)
+      body <- getInlineBody fields >>= pWithContents pInlines
+      pure $ B.doubleQuoted $ B.trimInlines body)
   ,("link", \_ fields -> do
       dest <- getField "dest" fields
       src <- case dest of
@@ -568,6 +568,19 @@
       display <- getField "block" fields
       (if display then B.displayMath else B.math) . writeTeX <$> pMathMany body)
   ]
+
+getInlineBody :: PandocMonad m => M.Map Identifier Val -> P m (Seq Content)
+getInlineBody fields =
+  parbreaksToLinebreaks <$> getField "body" fields
+
+parbreaksToLinebreaks :: Seq Content -> Seq Content
+parbreaksToLinebreaks =
+  fmap go . Seq.dropWhileL isParbreak . Seq.dropWhileR isParbreak
+ where
+   go (Elt "parbreak" pos _) = Elt "linebreak" pos mempty
+   go x = x
+   isParbreak (Elt "parbreak" _ _) = True
+   isParbreak _ = False
 
 pPara :: PandocMonad m => P m B.Blocks
 pPara =
diff --git a/src/Text/Pandoc/Readers/Typst/Math.hs b/src/Text/Pandoc/Readers/Typst/Math.hs
--- a/src/Text/Pandoc/Readers/Typst/Math.hs
+++ b/src/Text/Pandoc/Readers/Typst/Math.hs
@@ -31,8 +31,6 @@
     ( P, pTok, ignored, pWithContents, getField, chunks )
 import Typst.Types
 
--- import Debug.Trace
-
 withGroup :: [Exp] -> Exp
 withGroup [x] = x
 withGroup xs = EGrouped xs
@@ -91,6 +89,9 @@
       base <- getField "base" fields >>= pMathGrouped
       acc <- getField "accent" fields >>= pMathGrouped
       let acc' = case acc of
+            ESymbol _ "\8901" -> ESymbol Accent "\775" -- \dot
+            ESymbol _ "\168" -> ESymbol Accent "\776" -- \ddot
+            ESymbol _ "\8764" -> ESymbol Accent "\771" -- \tilde
             ESymbol _ t -> ESymbol Accent t
             _ -> acc
       pure $ EOver False base acc'
@@ -175,7 +176,7 @@
         <$> (getField "body" fields >>= pMathGrouped)
         <*> pure (ESymbol TUnder "_")
     Elt "math.overline" _ fields ->
-      EUnder False
+      EOver False
         <$> (getField "body" fields >>= pMathGrouped)
         <*> pure (ESymbol TOver "\175")
     Elt "math.underbrace" _ fields -> do
@@ -229,7 +230,7 @@
       pure $ EDelimited "\8968" "\8969" [Right body]
     Elt "math.norm" _ fields -> do
       body <- getField "body" fields >>= pMathGrouped
-      pure $ EDelimited "\8741" "\8741" [Right body]
+      pure $ EDelimited "\8214" "\8214" [Right body]
     Elt "math.round" _ fields -> do
       body <- getField "body" fields >>= pMathGrouped
       pure $ EDelimited "\8970" "\8969" [Right body]
diff --git a/src/Text/Pandoc/SelfContained.hs b/src/Text/Pandoc/SelfContained.hs
--- a/src/Text/Pandoc/SelfContained.hs
+++ b/src/Text/Pandoc/SelfContained.hs
@@ -160,9 +160,7 @@
              case M.lookup hash svgmap of
                Just (svgid, svgattrs) -> do
                  let attrs' = [(k,v) | (k,v) <- combineSvgAttrs svgattrs attrs
-                                     , k /= "id"
-                                     , k /= "width"
-                                     , k /= "height"]
+                                     , k /= "id"]
                  return $ TagOpen "svg" attrs' :
                           TagOpen "use" [("href", "#" <> svgid),
                                          ("width", "100%"),
@@ -187,6 +185,10 @@
                             case T.uncons x of
                               Just ('#', x') -> (k, "#" <> svgid <> "_" <> x')
                               _ -> (k, x)
+                          addIdPrefix ("clip-path", x) = ("clip-path",
+                            case T.stripPrefix "url(#" x of
+                              Just x' -> "url(#" <> svgid <> "_" <> x'
+                              Nothing -> x)
                           addIdPrefix kv = kv
                       let ensureUniqueId (TagOpen tname ats) =
                             TagOpen tname (map addIdPrefix ats)
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -96,8 +96,9 @@
 import Data.List (find, foldl', groupBy, intercalate, intersperse,
                   union, sortOn)
 import qualified Data.Map as M
-import Data.Maybe (mapMaybe, fromMaybe)
-import Data.Monoid (Any (..))
+import Data.Maybe (mapMaybe)
+import Data.Monoid (Any (..) )
+import Data.Semigroup (Min (..))
 import Data.Sequence (ViewL (..), ViewR (..), viewl, viewr)
 import qualified Data.Set as Set
 import qualified Data.Text as T
@@ -299,7 +300,9 @@
 -- and 'Cm () Blocks' are instances of 'HasAttributes'.
 addPandocAttributes
   :: forall b . HasAttributes (Cm () b) => [(T.Text, T.Text)] -> b -> b
-addPandocAttributes kvs bs = unCm . addAttributes kvs $ (Cm bs :: Cm () b)
+addPandocAttributes [] bs = bs
+addPandocAttributes kvs bs =
+  unCm . addAttributes (("wrapper","1"):kvs) $ (Cm bs :: Cm () b)
 
 -- | Generate infinite lazy list of markers for an ordered list,
 -- depending on list attributes.
@@ -507,29 +510,28 @@
 -- element a Header).  If the 'numbering' parameter is True, Header
 -- numbers are added via the number attribute on the header.
 -- If the baseLevel parameter is Just n, Header levels are
--- adjusted to be gapless starting at level n.
+-- adjusted so that the lowest header level is n.
+-- (There may still be gaps in header level if the author leaves them.)
 makeSections :: Bool -> Maybe Int -> [Block] -> [Block]
 makeSections numbering mbBaseLevel bs =
-  S.evalState (go bs) (mbBaseLevel, [])
+  S.evalState (go bs) []
  where
-  go :: [Block] -> S.State (Maybe Int, [Int]) [Block]
+  getLevel (Header level _ _) = Min level
+  getLevel _ = Min 99
+  minLevel = getMin $ query getLevel bs
+  go :: [Block] -> S.State [Int] [Block]
   go (Header level (ident,classes,kvs) title':xs) = do
-    (mbLevel, lastnum) <- S.get
-    let level' = fromMaybe level mbLevel
-    let lastnum' = take level' lastnum
-    let newnum =
-          if level' > 0
-             then case length lastnum' of
-                      x | "unnumbered" `elem` classes -> []
-                        | x >= level' -> init lastnum' ++ [last lastnum' + 1]
-                        | otherwise -> lastnum ++
-                             replicate (level' - length lastnum - 1) 0 ++ [1]
-             else []
-    unless (null newnum) $ S.modify $ \(mbl, _) -> (mbl, newnum)
+    lastnum <- S.get
+    let level' = maybe level (\n -> n + level - minLevel) mbBaseLevel
+    let adjustNum lev numComponent
+          | lev < level = numComponent
+          | lev == level = numComponent + 1
+          | otherwise = 0
+    let newnum = zipWith adjustNum [minLevel..level]
+                    (lastnum ++ repeat 0)
+    unless (null newnum) $ S.put newnum
     let (sectionContents, rest) = break (headerLtEq level) xs
-    S.modify $ \(_, ln) -> (fmap (+ 1) mbLevel, ln)
     sectionContents' <- go sectionContents
-    S.modify $ \(_, ln) -> (mbLevel, ln)
     rest' <- go rest
     let kvs' = -- don't touch number if already present
                case lookup "number" kvs of
diff --git a/src/Text/Pandoc/Writers.hs b/src/Text/Pandoc/Writers.hs
--- a/src/Text/Pandoc/Writers.hs
+++ b/src/Text/Pandoc/Writers.hs
@@ -30,6 +30,7 @@
     , writeConTeXt
     , writeCslJson
     , writeDZSlides
+    , writeDjot
     , writeDocBook4
     , writeDocBook5
     , writeDocx
@@ -95,6 +96,7 @@
 import Text.Pandoc.Writers.CommonMark
 import Text.Pandoc.Writers.ConTeXt
 import Text.Pandoc.Writers.CslJson
+import Text.Pandoc.Writers.Djot
 import Text.Pandoc.Writers.DocBook
 import Text.Pandoc.Writers.Docx
 import Text.Pandoc.Writers.DokuWiki
@@ -197,6 +199,7 @@
   ,("biblatex"     , TextWriter writeBibLaTeX)
   ,("markua"       , TextWriter writeMarkua)
   ,("chunkedhtml"  , ByteStringWriter writeChunkedHTML)
+  ,("djot"         , TextWriter writeDjot)
   ]
 
 -- | Retrieve writer, extensions based on formatSpec (format+extensions).
diff --git a/src/Text/Pandoc/Writers/Djot.hs b/src/Text/Pandoc/Writers/Djot.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Pandoc/Writers/Djot.hs
@@ -0,0 +1,296 @@
+{-# LANGUAGE OverloadedStrings   #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{- |
+   Module      : Text.Pandoc.Writers.Djot
+   Copyright   : Copyright (C) 2024 John MacFarlane
+   License     : GNU GPL, version 2 or above
+
+   Maintainer  : John MacFarlane <jgm@berkeley.edu>
+   Stability   : alpha
+   Portability : portable
+
+Conversion of 'Pandoc' format into Djot markup (<https://djot.net>).
+-}
+module Text.Pandoc.Writers.Djot (
+    writeDjot
+  ) where
+import Text.Pandoc.Definition
+import Text.Pandoc.Logging
+import Text.Pandoc.Class ( PandocMonad , report )
+import Text.Pandoc.Options ( WriterOptions(..), WrapOption(..))
+import Data.Text (Text)
+import Data.Set (Set)
+import qualified Data.Set as Set
+import qualified Data.ByteString as B
+import qualified Data.ByteString.Char8 as B8
+import Data.List (intersperse)
+import qualified Data.Text as T
+import qualified Data.Map as M
+import qualified Text.Pandoc.UTF8 as UTF8
+import Text.Pandoc.Writers.Shared ( metaToContext, defField, toLegacyTable )
+import Text.Pandoc.Shared (isTightList, tshow, stringify, onlySimpleTableCells,
+                           makeSections)
+import Text.DocLayout
+import Text.DocTemplates (renderTemplate)
+
+import Control.Monad.State (StateT(..), gets, modify)
+import Control.Monad (zipWithM, when)
+import Data.Maybe (fromMaybe)
+import qualified Djot.AST as D
+import Djot (renderDjot, RenderOptions(..), toIdentifier)
+import Text.Pandoc.UTF8 (fromText)
+
+-- | Convert Pandoc to Djot.
+writeDjot :: PandocMonad m => WriterOptions -> Pandoc -> m Text
+writeDjot opts (Pandoc meta blocks) = do
+  let colwidth = if writerWrapText opts == WrapAuto
+                    then Just $ writerColumns opts
+                    else Nothing
+  let ropts = RenderOptions{ preserveSoftBreaks =
+                               writerWrapText opts == WrapPreserve }
+  metadata <- metaToContext opts
+               (fmap (renderDjot ropts) . bodyToDjot opts)
+               (fmap (chomp . renderDjot ropts) . bodyToDjot opts .
+                  (:[]) . Plain)
+               meta
+  main <- renderDjot ropts <$>
+            bodyToDjot opts (makeSections False Nothing blocks)
+  let context  = defField "body" main metadata
+  return $ render colwidth $
+    case writerTemplate opts of
+       Nothing  -> main
+       Just tpl -> renderTemplate tpl context
+
+data DjotState =
+  DjotState
+  { footnotes :: D.NoteMap
+  , references :: D.ReferenceMap
+  , autoReferences :: D.ReferenceMap
+  , autoIds :: Set B.ByteString
+  , options :: WriterOptions }
+
+bodyToDjot :: PandocMonad m => WriterOptions -> [Block] -> m D.Doc
+bodyToDjot opts bls = do
+  (bs, st) <- runStateT (blocksToDjot bls)
+               (DjotState mempty mempty mempty mempty opts)
+  let D.ReferenceMap autos = autoReferences st
+  let D.ReferenceMap refs = references st
+  pure $ D.Doc{ D.docBlocks = bs
+              , D.docFootnotes = footnotes st
+              , D.docReferences = D.ReferenceMap $ M.difference refs autos
+              , D.docAutoReferences = D.ReferenceMap autos
+              , D.docAutoIdentifiers = autoIds st
+              }
+
+blocksToDjot :: PandocMonad m => [Block] -> StateT DjotState m D.Blocks
+blocksToDjot = fmap mconcat . mapM blockToDjot
+
+blockToDjot :: PandocMonad m => Block -> StateT DjotState m D.Blocks
+blockToDjot (Para ils) = D.para <$> inlinesToDjot ils
+blockToDjot (Plain ils) = D.para <$> inlinesToDjot ils
+blockToDjot (LineBlock ls) =
+  D.para . mconcat . intersperse D.hardBreak <$> mapM inlinesToDjot ls
+blockToDjot (CodeBlock attr@(_,_,kvs) t) = do
+  let lang = fromMaybe mempty $ lookup "lang" kvs
+  pure $ D.addAttr (toDjotAttr attr)
+       <$> D.codeBlock (fromText lang) (fromText t)
+blockToDjot (RawBlock (Format f) t) =
+  pure $ D.rawBlock (D.Format (fromText f)) (fromText t)
+blockToDjot (BlockQuote bls) = D.blockQuote <$> blocksToDjot bls
+blockToDjot (Header lev attr ils) =
+  fmap (D.addAttr (toDjotAttr attr)) . D.heading lev <$> inlinesToDjot ils
+blockToDjot HorizontalRule = pure D.thematicBreak
+blockToDjot (Div (ident,"section":cls,kvs) bls@(Header _ _ ils : _)) = do
+  ilsBs <- D.inlinesToByteString <$> inlinesToDjot ils
+  let ident' = toIdentifier ilsBs
+  let label = D.normalizeLabel ilsBs
+  let autoid = UTF8.toText ident' == ident
+  when autoid $
+    modify $ \st -> st{ autoIds = Set.insert ident' (autoIds st) }
+  modify $ \st -> st{ autoReferences = D.insertReference label
+                          (B8.cons '#' ident', mempty) (autoReferences st) }
+  fmap
+    (D.addAttr (toDjotAttr (if autoid then "" else ident,
+                         filter (/= "section") cls,
+                         filter (\(k,_) -> k /= "wrapper") kvs))) . D.section
+     <$> blocksToDjot bls
+blockToDjot (Div attr@(ident,cls,kvs) bls)
+  | Just "1" <- lookup "wrapper" kvs
+    = fmap (D.addAttr
+             (toDjotAttr (ident,cls,filter (\(k,_) -> k /= "wrapper") kvs)))
+       <$> blocksToDjot bls
+  | otherwise
+    = fmap (D.addAttr (toDjotAttr attr)) . D.div <$> blocksToDjot bls
+blockToDjot (BulletList items) =
+  D.bulletList spacing <$> mapM blocksToDjot items
+ where
+   spacing = if isTightList items then D.Tight else D.Loose
+blockToDjot (OrderedList (start, sty, delim) items) =
+  D.orderedList listAttr spacing <$> mapM blocksToDjot items
+ where
+   spacing = if isTightList items then D.Tight else D.Loose
+   listAttr = D.OrderedListAttributes {
+                D.orderedListStyle =
+                  case sty of
+                    DefaultStyle -> D.Decimal
+                    Example -> D.Decimal
+                    Decimal -> D.Decimal
+                    LowerRoman -> D.RomanLower
+                    UpperRoman -> D.RomanUpper
+                    LowerAlpha -> D.LetterLower
+                    UpperAlpha -> D.LetterUpper,
+                D.orderedListDelim =
+                    case delim of
+                      DefaultDelim -> D.RightPeriod
+                      Period -> D.RightPeriod
+                      OneParen -> D.RightParen
+                      TwoParens -> D.LeftRightParen,
+                D.orderedListStart = start }
+blockToDjot (DefinitionList items) =
+  D.definitionList spacing <$> mapM toDLItem items
+ where
+   spacing = if isTightList (map (concat . snd) items)
+                then D.Tight
+                else D.Loose
+   toDLItem (term, defs) = do
+     term' <- inlinesToDjot term
+     def' <- mconcat <$> mapM blocksToDjot defs
+     pure (term', def')
+blockToDjot (Figure attr (Caption _ capt) bls) = do
+  content <- blocksToDjot bls
+  caption <- fmap (D.addAttr (D.Attr [("class","caption")])) . D.div <$>
+               blocksToDjot capt
+  pure $ fmap (D.addAttr (toDjotAttr attr)) $ D.div $ content <> caption
+blockToDjot (Table attr capt' colspecs thead tbodies tfoot) = do
+  let (capt, aligns, _, headRow, bodyRows) =
+        toLegacyTable capt' colspecs thead tbodies tfoot
+  if onlySimpleTableCells (headRow : bodyRows)
+     then do
+       let alignToAlign al = case al of
+                               AlignDefault -> D.AlignDefault
+                               AlignLeft -> D.AlignLeft
+                               AlignRight -> D.AlignRight
+                               AlignCenter -> D.AlignCenter
+       let defAligns = map alignToAlign aligns
+       let cellToCell isHeader bls al =
+             D.Cell (if isHeader then D.HeadCell else D.BodyCell) al
+               <$> case bls of
+                     [Para ils] -> inlinesToDjot ils
+                     [Plain ils] -> inlinesToDjot ils
+                     [] -> pure mempty
+                     bs -> do
+                       mapM_ (report . BlockNotRendered) bs
+                       pure $ D.str "((omitted))"
+       let rowToRow isHeader cells = zipWithM (cellToCell isHeader) cells defAligns
+       hrows <- if null headRow
+                   then pure []
+                   else (:[]) <$> rowToRow True headRow
+       rows <- mapM (rowToRow False) bodyRows
+       caption <- case capt of
+                       [] -> pure Nothing
+                       _ -> Just . D.Caption . D.para <$> inlinesToDjot capt
+       pure $ D.addAttr (toDjotAttr attr) <$> D.table caption (hrows <> rows)
+     else do -- table can't be represented as a simple pipe table, use list
+       tableList <- D.bulletList D.Loose <$> mapM
+                     (fmap (D.bulletList D.Loose) . mapM blocksToDjot)
+                      (headRow:bodyRows)
+       pure $ D.addAttr (D.Attr [("class", "table")]) <$> tableList
+
+inlinesToDjot :: PandocMonad m => [Inline] -> StateT DjotState m D.Inlines
+inlinesToDjot = fmap mconcat . mapM inlineToDjot
+
+inlineToDjot :: PandocMonad m => Inline -> StateT DjotState m D.Inlines
+inlineToDjot (Str t) = pure $ D.str (fromText t)
+inlineToDjot Space = pure $ D.str " "
+inlineToDjot SoftBreak = pure D.softBreak
+inlineToDjot LineBreak = pure D.hardBreak
+inlineToDjot (Emph ils) = D.emph <$> inlinesToDjot ils
+inlineToDjot (Underline ils) =
+  fmap (D.addAttr (D.Attr [("class","underline")])) . D.span_
+    <$> inlinesToDjot ils
+inlineToDjot (Strong ils) = D.strong <$> inlinesToDjot ils
+inlineToDjot (Strikeout ils) = D.delete <$> inlinesToDjot ils
+inlineToDjot (Subscript ils) = D.subscript <$> inlinesToDjot ils
+inlineToDjot (Superscript ils) = D.superscript <$> inlinesToDjot ils
+inlineToDjot (Span attr@(ident,cls,kvs) ils)
+  | Just "1" <- lookup "wrapper" kvs
+    = fmap (D.addAttr
+            (toDjotAttr (ident,cls,filter (\(k,_) -> k /= "wrapper") kvs)))
+       <$> inlinesToDjot ils
+  | otherwise
+    = fmap (D.addAttr (toDjotAttr attr)) . D.span_ <$> inlinesToDjot ils
+inlineToDjot (SmallCaps ils) =
+  fmap (D.addAttr (D.Attr [("class","smallcaps")])) . D.span_
+    <$> inlinesToDjot ils
+inlineToDjot (Quoted DoubleQuote ils) = D.doubleQuoted <$> inlinesToDjot ils
+inlineToDjot (Quoted SingleQuote ils) = D.singleQuoted <$> inlinesToDjot ils
+inlineToDjot (Cite _cs ils) = inlinesToDjot ils
+inlineToDjot (Code attr t) =
+  pure $ D.addAttr (toDjotAttr attr) <$> D.verbatim (fromText t)
+inlineToDjot (Math mt t) =
+  pure $ (if mt == InlineMath
+             then D.inlineMath
+             else D.displayMath) (fromText t)
+inlineToDjot (RawInline (Format f) t) =
+  pure $ D.rawInline (D.Format (fromText f)) (fromText t)
+inlineToDjot (Link attr ils (src,tit)) = do
+  opts <- gets options
+  description <- inlinesToDjot ils
+  let ilstring = stringify ils
+  let autolink = ilstring == src
+  let email = ("mailto:" <> ilstring) == src
+  let removeClass name (ident, cls, kvs) = (ident, filter (/= name) cls, kvs)
+  let attr' = D.Attr [("title", fromText tit) | not (T.null tit)] <>
+               toDjotAttr ( (if autolink
+                                then removeClass "uri"
+                                else id) .
+                            (if email
+                                then removeClass "email"
+                                else id) $ attr)
+  case () of
+    _ | autolink -> pure $ D.addAttr attr' <$> D.urlLink (fromText ilstring)
+      | email -> pure $ D.addAttr attr' <$> D.emailLink (fromText ilstring)
+      | writerReferenceLinks opts
+        -> do refs@(D.ReferenceMap m) <- gets references
+              autoRefs <- gets autoReferences
+              let lab' = D.inlinesToByteString description
+              lab <- case D.lookupReference lab' (refs <> autoRefs) of
+                       Just _ -> pure lab'
+                       Nothing -> do
+                         let refnum = M.size m + 1
+                         let lab = fromText $ tshow refnum
+                         modify $ \st -> st{ references =
+                                               D.insertReference lab
+                                                 (fromText src, attr') refs }
+                         pure lab
+              pure $ D.addAttr attr' <$> D.link description (D.Reference lab)
+      | otherwise
+         -> pure $ D.addAttr attr' <$> D.link description (D.Direct (fromText src))
+inlineToDjot (Image attr ils (src,tit)) = do
+  opts <- gets options
+  description <- inlinesToDjot ils
+  let attr' = D.Attr [("title", fromText tit) | not (T.null tit)] <>
+                toDjotAttr attr
+  if writerReferenceLinks opts
+     then do
+       refs@(D.ReferenceMap m) <- gets references
+       let refnum = M.size m + 1
+       let lab = fromText $ tshow refnum
+       modify $ \st -> st{ references =
+                             D.insertReference lab
+                               (fromText src, attr') refs }
+       pure $ D.addAttr attr' <$> D.image description (D.Reference lab)
+     else pure $ D.addAttr attr' <$> D.image description (D.Direct (fromText src))
+inlineToDjot (Note bs) = do
+  notes@(D.NoteMap m) <- gets footnotes
+  let notenum = M.size m + 1
+  let lab = fromText $ tshow notenum
+  contents <- blocksToDjot bs
+  modify $ \st -> st{ footnotes = D.insertNote lab contents notes }
+  pure $ D.footnoteReference lab
+
+toDjotAttr :: (Text, [Text], [(Text, Text)]) -> D.Attr
+toDjotAttr (ident, classes, kvs) =
+  D.Attr $ [("id", fromText ident) | not (T.null ident)] ++
+           [("class", fromText (T.unwords classes)) | not (null classes)] ++
+           map (\(k,v) -> (fromText k, fromText v)) kvs
diff --git a/src/Text/Pandoc/Writers/Docx/Table.hs b/src/Text/Pandoc/Writers/Docx/Table.hs
--- a/src/Text/Pandoc/Writers/Docx/Table.hs
+++ b/src/Text/Pandoc/Writers/Docx/Table.hs
@@ -114,8 +114,8 @@
   let tbl = mknode "w:tbl" []
         ( mknode "w:tblPr" []
           ( [ mknode "w:tblStyle" [("w:val","Table")] (),
-              mknode "w:tblW" tblWattr (),
-              mknode "w:jc" [("w:val","left")] () ] ++
+              mknode "w:tblW" tblWattr () ] ++
+            [ mknode "w:jc" [("w:val","left")] () | indent > 0 ] ++
             [ mknode "w:tblInd" [("w:w", tshow indent),("w:type","dxa")] ()
                 | indent > 0 ] ++
             [ mknode "w:tblLayout" [("w:type", "fixed")] () | hasWidths ] ++
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs
--- a/src/Text/Pandoc/Writers/EPUB.hs
+++ b/src/Text/Pandoc/Writers/EPUB.hs
@@ -100,6 +100,11 @@
   , epubPageDirection       :: Maybe ProgressionDirection
   , epubIbooksFields        :: [(Text, Text)]
   , epubCalibreFields       :: [(Text, Text)]
+  , epubAccessModes         :: [Text] -- https://kb.daisy.org/publishing/docs/metadata/schema.org/accessMode.html
+  , epubAccessModeSufficient :: [Text] -- https://kb.daisy.org/publishing/docs/metadata/schema.org/accessModeSufficient.html
+  , epubAccessibilityFeatures :: [Text]  -- https://kb.daisy.org/publishing/docs/metadata/schema.org/accessibilityFeature.html
+  , epubAccessibilityHazards :: [Text] -- https://kb.daisy.org/publishing/docs/metadata/schema.org/accessibilityHazard.html
+  , epubAccessibilitySummary :: Maybe Text -- https://kb.daisy.org/publishing/docs/metadata/schema.org/accessibilitySummary.html
   } deriving Show
 
 data Date = Date{
@@ -261,16 +266,15 @@
   | otherwise = md
   where getAttr n = lookupAttr (opfName n) attrs
 addMetadataFromXML e@(Element (QName "meta" _ _) attrs _ _) md =
-  case getAttr "property" of
+  case getAttr "property" `mplus` getAttr "name" of
        Just s | "ibooks:" `T.isPrefixOf` s ->
                 md{ epubIbooksFields = (T.drop 7 s, strContent e) :
                        epubIbooksFields md }
-       _ -> case getAttr "name" of
-                 Just s | "calibre:" `T.isPrefixOf` s ->
+              | "calibre:" `T.isPrefixOf` s ->
                    md{ epubCalibreFields =
                          (T.drop 8 s, fromMaybe "" $ getAttr "content") :
                           epubCalibreFields md }
-                 _ -> md
+       _ -> md
   where getAttr n = lookupAttr (unqual n) attrs
 addMetadataFromXML _ md = md
 
@@ -359,6 +363,11 @@
     , epubPageDirection        = pageDirection
     , epubIbooksFields         = ibooksFields
     , epubCalibreFields        = calibreFields
+    , epubAccessModes          = accessModes
+    , epubAccessModeSufficient = accessModeSufficient
+    , epubAccessibilityFeatures = accessibilityFeatures
+    , epubAccessibilityHazards = accessibilityHazards
+    , epubAccessibilitySummary = accessibilitySummary
     }
   where identifiers = getIdentifier meta
         titles = getTitle meta
@@ -402,6 +411,22 @@
                             Just (MetaMap mp)
                                -> M.toList $ M.map metaValueToString mp
                             _  -> []
+        accessModes = case lookupMeta "accessModes" meta of
+                         Just (MetaList xs) -> map metaValueToString xs
+                         _ -> ["textual"]
+        accessModeSufficient = case lookupMeta "accessModeSufficient" meta of
+                         Just (MetaList xs) -> map metaValueToString xs
+                         _ -> ["textual"]
+        accessibilityFeatures =
+                      case lookupMeta "accessibilityFeatures" meta of
+                         Just (MetaList xs) -> map metaValueToString xs
+                         _ -> ["alternativeText", "readingOrder",
+                               "structuralNavigation", "tableOfContents"]
+        accessibilityHazards =
+                       case lookupMeta "accessibilityHazards" meta of
+                         Just (MetaList xs) -> map metaValueToString xs
+                         _ -> ["none"]
+        accessibilitySummary = metaValueToString <$> lookupMeta "accessibilitySummary" meta
 
 -- | Produce an EPUB2 file from a Pandoc document.
 writeEPUB2 :: PandocMonad m
@@ -614,6 +639,7 @@
                              EPUB2 -> "2.0"
                              EPUB3 -> "3.0")
            ,("xmlns","http://www.idpf.org/2007/opf")
+           ,("xml:lang", epubLanguage metadata)
            ,("unique-identifier","epub-id-1")
            ] ++
            [("prefix","ibooks: http://vocabulary.itunes.apple.com/rdf/ibooks/vocabulary-extensions-1.0/") | version == EPUB3]) $
@@ -930,6 +956,7 @@
   let navBlocks = [RawBlock (Format "html")
                   $ showElement $ -- prettyprinting introduces bad spaces
                    unode navtag ! ([("epub:type","toc") | version == EPUB3] ++
+                                   [("role","doc-toc") | version == EPUB3] ++
                                    [("id","toc")]) $
                     [ unode "h1" ! [("id","toc-title")] $ tocTitle
                     , unode "ol" ! [("class","toc")] $ tocBlocks ]]
@@ -981,6 +1008,9 @@
                   ++ publisherNodes ++ sourceNodes ++ relationNodes
                   ++ coverageNodes ++ rightsNodes ++ coverImageNodes
                   ++ modifiedNodes ++ belongsToCollectionNodes
+                  ++ accessModeNodes ++ accessModeSufficientNodes ++ accessibilityFeatureNodes
+                  ++ accessibilityHazardNodes ++ accessibilitySummaryNodes
+        metaprop = if version == EPUB2 then "name" else "property"
         withIds base f = concat . zipWith f (map (\x -> base <>
                                                         T.cons '-' (tshow x))
                          ([1..] :: [Int]))
@@ -996,9 +1026,9 @@
                                  (x:_) -> [dcNode "date" ! [("id","epub-date")]
                                             $ dateText x]
         ibooksNodes = map ibooksNode (epubIbooksFields md)
-        ibooksNode (k, v) = unode "meta" ! [("property", "ibooks:" <> k)] $ v
+        ibooksNode (k, v) = unode "meta" ! [(metaprop, "ibooks:" <> k)] $ v
         calibreNodes = map calibreNode (epubCalibreFields md)
-        calibreNode (k, v) = unode "meta" ! [("name", "calibre:" <> k),
+        calibreNode (k, v) = unode "meta" ! [(metaprop, "calibre:" <> k),
                                              ("content", v)] $ ()
         languageNodes = [dcTag "language" $ epubLanguage md]
         creatorNodes = withIds "epub-creator" (toCreatorNode "creator") $
@@ -1015,20 +1045,29 @@
         coverageNodes = maybe [] (dcTag' "coverage") $ epubCoverage md
         rightsNodes = maybe [] (dcTag' "rights") $ epubRights md
         coverImageNodes = maybe []
-            (\img -> [unode "meta" !  [("name","cover"),
+            (\img -> [unode "meta" !  [(metaprop,"cover"),
                                        ("content",toId img)] $ ()])
             $ epubCoverImage md
-        modifiedNodes = [ unode "meta" ! [("property", "dcterms:modified")] $
+        modifiedNodes = [ unode "meta" ! [(metaprop, "dcterms:modified")] $
                showDateTimeISO8601 currentTime | version == EPUB3 ]
         belongsToCollectionNodes =
             maybe []
-                (\belongsToCollection -> (unode "meta" !  [("property", "belongs-to-collection"), ("id", "epub-collection-1")] $ belongsToCollection )
+                (\belongsToCollection -> (unode "meta" !  [(metaprop, "belongs-to-collection"), ("id", "epub-collection-1")] $ belongsToCollection )
                 :
-                [unode "meta" !  [("refines", "#epub-collection-1"), ("property", "collection-type")] $ ("series" :: Text) ])
+                [unode "meta" !  [("refines", "#epub-collection-1"), (metaprop, "collection-type")] $ ("series" :: Text) ])
                 (epubBelongsToCollection md)++
             maybe []
-                (\groupPosition -> [unode "meta" !  [("refines", "#epub-collection-1"), ("property", "group-position")] $ groupPosition ])
+                (\groupPosition -> [unode "meta" !  [("refines", "#epub-collection-1"), (metaprop, "group-position")] $ groupPosition ])
                 (epubGroupPosition md)
+        schemanode k v = unode "meta" ! [(metaprop, "schema:" <> k)] $ v
+        accessModeNodes = map (schemanode "accessMode") (epubAccessModes md)
+        accessModeSufficientNodes = map (schemanode "accessModeSufficient") (epubAccessModeSufficient md)
+        accessibilityFeatureNodes = map (schemanode "accessibilityFeature")
+            (epubAccessibilityFeatures md)
+        accessibilityHazardNodes = map (schemanode "accessibilityHazard")
+            (epubAccessibilityHazards md)
+        accessibilitySummaryNodes = maybe [] (\summary -> [schemanode "accessibilitySummary" summary]) $ epubAccessibilitySummary md
+
         dcTag n s = unode ("dc:" <> n) s
         dcTag' n s = [dcTag n s]
         toIdentifierNode id' (Identifier txt scheme)
@@ -1038,7 +1077,7 @@
           | otherwise = (dcNode "identifier" ! [("id",id')] $ txt) :
               maybe [] ((\x -> [unode "meta" !
                                 [ ("refines","#" <> id')
-                                , ("property","identifier-type")
+                                , (metaprop,"identifier-type")
                                 , ("scheme","onix:codelist5")
                                 ]
                                 $ x
@@ -1053,10 +1092,10 @@
                (creatorRole creator >>= toRelator)) $ creatorText creator]
           | otherwise = [dcNode s ! [("id",id')] $ creatorText creator] ++
               maybe [] (\x -> [unode "meta" !
-                   [("refines","#" <> id'),("property","file-as")] $ x])
+                   [("refines","#" <> id'),(metaprop,"file-as")] $ x])
                    (creatorFileAs creator) ++
               maybe [] (\x -> [unode "meta" !
-                   [("refines","#" <> id'),("property","role"),
+                   [("refines","#" <> id'),(metaprop,"role"),
                      ("scheme","marc:relators")] $ x])
                    (creatorRole creator >>= toRelator)
         toTitleNode id' title
@@ -1068,10 +1107,10 @@
           | otherwise = [dcNode "title" ! [("id",id')] $ titleText title]
               ++
               maybe [] (\x -> [unode "meta" !
-                   [("refines","#" <> id'),("property","file-as")] $ x])
+                   [("refines","#" <> id'),(metaprop,"file-as")] $ x])
                    (titleFileAs title) ++
               maybe [] (\x -> [unode "meta" !
-                   [("refines","#" <> id'),("property","title-type")] $ x])
+                   [("refines","#" <> id'),(metaprop,"title-type")] $ x])
                    (titleType title)
         toDateNode id' date = [dcNode "date" !
              (("id",id') :
@@ -1082,9 +1121,9 @@
             [("id",id')] $ subjectText subject]
           | otherwise = (dcNode "subject" ! [("id",id')] $ subjectText subject)
             : maybe [] (\x -> (unode "meta" !
-                    [("refines", "#" <> id'),("property","authority")] $ x) :
+                    [("refines", "#" <> id'),(metaprop,"authority")] $ x) :
                     maybe [] (\y -> [unode "meta" !
-                         [("refines", "#" <> id'),("property","term")] $ y])
+                         [("refines", "#" <> id'),(metaprop,"term")] $ y])
                          (subjectTerm subject))
                     (subjectAuthority subject)
         schemeToOnix :: Text -> Text
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -87,6 +87,7 @@
 data WriterState = WriterState
     { stNotes        :: [Html]  -- ^ List of notes
     , stEmittedNotes :: Int     -- ^ How many notes we've already pushed out to the HTML
+    , stEmittedNoteBlocks :: Int  -- ^ How many @\<div class=footnote>@ blocks we've already pushed out
     , stMath         :: Bool    -- ^ Math is used in document
     , stQuotes       :: Bool    -- ^ <q> tag is used
     , stHighlighting :: Bool    -- ^ Syntax highlighting is used
@@ -102,7 +103,11 @@
     }
 
 defaultWriterState :: WriterState
-defaultWriterState = WriterState {stNotes= [], stEmittedNotes = 0, stMath = False, stQuotes = False,
+defaultWriterState = WriterState {stNotes= [],
+                                  stEmittedNotes = 0,
+                                  stEmittedNoteBlocks = 0,
+                                  stMath = False,
+                                  stQuotes = False,
                                   stHighlighting = False,
                                   stHtml5 = False,
                                   stEPUBVersion = Nothing,
@@ -530,6 +535,16 @@
   let hrtag = if refLocation /= EndOfBlock
                  then (if html5 then H5.hr else H.hr) <> nl
                  else mempty
+  idName <- do
+    blockCount <- gets stEmittedNoteBlocks
+    modify $ \st -> st{ stEmittedNoteBlocks = blockCount + 1 }
+    return $
+      -- Keep the first note section's id undecorated to maintain a target for
+      -- old links which don't expect numbered sections, or for when the notes
+      -- are rendered all together at the end of the document.
+      if blockCount <= 0
+        then "footnotes"
+        else "footnotes-" <> show (blockCount + 1)
   let additionalClassName = case refLocation of
         EndOfBlock -> "footnotes-end-of-block"
         EndOfDocument -> "footnotes-end-of-document"
@@ -539,17 +554,17 @@
   let container x
         | html5
         , epubVersion == Just EPUB3
-                = H5.section ! A.id "footnotes"
+                = H5.section ! A.id (fromString idName)
                              ! A.class_ className
                              ! customAttribute "epub:type" "footnotes" $ x
         | html5
         , refLocation == EndOfDocument
         -- Note: we need a section for a new slide in slide formats.
-                = H5.section ! A5.id "footnotes"
+                = H5.section ! A5.id (fromString idName)
                              ! A5.class_ className
                              ! A5.role "doc-endnotes"
                              $ x
-        | html5 = H5.aside   ! prefixedId opts "footnotes"
+        | html5 = H5.aside   ! prefixedId opts (fromString idName)
                              ! A5.class_ className
                              ! A5.role "doc-footnote"
                              $ x
@@ -721,17 +736,22 @@
      then doc
      else walk go doc
   where
-   go (Div (ident,"section":classes,kvs) lst) =
-     Div (ident,"section":classes,map fixnum kvs) lst
+   go (Div (ident,"section":classes,kvs) lst@(Header level _ _ : _)) =
+     Div (ident,"section":classes,map (fixnum level) kvs) lst
    go (Header level (ident,classes,kvs) lst) =
-     Header level (ident,classes,map fixnum kvs) lst
+     Header level (ident,classes,map (fixnum level) kvs) lst
    go x = x
-   fixnum ("number",num) = ("number",
+   fixnum level ("number",num) = ("number",
                                showSecNum $ zipWith (+)
                                (writerNumberOffset opts ++ repeat 0)
-                               (map (fromMaybe 0 . safeRead) $
+                               (padTo level $
+                                map (fromMaybe 0 . safeRead) $
                                 T.split (=='.') num))
-   fixnum x = x
+   fixnum _ x = x
+   padTo n xs =
+     case n - length xs of
+       x | x > 0 -> replicate x 0 ++ xs
+         | otherwise -> xs
    showSecNum = T.intercalate "." . map tshow
 
 blockToHtmlInner :: PandocMonad m => WriterOptions -> Block -> StateT WriterState m Html
@@ -1552,6 +1572,7 @@
                                     then link'
                                     else link' ! A.title (toValue tit)
     (Image attr@(_, _, attrList) txt (s, tit)) -> do
+                        epubVersion <- gets stEPUBVersion
                         let alternate = stringify txt
                         slideVariant <- gets stSlideVariant
                         let isReveal = slideVariant == RevealJsSlides
@@ -1564,8 +1585,9 @@
                               [A.title $ toValue tit | not (T.null tit)] ++
                               attrs
                             imageTag = (if html5 then H5.img else H.img
-                              , [A.alt $ toValue alternate | not (null txt) &&
-                                  isNothing (lookup "alt" attrList)] )
+                              , [A.alt $ toValue alternate |
+                                  isNothing (lookup "alt" attrList) &&
+                                  (isJust epubVersion || not (null txt))] )
                             mediaTag tg fallbackTxt =
                               let linkTxt = if null txt
                                             then fallbackTxt
@@ -1603,7 +1625,7 @@
                                              else H.sup)
                                        $ toHtml ref
                         return $ case epubVersion of
-                                      Just EPUB3 -> link ! customAttribute "epub:type" "noteref"
+                                      Just EPUB3 -> link ! customAttribute "epub:type" "noteref" ! customAttribute "role" "doc-noteref"
                                       _ | html5  -> link ! A5.role "doc-noteref"
                                       _          -> link
     (Cite cits il)-> do contents <- inlineListToHtml opts
@@ -1666,7 +1688,7 @@
              _ -> Para [backlink , Str "."] : blocks
       contents <- blockListToHtml opts blocks'
       let noteItem = (if epubv == EPUB3
-                         then H5.aside ! customAttribute "epub:type" "footnote"
+                         then H5.aside ! customAttribute "epub:type" "footnote" ! customAttribute "role" "doc-footnote"
                          else H.div) ! prefixedId opts ("fn" <> ref)
                       $ nl >> contents >> nl
       return $ noteItem >> nl
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -404,7 +404,13 @@
      then blockToLaTeX (RawBlock "latex" "\\pause")
      else inlineListToLaTeX [Str ".",Space,Str ".",Space,Str "."]
 blockToLaTeX (Para lst) =
-  inlineListToLaTeX lst
+  if null lst
+     then do
+       opts <- gets stOptions
+       if isEnabled Ext_empty_paragraphs opts
+          then pure "\\hfill\\par"
+          else pure mempty
+     else inlineListToLaTeX lst
 blockToLaTeX (LineBlock lns) =
   blockToLaTeX $ linesToPara lns
 blockToLaTeX (BlockQuote lst) = do
@@ -775,7 +781,8 @@
                   => [Inline]  -- ^ Inlines to convert
                   -> LW m (Doc Text)
 inlineListToLaTeX lst = hcat <$>
-  mapM inlineToLaTeX (fixLineInitialSpaces . fixInitialLineBreaks $ lst)
+  mapM inlineToLaTeX
+    (addKerns . fixLineInitialSpaces . fixInitialLineBreaks $ lst)
     -- nonbreaking spaces (~) in LaTeX don't work after line breaks,
     -- so we insert a strut: this is mostly used in verse.
  where fixLineInitialSpaces [] = []
@@ -790,6 +797,21 @@
          RawInline (Format "latex") "\\hfill\\break\n" :
            fixInitialLineBreaks xs
        fixInitialLineBreaks xs = xs
+       addKerns [] = []
+       addKerns (Str s : q@Quoted{} : rest)
+         | isQuote (T.takeEnd 1 s) =
+           Str s : RawInline (Format "latex") "\\," : addKerns (q:rest)
+       addKerns (q@Quoted{} : Str s : rest)
+         | isQuote (T.take 1 s) =
+           q : RawInline (Format "latex") "\\," : addKerns (Str s : rest)
+       addKerns (x:xs) = x : addKerns xs
+       isQuote "\"" = True
+       isQuote "'" = True
+       isQuote "\x2018" = True
+       isQuote "\x2019" = True
+       isQuote "\x201C" = True
+       isQuote "\x201D" = True
+       isQuote _ = False
 
 -- | Convert inline element to LaTeX
 inlineToLaTeX :: PandocMonad m
@@ -928,13 +950,21 @@
                DoubleQuote -> "\\enquote" <> braces contents
                SingleQuote -> "\\enquote*" <> braces contents
      else do
-       let s1 = if not (null lst) && isQuoted (head lst)
-                   then "\\,"
-                   else empty
-       let s2 = if not (null lst) && isQuoted (last lst)
-                   then "\\,"
-                   else empty
-       let inner = s1 <> contents <> s2
+       let endsWithQuote xs =
+             case reverse xs of
+                   Quoted{}:_ -> True
+                   Span _ ys : _ -> endsWithQuote ys
+                   Str s:_ -> T.takeEnd 1 s == "'"
+                   _ -> False
+       let beginsWithQuote xs =
+             case xs of
+                   Quoted{}:_ -> True
+                   Span _ ys : _ -> beginsWithQuote ys
+                   Str s:_ -> T.take 1 s == "`"
+                   _ -> False
+       let inner = (if beginsWithQuote lst then "\\," else mempty)
+                    <> contents
+                    <> (if endsWithQuote lst then "\\," else mempty)
        return $ case qt of
                 DoubleQuote ->
                    if isEnabled Ext_smart opts
@@ -944,10 +974,6 @@
                    if isEnabled Ext_smart opts
                       then char '`' <> inner <> char '\''
                       else char '\x2018' <> inner <> char '\x2019'
-    where
-      isQuoted (Span _ (x:_)) = isQuoted x
-      isQuoted (Quoted _ _)   = True
-      isQuoted _              = False
 inlineToLaTeX (Str str) = do
   setEmptyLine False
   liftM literal $ stringToLaTeX TextString str
diff --git a/src/Text/Pandoc/Writers/LaTeX/Table.hs b/src/Text/Pandoc/Writers/LaTeX/Table.hs
--- a/src/Text/Pandoc/Writers/LaTeX/Table.hs
+++ b/src/Text/Pandoc/Writers/LaTeX/Table.hs
@@ -137,12 +137,14 @@
                        then replicate (length specs)
                             (1 / fromIntegral (length specs))
                        else map toRelWidth widths
-  in if defaultWidthsOnly && isSimpleTable
-     then hcat $ map (literal . colAlign) aligns
-     else (cr <>) . nest 2 . vcat . map literal $
-          zipWith (toColDescriptor (length specs))
-                  aligns
-                  relativeWidths
+  in if null aligns
+        then "l"  -- #9350, table needs at least one column spec
+        else if defaultWidthsOnly && isSimpleTable
+                then hcat $ map (literal . colAlign) aligns
+                else (cr <>) . nest 2 . vcat . map literal $
+                     zipWith (toColDescriptor (length specs))
+                             aligns
+                             relativeWidths
   where
     toColDescriptor :: Int -> Alignment -> Double -> Text
     toColDescriptor numcols align width =
diff --git a/src/Text/Pandoc/Writers/Man.hs b/src/Text/Pandoc/Writers/Man.hs
--- a/src/Text/Pandoc/Writers/Man.hs
+++ b/src/Text/Pandoc/Writers/Man.hs
@@ -14,12 +14,13 @@
 
 -}
 module Text.Pandoc.Writers.Man ( writeMan ) where
-import Control.Monad ( liftM, zipWithM, forM )
+import Control.Monad ( liftM, zipWithM, forM, unless )
 import Control.Monad.State.Strict ( StateT, gets, modify, evalStateT )
 import Control.Monad.Trans (MonadTrans(lift))
 import Data.List (intersperse)
 import Data.List.NonEmpty (nonEmpty)
 import Data.Maybe (fromMaybe)
+import qualified Data.Map as M
 import Data.Text (Text)
 import qualified Data.Text as T
 import Text.Pandoc.Builder (deleteMeta)
@@ -34,7 +35,10 @@
 import Text.Pandoc.Writers.Math
 import Text.Pandoc.Writers.Shared
 import Text.Pandoc.Writers.Roff
+import Text.Pandoc.Highlighting
 import Text.Printf (printf)
+import Skylighting (TokenType(..), SourceLine, FormatOptions, defaultFormatOpts,
+                    defStyle, TokenStyle(..), Style(..))
 
 -- | Convert Pandoc to Man.
 writeMan :: PandocMonad m => WriterOptions -> Pandoc -> m Text
@@ -129,14 +133,18 @@
                   1 -> ".SH "
                   _ -> ".SS "
   return $ nowrap $ literal heading <> contents
-blockToMan opts (CodeBlock _ str) = return $
-  literal ".IP" $$
-  literal ".EX" $$
-  ((case T.uncons str of
-    Just ('.',_) -> literal "\\&"
-    _            -> mempty) <>
-   literal (escString opts str)) $$
-  literal ".EE"
+blockToMan opts (CodeBlock attr str) = do
+  hlCode <- case highlight (writerSyntaxMap opts) (formatSource opts)
+                  attr str of
+              Right d -> pure d
+              Left msg -> do
+                unless (T.null msg) $ report $ CouldNotHighlight msg
+                pure $ formatSource opts defaultFormatOpts
+                          (map (\t -> [(NormalTok,t)]) $ T.lines str)
+  pure $ literal ".IP" $$
+         literal ".EX" $$
+         hlCode $$
+         literal ".EE"
 blockToMan opts (BlockQuote blocks) = do
   contents <- blockListToMan opts blocks
   return $ literal ".RS" $$ contents $$ literal ".RE"
@@ -324,7 +332,7 @@
                         then (".MT", ".ME")
                         else (".UR", ".UE")
   return $ "\\c" <> cr -- \c avoids extra space
-        $$ (start <+> literal srcSuffix)
+        $$ nowrap (start <+> literal srcSuffix)
         $$ linktext
         $$ (end <+> "\\c" <> cr)  -- \c avoids space after
 inlineToMan opts (Image attr alternate (source, tit)) = do
@@ -340,3 +348,29 @@
   notes <- gets stNotes
   let ref = tshow (length notes)
   return $ char '[' <> literal ref <> char ']'
+
+formatSource :: WriterOptions -> FormatOptions -> [SourceLine] -> Doc Text
+formatSource wopts fopts = vcat . map (formatSourceLine wopts fopts)
+
+formatSourceLine :: WriterOptions -> FormatOptions -> SourceLine -> Doc Text
+formatSourceLine _wopts _fopts [] = blankline
+formatSourceLine wopts fopts ts@((_,firstTxt):_) =
+  (case T.uncons firstTxt of
+     Just ('.',_) -> literal "\\&"
+     _ -> mempty) <> mconcat (map (formatTok wopts fopts) ts) <> literal "\n"
+
+formatTok :: WriterOptions -> FormatOptions -> (TokenType, Text) -> Doc Text
+formatTok wopts _fopts (toktype, t) =
+  let txt = literal (escString wopts t)
+      styleMap = tokenStyles <$> writerHighlightStyle wopts
+      tokStyle = fromMaybe defStyle $ styleMap >>= M.lookup toktype
+  in  if toktype == NormalTok
+         then txt
+         else
+           let fonts = ['B' | tokenBold tokStyle] ++
+                       ['I' | tokenItalic tokStyle || tokenUnderline tokStyle]
+            in if null fonts
+                  then txt
+                  else literal ("\\f[" <> T.pack fonts <> "]") <>
+                       txt <>
+                       literal "\\f[R]"
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -401,9 +401,12 @@
                   let attrsToMd = if variant == Commonmark
                                   then attrsToMarkdown opts
                                   else classOrAttrsToMarkdown opts
-                  in nowrap (literal ":::" <+> attrsToMd attrs) $$
+                      divNesting = computeDivNestingLevel bs
+                      numcolons = 3 + divNesting
+                      colons = literal $ T.replicate numcolons ":"
+                  in nowrap (colons <+> attrsToMd attrs) $$
                      chomp contents $$
-                     literal ":::" <> blankline
+                     colons <> blankline
              | isEnabled Ext_native_divs opts ||
                (isEnabled Ext_raw_html opts &&
                 (variant == Commonmark ||
@@ -895,3 +898,9 @@
         go !afternewline (!c:cs)
           | isSpace c = c : go afternewline cs
           | otherwise = c : go False cs
+
+computeDivNestingLevel :: [Block] -> Int
+computeDivNestingLevel = foldr go 0
+ where
+   go (Div _ bls') n = max (n + 1) (foldr go (n + 1) bls')
+   go _ n = n
diff --git a/src/Text/Pandoc/Writers/Markdown/Table.hs b/src/Text/Pandoc/Writers/Markdown/Table.hs
--- a/src/Text/Pandoc/Writers/Markdown/Table.hs
+++ b/src/Text/Pandoc/Writers/Markdown/Table.hs
@@ -50,7 +50,9 @@
                       not (all (== 0) widths) &&
                       maxwidth + (numcols + 1) > colwidth
                       then map
-                            (floor . (* fromIntegral (colwidth - (numcols +1))))
+                            (max 0 .
+                              floor .
+                                (* fromIntegral (colwidth - (numcols +1))))
                             widths
                       else contentWidths
   let torow cs = nowrap $ literal "|" <>
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -194,7 +194,15 @@
   let (beg, end) = case lang of
         Nothing -> ("#+begin_example" <> numberlines, "#+end_example")
         Just x  -> ("#+begin_src " <> x <> numberlines <> args, "#+end_src")
-  return $ name $$ literal beg $$ literal str $$ literal end $$ blankline
+  -- escape special lines
+  let escape_line line =
+        let (spaces, code) = T.span (\c -> c == ' ' || c == '\t') line
+        in spaces <>
+           (if T.isPrefixOf "#+" code || T.isPrefixOf "*" code
+            then T.cons ',' code
+            else code)
+  let escaped = T.unlines . map escape_line . T.lines $ str
+  return $ name $$ literal beg $$ literal escaped $$ literal end $$ blankline
 blockToOrg (BlockQuote blocks) = do
   contents <- blockListToOrg blocks
   return $ blankline $$ "#+begin_quote" $$
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Output.hs b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
--- a/src/Text/Pandoc/Writers/Powerpoint/Output.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Output.hs
@@ -1411,18 +1411,18 @@
   return $ findAttr (QName "def" Nothing Nothing) tblStyleLst
 
 graphicToElement :: PandocMonad m => Integer -> Graphic -> P m Element
-graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
-  let colWidths = if null hdrCells
-                  then case rows of
-                         r : _ | not (null r) -> replicate (length r) $
+graphicToElement tableWidth (Tbl widths tblPr hdrCells rows) = do
+  let totalWidth = sum widths
+  let colWidths = if any (== 0.0) widths
+                  then if null hdrCells
+                      then case rows of
+                         r@(_:_) : _ -> replicate (length r) $
                                                  tableWidth `div` toInteger (length r)
-                         -- satisfy the compiler. This is the same as
-                         -- saying that rows is empty, but the compiler
-                         -- won't understand that `[]` exhausts the
-                         -- alternatives.
-                         _ -> []
-                  else replicate (length hdrCells) $
-                       tableWidth `div` toInteger (length hdrCells)
+                         []: _ -> []
+                         [] -> []
+                      else replicate (length hdrCells) $
+                           tableWidth `div` toInteger (length hdrCells)
+                  else map (\w -> round $ w / totalWidth * fromIntegral tableWidth) widths
 
   let cellToOpenXML paras =
         do elements <- mapM paragraphToElement paras
diff --git a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
--- a/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
+++ b/src/Text/Pandoc/Writers/Powerpoint/Presentation.hs
@@ -244,7 +244,7 @@
                              , tblPrBandRow :: Bool
                              } deriving (Show, Eq)
 
-data Graphic = Tbl TableProps [TableCell] [[TableCell]]
+data Graphic = Tbl [Double] TableProps [TableCell] [[TableCell]]
   deriving (Show, Eq)
 
 
@@ -537,7 +537,7 @@
                    | otherwise -> Nothing
   addIncremental env = env { envInIncrementalDiv = incremental }
   in local addIncremental (concatMapM blockToParagraphs blks)
-blockToParagraphs (Figure attr capt blks) =
+blockToParagraphs (Figure attr capt blks) = -- This never seems to be used:
   blockToParagraphs (Shared.figureDiv attr capt blks)
 blockToParagraphs hr@HorizontalRule = notRendered hr
 blockToParagraphs tbl@Table{} = notRendered tbl
@@ -601,7 +601,7 @@
       <$> inlinesToParElems ils
 blockToShape (Figure _figattr _caption [b]) = blockToShape b
 blockToShape (Table _ blkCapt specs thead tbody tfoot) = do
-  let (caption, algn, _, hdrCells, rows) = toLegacyTable blkCapt specs thead tbody tfoot
+  let (caption, algn, widths, hdrCells, rows) = toLegacyTable blkCapt specs thead tbody tfoot
   caption' <- inlinesToParElems caption
   hdrCells' <- rowToParagraphs algn hdrCells
   rows' <- mapM (rowToParagraphs algn) rows
@@ -613,7 +613,7 @@
                               , tblPrBandRow = True
                               }
 
-  return $ GraphicFrame [Tbl tblPr hdrCells' rows'] caption'
+  return $ GraphicFrame [Tbl widths tblPr hdrCells' rows'] caption'
 -- If the format isn't openxml, we fall through to blockToPargraphs
 blockToShape (RawBlock (Format "openxml") str) = return $ RawOOXMLShape str
 blockToShape blk = do paras <- blockToParagraphs blk
@@ -649,6 +649,7 @@
 notText :: Block -> Bool
 notText block | startsWithImage block = True
 notText Table{} = True
+notText Figure{} = True
 notText _ = False
 
 startsWithImage :: Block -> Bool
diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/src/Text/Pandoc/Writers/Texinfo.hs
@@ -446,6 +446,9 @@
 inlineToTexinfo (SmallCaps lst) =
   inCmd "sc" <$> inlineListToTexinfo lst
 
+inlineToTexinfo (Code (_, cls , _) str) | T.pack "variable" `elem` cls  =
+  return $ literal $ "@code{@var{" <> stringToTexinfo str <> "}}"
+
 inlineToTexinfo (Code _ str) =
   return $ literal $ "@code{" <> stringToTexinfo str <> "}"
 
diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs
--- a/src/Text/Pandoc/Writers/Typst.hs
+++ b/src/Text/Pandoc/Writers/Typst.hs
@@ -22,6 +22,7 @@
 import Text.Pandoc.Options ( WriterOptions(..), WrapOption(..), isEnabled )
 import Data.Text (Text)
 import Data.List (intercalate)
+import Network.URI (unEscapeString)
 import qualified Data.Text as T
 import Control.Monad.State ( StateT, evalStateT, gets, modify )
 import Text.Pandoc.Writers.Shared ( metaToContext, defField, resetField,
@@ -34,6 +35,7 @@
 import Control.Monad.Except (catchError)
 import Text.Pandoc.Extensions (Extension(..))
 import Text.Collate.Lang (Lang(..), parseLang)
+import Data.Char (isAlphaNum)
 
 -- | Convert Pandoc to Typst.
 writeTypst :: PandocMonad m => WriterOptions -> Pandoc -> m Text
@@ -96,7 +98,7 @@
     Para inlines -> ($$ blankline) <$> inlinesToTypst inlines
     Header level (ident,cls,_) inlines -> do
       contents <- inlinesToTypst inlines
-      let lab = toLabel ident
+      let lab = toLabel FreestandingLabel ident
       return $
         if "unlisted" `elem` cls
            then literal "#heading(outlined: false)" <> brackets contents <>
@@ -167,7 +169,7 @@
                   else do
                     captcontents <- inlinesToTypst caption
                     return $ ", caption: " <> brackets captcontents
-      let lab = toLabel ident
+      let lab = toLabel FreestandingLabel ident
       let formatalign AlignLeft = "left,"
           formatalign AlignRight = "right,"
           formatalign AlignCenter = "center,"
@@ -190,14 +192,14 @@
     Figure (ident,_,_) (Caption _mbshort capt) blocks -> do
       caption <- blocksToTypst capt
       contents <- blocksToTypst blocks
-      let lab = toLabel ident
+      let lab = toLabel FreestandingLabel ident
       return $ "#figure(" <> nest 2 (brackets contents <> "," <> cr <>
                                      ("caption: [" $$ nest 2 caption $$ "]"))
                           $$ ")" $$ lab $$ blankline
     Div (ident,_,_) (Header lev ("",cls,kvs) ils:rest) ->
       blocksToTypst (Header lev (ident,cls,kvs) ils:rest)
     Div (ident,_,_) blocks -> do
-      let lab = toLabel ident
+      let lab = toLabel FreestandingLabel ident
       contents <- blocksToTypst blocks
       return $ "#block[" $$ contents $$ ("]" <+> lab)
 
@@ -223,7 +225,7 @@
   case inline of
     Str txt -> do
       context <- gets stEscapeContext
-      return $ literal $ escapeTypst context txt
+      return $ escapeTypst context txt
     Space -> return space
     SoftBreak -> do
       wrapText <- gets $ writerWrapText . stOptions
@@ -259,7 +261,7 @@
     Subscript inlines -> textstyle "#sub" inlines
     SmallCaps inlines -> textstyle "#smallcaps" inlines
     Span (ident,_,_) inlines -> do
-      let lab = toLabel ident
+      let lab = toLabel FreestandingLabel ident
       (lab $$) <$> inlinesToTypst inlines
     Quoted quoteType inlines -> do
       let q = case quoteType of
@@ -269,30 +271,33 @@
       return $ q <> contents <> q
     Cite citations inlines -> do
       opts <-  gets stOptions
-      let toCite cite = do
-            suppl <- case citationSuffix cite of
-                       [] -> pure mempty
-                       suff -> brackets <$> inlinesToTypst suff
-            pure $ "#cite" <> parens (toLabel (citationId cite)) <> suppl
-                      <> endCode
       if isEnabled Ext_citations opts
          -- Note: this loses prefix
          then mconcat <$> mapM toCite citations
          else inlinesToTypst inlines
-    Link _attrs inlines (src,_tit) -> do
-      contents <- inlinesToTypst inlines
-      let dest = case T.uncons src of
-                   Just ('#', ident) -> "<" <> literal ident <> ">"
-                   _ -> doubleQuoted src
-      return $ "#link" <> parens dest <>
-                (if inlines == [Str src]
-                    then mempty
-                    else nowrap $ brackets contents) <> endCode
+    Link (_,_,kvs) inlines (src,_tit) -> do
+      case lookup "reference-type" kvs of
+        Just "ref"
+          | Just ('#', ident) <- T.uncons src
+          -> if T.all isIdentChar ident
+                then pure $ literal $ "@" <> ident
+                else pure $ "#ref" <> parens (toLabel ArgumentLabel ident)
+                            <> endCode
+        _ -> do
+          contents <- inlinesToTypst inlines
+          let dest = case T.uncons src of
+                       Just ('#', ident) -> toLabel ArgumentLabel ident
+                       _ -> doubleQuoted src
+          pure $ "#link" <> parens dest <>
+                    (if inlines == [Str src]
+                          then mempty
+                          else nowrap $ brackets contents) <> endCode
     Image (_,_,kvs) _inlines (src,_tit) -> do
       opts <- gets stOptions
       let mbHeight = lookup "height" kvs
       let mdWidth = lookup "width" kvs
-      let coreImage = "image" <> parens (doubleQuoted src)
+      let src' = T.pack $ unEscapeString $ T.unpack src -- #9389
+      let coreImage = "image" <> parens (doubleQuoted src')
       -- see #9104; we need a box or the image is treated as block-level:
       case (mdWidth, mbHeight) of
         (Nothing, Nothing) -> do
@@ -322,12 +327,17 @@
 textstyle s inlines =
   (<> endCode) . (s <>) . brackets <$> inlinesToTypst inlines
 
-escapeTypst :: EscapeContext -> Text -> Text
+escapeTypst :: EscapeContext -> Text -> Doc Text
 escapeTypst context t =
-  T.replace "//" "\\/\\/" $
-  if T.any needsEscape t
-     then T.concatMap escapeChar t
-     else t
+  (case T.uncons t of
+    Just (c, _)
+      | needsEscapeAtLineStart c
+        -> afterBreak "\\"
+    _ -> mempty) <>
+  (literal (T.replace "//" "\\/\\/"
+    (if T.any needsEscape t
+        then T.concatMap escapeChar t
+        else t)))
   where
     escapeChar c
       | c == '\160' = "~"
@@ -336,7 +346,6 @@
     needsEscape '\160' = True
     needsEscape '[' = True
     needsEscape ']' = True
-    needsEscape '(' = True -- see #9137
     needsEscape '#' = True
     needsEscape '<' = True
     needsEscape '>' = True
@@ -346,18 +355,63 @@
     needsEscape '\'' = True
     needsEscape '"' = True
     needsEscape '`' = True
-    needsEscape '=' = True
     needsEscape '_' = True
     needsEscape '*' = True
     needsEscape '~' = True
     needsEscape ':' = context == TermContext
     needsEscape _ = False
+    needsEscapeAtLineStart '/' = True
+    needsEscapeAtLineStart '+' = True
+    needsEscapeAtLineStart '-' = True
+    needsEscapeAtLineStart '=' = True
+    needsEscapeAtLineStart _ = False
 
-toLabel :: Text -> Doc Text
-toLabel ident =
-  if T.null ident
-     then mempty
-     else "<" <> literal ident <> ">"
+data LabelType =
+    FreestandingLabel
+  | ArgumentLabel
+  deriving (Show, Eq)
+
+toLabel :: LabelType -> Text -> Doc Text
+toLabel labelType ident
+  | T.null ident = mempty
+  | T.all isIdentChar ident'
+    = "<" <> literal ident' <> ">"
+  | otherwise
+     = case labelType of
+          FreestandingLabel -> "#label" <> parens (doubleQuoted ident')
+          ArgumentLabel -> "label" <> parens (doubleQuoted ident')
+ where
+   ident' = T.pack $ unEscapeString $ T.unpack ident
+
+isIdentChar :: Char -> Bool
+isIdentChar c = isAlphaNum c || c == '_' || c == '-' || c == '.' || c == ':'
+
+toCite :: PandocMonad m => Citation -> TW m (Doc Text)
+toCite cite = do
+  let ident' = T.pack $ unEscapeString $ T.unpack $ citationId cite
+  -- typst inserts comma and we get a doubled one if supplement contains it:
+  let eatComma (Str "," : Space : xs) = xs
+      eatComma xs = xs
+  if citationMode cite == NormalCitation && T.all isIdentChar ident'
+     then do
+       suppl <- case citationSuffix cite of
+                  [] -> pure mempty
+                  suff -> (<> endCode) . brackets
+                            <$> inlinesToTypst (eatComma suff)
+       pure $ "@" <> literal ident' <> suppl
+     else do
+       let label = if T.all isIdentChar ident'
+                      then "<" <> literal ident' <> ">"
+                      else "label" <> parens (doubleQuoted ident')
+       let form = case citationMode cite of
+                     NormalCitation -> mempty
+                     SuppressAuthor -> ", form: \"year\""
+                     AuthorInText -> ", form: \"prose\""
+       suppl <- case citationSuffix cite of
+                  [] -> pure mempty
+                  suff -> (", supplement: " <>) . brackets
+                             <$> inlinesToTypst (eatComma suff)
+       pure $ "#cite" <> parens (label <> form <> suppl) <> endCode
 
 doubleQuoted :: Text -> Doc Text
 doubleQuoted = doubleQuotes . literal . escape
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs
--- a/test/Tests/Old.hs
+++ b/test/Tests/Old.hs
@@ -83,6 +83,11 @@
     , test' "reader" ["-r", "textile", "-w", "native", "-s"]
       "textile-reader.textile" "textile-reader.native"
     ]
+  , testGroup "djot"
+    [ testGroup "writer" $ writerTests' "djot"
+    , test' "reader" ["-f", "djot", "-t" ,"native", "-s"]
+       "djot-reader.djot" "djot-reader.native"
+    ]
   , testGroup "docbook"
     [ testGroup "writer" $ writerTests' "docbook4"
     , test' "reader" ["-r", "docbook", "-w", "native", "-s"]
@@ -163,11 +168,11 @@
     [ test' "reader" ["-r", "t2t", "-w", "native", "-s"]
         "txt2tags.t2t" "txt2tags.native" ]
   , testGroup "epub" [
-      test' "features" ["-r", "epub", "-w", "native"]
+      test' "features" ["-r", "epub", "-w", "native", "-s"]
         "epub/features.epub" "epub/features.native"
-    , test' "wasteland" ["-r", "epub", "-w", "native"]
+    , test' "wasteland" ["-r", "epub", "-w", "native", "-s"]
         "epub/wasteland.epub" "epub/wasteland.native"
-    , test' "formatting" ["-r", "epub", "-w", "native"]
+    , test' "formatting" ["-r", "epub", "-w", "native", "-s"]
         "epub/formatting.epub" "epub/formatting.native"
     ]
   , testGroup "twiki"
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs
--- a/test/Tests/Readers/Man.hs
+++ b/test/Tests/Readers/Man.hs
@@ -20,7 +20,6 @@
 import Text.Pandoc
 import Text.Pandoc.Arbitrary ()
 import Text.Pandoc.Builder
-import Text.Pandoc.Readers.Man
 
 man :: Text -> Pandoc
 man = purely $ readMan def
diff --git a/test/Tests/Readers/Markdown.hs b/test/Tests/Readers/Markdown.hs
--- a/test/Tests/Readers/Markdown.hs
+++ b/test/Tests/Readers/Markdown.hs
@@ -321,10 +321,10 @@
             para (link "random string" "wikilink" (str "title"))
           , test markdownGH "autolink not being a link" $
             "[[Name of page]]" =?>
-            para (link "Name of page" "wikilink" (str "Name of page"))
+            para (link "Name of page" "wikilink" (text "Name of page"))
           , test markdownGH "autolink not being a link with a square bracket" $
             "[[Name of ]page]]" =?>
-            para (link "Name of ]page" "wikilink" (str "Name of ]page"))
+            para (link "Name of ]page" "wikilink" (text "Name of ]page"))
           , test markdownGH "link with inline start should be a link" $
             "[[t`i*t_le|https://example.org]]" =?>
             para (link "https://example.org" "wikilink" (str "t`i*t_le"))
diff --git a/test/command/1608.md b/test/command/1608.md
--- a/test/command/1608.md
+++ b/test/command/1608.md
@@ -129,7 +129,7 @@
         , Link
             ( ""
             , []
-            , [ ( "reference-type" , "ref" )
+            , [ ( "reference-type" , "ref+label" )
               , ( "reference" , "def:tri" )
               ]
             )
diff --git a/test/command/5071.md b/test/command/5071.md
new file mode 100644
--- /dev/null
+++ b/test/command/5071.md
@@ -0,0 +1,68 @@
+```
+% pandoc -f markdown -t html --number-sections
+## First section
+
+### Subhead
+
+##### Subhead with gap
+
+## Second section
+^D
+<h2 data-number="1" id="first-section"><span
+class="header-section-number">1</span> First section</h2>
+<h3 data-number="1.1" id="subhead"><span
+class="header-section-number">1.1</span> Subhead</h3>
+<h5 data-number="1.1.0.1" id="subhead-with-gap"><span
+class="header-section-number">1.1.0.1</span> Subhead with gap</h5>
+<h2 data-number="2" id="second-section"><span
+class="header-section-number">2</span> Second section</h2>
+
+```
+
+```
+% pandoc -f markdown -t html --number-sections
+## First section
+
+### Subhead
+
+# Higher-level section
+
+## Sub
+^D
+<h2 data-number="0.1" id="first-section"><span
+class="header-section-number">0.1</span> First section</h2>
+<h3 data-number="0.1.1" id="subhead"><span
+class="header-section-number">0.1.1</span> Subhead</h3>
+<h1 data-number="1" id="higher-level-section"><span
+class="header-section-number">1</span> Higher-level section</h1>
+<h2 data-number="1.1" id="sub"><span
+class="header-section-number">1.1</span> Sub</h2>
+```
+
+For backwards compatibility, we want it to work the old way,
+giving numbers like 0.1, when `--number-offset` is used:
+```
+% pandoc -f markdown -t html --number-sections --number-offset=2,2,2
+## First section
+
+### Subhead
+^D
+<h2 data-number="2.3" id="first-section"><span
+class="header-section-number">2.3</span> First section</h2>
+<h3 data-number="2.3.3" id="subhead"><span
+class="header-section-number">2.3.3</span> Subhead</h3>
+
+```
+
+```
+% pandoc -f markdown -t html --number-sections --number-offset=0,2,2
+## First section
+
+### Subhead
+^D
+<h2 data-number="0.3" id="first-section"><span
+class="header-section-number">0.3</span> First section</h2>
+<h3 data-number="0.3.3" id="subhead"><span
+class="header-section-number">0.3.3</span> Subhead</h3>
+
+```
diff --git a/test/command/5986.md b/test/command/5986.md
--- a/test/command/5986.md
+++ b/test/command/5986.md
@@ -8,11 +8,11 @@
 <ol>
 <li><a href="text/title_page.xhtml" class="titlepage">Title
 Page</a></li>
-<li><a href="#nav.xhtml#toc" class="toc">Table of Contents</a></li>
+<li><a href="#nav.xhtml_toc" class="toc">Table of Contents</a></li>
 </ol>
 </nav>
 <p><span id="ch001.xhtml"></span></p>
-<section id="ch001.xhtml#hi" class="level1" data-number="1">
+<section id="ch001.xhtml_hi" class="level1" data-number="1">
 <h1 data-number="1"><span class="header-section-number">1</span> Hi</h1>
 </section>
 ```
diff --git a/test/command/6723.md b/test/command/6723.md
--- a/test/command/6723.md
+++ b/test/command/6723.md
@@ -22,11 +22,11 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-doe .csl-entry}
 Doe, John. "An Article," 2020. <https://doi.org/10.1109/5.771073>.
 :::
-:::
+::::
 
 [^1]: John Doe, "An Article," 2020, <https://doi.org/10.1109/5.771073>.
 ```
diff --git a/test/command/8534.md b/test/command/8534.md
new file mode 100644
--- /dev/null
+++ b/test/command/8534.md
@@ -0,0 +1,11 @@
+```
+% pandoc -f html -t texinfo
+<html>
+foo <code>bar <var>baz</var> bar</code> foo
+</html>
+^D
+@node Top
+@top Top
+
+foo @code{bar }@code{@var{baz}}@code{ bar} foo
+```
diff --git a/test/command/8770-block.md b/test/command/8770-block.md
new file mode 100644
--- /dev/null
+++ b/test/command/8770-block.md
@@ -0,0 +1,75 @@
+```
+% pandoc -t html5 --reference-location=block
+# Section 1
+
+hello[^1]
+
+: Sample table.[^2]
+
+-----------
+ Fruit[^3]
+-----------
+ Bans[^4]
+-----------
+
+# Section 2
+
+dolly[^5]
+
+[^1]: doc footnote
+[^2]: caption footnote
+[^3]: header footnote
+[^4]: table cell footnote
+[^5]: doc footnote
+^D
+<h1 id="section-1">Section 1</h1>
+<p>hello<a href="#fn1" class="footnote-ref" id="fnref1"
+role="doc-noteref"><sup>1</sup></a></p>
+<aside id="footnotes" class="footnotes footnotes-end-of-block"
+role="doc-footnote">
+<ol>
+<li id="fn1"><p>doc footnote<a href="#fnref1" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+</ol>
+</aside>
+<table style="width:17%;">
+<caption>Sample table.<a href="#fn2" class="footnote-ref" id="fnref2"
+role="doc-noteref"><sup>2</sup></a></caption>
+<colgroup>
+<col style="width: 16%" />
+</colgroup>
+<thead>
+<tr class="header">
+<th style="text-align: center;">Fruit<a href="#fn3" class="footnote-ref"
+id="fnref3" role="doc-noteref"><sup>3</sup></a></th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td style="text-align: center;">Bans<a href="#fn4" class="footnote-ref"
+id="fnref4" role="doc-noteref"><sup>4</sup></a></td>
+</tr>
+</tbody>
+</table>
+<aside id="footnotes-2" class="footnotes footnotes-end-of-block"
+role="doc-footnote">
+<ol start="2">
+<li id="fn2"><p>caption footnote<a href="#fnref2" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn3"><p>header footnote<a href="#fnref3" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn4"><p>table cell footnote<a href="#fnref4"
+class="footnote-back" role="doc-backlink">↩︎</a></p></li>
+</ol>
+</aside>
+<h1 id="section-2">Section 2</h1>
+<p>dolly<a href="#fn5" class="footnote-ref" id="fnref5"
+role="doc-noteref"><sup>5</sup></a></p>
+<aside id="footnotes-3" class="footnotes footnotes-end-of-block"
+role="doc-footnote">
+<ol start="5">
+<li id="fn5"><p>doc footnote<a href="#fnref5" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+</ol>
+</aside>
+```
diff --git a/test/command/8770-document.md b/test/command/8770-document.md
new file mode 100644
--- /dev/null
+++ b/test/command/8770-document.md
@@ -0,0 +1,66 @@
+```
+% pandoc -t html5 --reference-location=document
+# Section 1
+
+hello[^1]
+
+: Sample table.[^2]
+
+-----------
+ Fruit[^3]
+-----------
+ Bans[^4]
+-----------
+
+# Section 2
+
+dolly[^5]
+
+[^1]: doc footnote
+[^2]: caption footnote
+[^3]: header footnote
+[^4]: table cell footnote
+[^5]: doc footnote
+^D
+<h1 id="section-1">Section 1</h1>
+<p>hello<a href="#fn1" class="footnote-ref" id="fnref1"
+role="doc-noteref"><sup>1</sup></a></p>
+<table style="width:17%;">
+<caption>Sample table.<a href="#fn2" class="footnote-ref" id="fnref2"
+role="doc-noteref"><sup>2</sup></a></caption>
+<colgroup>
+<col style="width: 16%" />
+</colgroup>
+<thead>
+<tr class="header">
+<th style="text-align: center;">Fruit<a href="#fn3" class="footnote-ref"
+id="fnref3" role="doc-noteref"><sup>3</sup></a></th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td style="text-align: center;">Bans<a href="#fn4" class="footnote-ref"
+id="fnref4" role="doc-noteref"><sup>4</sup></a></td>
+</tr>
+</tbody>
+</table>
+<h1 id="section-2">Section 2</h1>
+<p>dolly<a href="#fn5" class="footnote-ref" id="fnref5"
+role="doc-noteref"><sup>5</sup></a></p>
+<section id="footnotes" class="footnotes footnotes-end-of-document"
+role="doc-endnotes">
+<hr />
+<ol>
+<li id="fn1"><p>doc footnote<a href="#fnref1" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn2"><p>caption footnote<a href="#fnref2" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn3"><p>header footnote<a href="#fnref3" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn4"><p>table cell footnote<a href="#fnref4"
+class="footnote-back" role="doc-backlink">↩︎</a></p></li>
+<li id="fn5"><p>doc footnote<a href="#fnref5" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+</ol>
+</section>
+```
diff --git a/test/command/8770-section.md b/test/command/8770-section.md
new file mode 100644
--- /dev/null
+++ b/test/command/8770-section.md
@@ -0,0 +1,72 @@
+```
+% pandoc -t html5 --reference-location=section
+# Section 1
+
+hello[^1]
+
+: Sample table.[^2]
+
+-----------
+ Fruit[^3]
+-----------
+ Bans[^4]
+-----------
+
+# Section 2
+
+dolly[^5]
+
+[^1]: doc footnote
+[^2]: caption footnote
+[^3]: header footnote
+[^4]: table cell footnote
+[^5]: doc footnote
+^D
+<h1 id="section-1">Section 1</h1>
+<p>hello<a href="#fn1" class="footnote-ref" id="fnref1"
+role="doc-noteref"><sup>1</sup></a></p>
+<table style="width:17%;">
+<caption>Sample table.<a href="#fn2" class="footnote-ref" id="fnref2"
+role="doc-noteref"><sup>2</sup></a></caption>
+<colgroup>
+<col style="width: 16%" />
+</colgroup>
+<thead>
+<tr class="header">
+<th style="text-align: center;">Fruit<a href="#fn3" class="footnote-ref"
+id="fnref3" role="doc-noteref"><sup>3</sup></a></th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<td style="text-align: center;">Bans<a href="#fn4" class="footnote-ref"
+id="fnref4" role="doc-noteref"><sup>4</sup></a></td>
+</tr>
+</tbody>
+</table>
+<aside id="footnotes" class="footnotes footnotes-end-of-section"
+role="doc-footnote">
+<hr />
+<ol>
+<li id="fn1"><p>doc footnote<a href="#fnref1" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn2"><p>caption footnote<a href="#fnref2" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn3"><p>header footnote<a href="#fnref3" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+<li id="fn4"><p>table cell footnote<a href="#fnref4"
+class="footnote-back" role="doc-backlink">↩︎</a></p></li>
+</ol>
+</aside>
+<h1 id="section-2">Section 2</h1>
+<p>dolly<a href="#fn5" class="footnote-ref" id="fnref5"
+role="doc-noteref"><sup>5</sup></a></p>
+<aside id="footnotes-2" class="footnotes footnotes-end-of-section"
+role="doc-footnote">
+<hr />
+<ol start="5">
+<li id="fn5"><p>doc footnote<a href="#fnref5" class="footnote-back"
+role="doc-backlink">↩︎</a></p></li>
+</ol>
+</aside>
+```
diff --git a/test/command/8948.md b/test/command/8948.md
--- a/test/command/8948.md
+++ b/test/command/8948.md
@@ -3,7 +3,7 @@
 ![minimal](command/minimal.svg)
 ![minimal](command/minimal.svg)
 ^D
-<p><svg alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve"><use href="#svg_7868854ffb8f30209cd0" width="100%" height="100%" /></svg> <svg id="svg_7868854ffb8f30209cd0" alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150">
+<p><svg alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150"><use href="#svg_7868854ffb8f30209cd0" width="100%" height="100%" /></svg> <svg id="svg_7868854ffb8f30209cd0" alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150">
     <path d="M 0 35.5 L 6.5 22.5 L 16 37 L 23 24 L 34.8 43.7 L 42.5 30 L 50.3 47 L 59.7 27.7 L 69 47 L 85 17.7 L 98.3 39 L 113 9.7 L 127.7 42.3 L 136.3 23.7 L 147 44.3 L 158.3 20.3 L 170.3 40.3 L 177.7 25.7 L 189.7 43 L 199.7 21 L 207.7 35 L 219 11 L 233 37 L 240.3 23.7 L 251 43 L 263 18.3 L 272.7 33.3 L 283 10 L 295 32.3 L 301.3 23 L 311.7 37 L 323.7 7.7 L 339.3 39 L 346.3 25.7 L 356.3 42.3 L 369.7 15 L 376.3 25.7 L 384 9 L 393 28.3 L 400.3 19 L 411.7 38.3 L 421 21 L 434.3 43 L 445 25 L 453 36.3 L 464.3 18.3 L 476.2 40.3 L 480 33.5 L 480 215 L 0 215 L 0 35.5 Z" fill="#175720" />
 </svg></p>
 ```
@@ -13,7 +13,7 @@
 ![minimal](command/minimal.svg)
 ![minimal](command/minimal.svg){#foo}
 ^D
-<p><svg alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve"><use href="#foo" width="100%" height="100%" /></svg> <svg id="foo" alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150">
+<p><svg alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150"><use href="#foo" width="100%" height="100%" /></svg> <svg id="foo" alt="minimal" viewBox="-.333 -.333 480 150" style="background-color:#ffffff00" xml:space="preserve" width="480" height="150">
     <path d="M 0 35.5 L 6.5 22.5 L 16 37 L 23 24 L 34.8 43.7 L 42.5 30 L 50.3 47 L 59.7 27.7 L 69 47 L 85 17.7 L 98.3 39 L 113 9.7 L 127.7 42.3 L 136.3 23.7 L 147 44.3 L 158.3 20.3 L 170.3 40.3 L 177.7 25.7 L 189.7 43 L 199.7 21 L 207.7 35 L 219 11 L 233 37 L 240.3 23.7 L 251 43 L 263 18.3 L 272.7 33.3 L 283 10 L 295 32.3 L 301.3 23 L 311.7 37 L 323.7 7.7 L 339.3 39 L 346.3 25.7 L 356.3 42.3 L 369.7 15 L 376.3 25.7 L 384 9 L 393 28.3 L 400.3 19 L 411.7 38.3 L 421 21 L 434.3 43 L 445 25 L 453 36.3 L 464.3 18.3 L 476.2 40.3 L 480 33.5 L 480 215 L 0 215 L 0 35.5 Z" fill="#175720" />
 </svg></p>
 ```
diff --git a/test/command/9218.md b/test/command/9218.md
new file mode 100644
--- /dev/null
+++ b/test/command/9218.md
@@ -0,0 +1,22 @@
+# Escape special lines in Org-mode code blocks
+
+````
+% pandoc -f markdown -t org
+``` org
+** Click Application
+*** Imports
+
+#+begin_src py
+from addict import Dict
+#+end_src
+```
+^D
+#+begin_src org
+,** Click Application
+,*** Imports
+
+,#+begin_src py
+from addict import Dict
+,#+end_src
+#+end_src
+````
diff --git a/test/command/9346.md b/test/command/9346.md
new file mode 100644
--- /dev/null
+++ b/test/command/9346.md
@@ -0,0 +1,8 @@
+```
+% pandoc -f markdown -t markdown_strict+pipe_tables
+|V1 |V2 |V3 |V4 |V5 |V6 |V7 |V8 |V9 |V10 |V11 |V12 |V13 |V14 |V15 |V16 |V17 |V18 |V19 |V20 |V21 |V22 |V23 |V24 |V25 |V26 |V27 |V28 |V29 |V30 |V31 |V32 |V33 |V34 |V35 |V36 |V37 |V38 |V39 |V40 |V41 |V42 |V43 |V44 |V45 |V46 |V47 |V48 |V49 |V50 |V51 |V52 |V53 |V54 |V55 |V56 |V57 |V58 |V59 |V60 |V61 |V62 |V63 |V64 |V65 |V66 |V67 |V68 |V69 |V70 |V71 |V72 |
+|:--|:--|:--|:--|:--|:--|:--|:--|:--|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|:---|
+^D
+| V1  | V2  | V3  | V4  | V5  | V6  | V7  | V8  | V9  | V10 | V11 | V12 | V13 | V14 | V15 | V16 | V17 | V18 | V19 | V20 | V21 | V22 | V23 | V24 | V25 | V26 | V27 | V28 | V29 | V30 | V31 | V32 | V33 | V34 | V35 | V36 | V37 | V38 | V39 | V40 | V41 | V42 | V43 | V44 | V45 | V46 | V47 | V48 | V49 | V50 | V51 | V52 | V53 | V54 | V55 | V56 | V57 | V58 | V59 | V60 | V61 | V62 | V63 | V64 | V65 | V66 | V67 | V68 | V69 | V70 | V71 | V72 |
+|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|:-|
+```
diff --git a/test/command/9350.md b/test/command/9350.md
new file mode 100644
--- /dev/null
+++ b/test/command/9350.md
@@ -0,0 +1,12 @@
+```
+% pandoc -f html -t latex
+<table><tbody><tr></tr></tbody></table>
+^D
+\begin{longtable}[]{@{}l@{}}
+\toprule\noalign{}
+\endhead
+\bottomrule\noalign{}
+\endlastfoot
+ \\
+\end{longtable}
+```
diff --git a/test/command/9371.md b/test/command/9371.md
new file mode 100644
--- /dev/null
+++ b/test/command/9371.md
@@ -0,0 +1,30 @@
+```
+% pandoc -t latex
+"'In this case (A),
+
+I get a kern to separate the quotes,' he said."
+
+"'Also in this case (B), I get a kern,' he added."
+
+"'But in this case (C), there is no kern,'
+
+he continued."
+
+"He concluded,
+
+'Nor in this case (D) is there a kern.'"
+^D
+``\,'In this case (A),
+
+I get a kern to separate the quotes,' he said.''
+
+``\,`Also in this case (B), I get a kern,' he added.''
+
+``\,`But in this case (C), there is no kern,'
+
+he continued.''
+
+``He concluded,
+
+`Nor in this case (D) is there a kern.'\,''
+```
diff --git a/test/command/9386.md b/test/command/9386.md
new file mode 100644
--- /dev/null
+++ b/test/command/9386.md
@@ -0,0 +1,17 @@
+```
+% pandoc -t typst --wrap=preserve
+A string of text that is long enough that after 73 chars that includes a
+/ slash creates a newline
+^D
+A string of text that is long enough that after 73 chars that includes a
+\/ slash creates a newline
+```
+
+```
+% pandoc -t typst --wrap=preserve
+A string of text that is long enough that after 73 chars that includes
+a / slash creates a newline
+^D
+A string of text that is long enough that after 73 chars that includes
+a / slash creates a newline
+```
diff --git a/test/command/9387.md b/test/command/9387.md
new file mode 100644
--- /dev/null
+++ b/test/command/9387.md
@@ -0,0 +1,23 @@
+```
+% pandoc -f html -t typst
+<div id="my label">
+<p>test</p>
+</div>
+<p>See <a href="#my label">my label</a>.</p>
+^D
+#block[
+test
+
+] #label("my label")
+See #link(label("my label"))[my label];.
+
+```
+
+```
+% pandoc -f latex -t typst
+\cite{10.1117/12.695309}
+\cite{foo}
+^D
+#cite(label("10.1117/12.695309")) @foo
+
+```
diff --git a/test/command/9388.md b/test/command/9388.md
new file mode 100644
--- /dev/null
+++ b/test/command/9388.md
@@ -0,0 +1,21 @@
+```
+% pandoc -f latex -t native
+\begin{figure}
+\centering
+\includegraphics[width=0.5\linewidth,height=0.5\textheight]{figures/placeholder}
+\caption{Example figure}
+\end{figure}
+^D
+[ Figure
+    ( "" , [] , [] )
+    (Caption
+       Nothing [ Plain [ Str "Example" , Space , Str "figure" ] ])
+    [ Plain
+        [ Image
+            ( "" , [] , [ ( "width" , "50%" ) , ( "height" , "50%" ) ] )
+            []
+            ( "figures/placeholder" , "" )
+        ]
+    ]
+]
+```
diff --git a/test/command/9420.md b/test/command/9420.md
new file mode 100644
--- /dev/null
+++ b/test/command/9420.md
@@ -0,0 +1,13 @@
+```
+% pandoc --embed-resources
+![](command/9420.svg)
+^D
+<p><svg id="svg_e1815ef374a63cf552e4" width="504pt" height="360pt" viewBox="0 0 504 360">
+<defs>
+<clipPath id="svg_e1815ef374a63cf552e4_clip1-c3ce354c">
+  <path />
+</clipPath>
+</defs>
+<g clip-path="url(#svg_e1815ef374a63cf552e4_clip1-c3ce354c)" clip-rule="nonzero"></g>
+</svg></p>
+```
diff --git a/test/command/9420.svg b/test/command/9420.svg
new file mode 100644
--- /dev/null
+++ b/test/command/9420.svg
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<svg xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" width="504pt" height="360pt" viewBox="0 0 504 360" version="1.1">
+<defs>
+<clipPath id="clip1-c3ce354c">
+  <path/>
+</clipPath>
+</defs>
+<g clip-path="url(#clip1-c3ce354c)" clip-rule="nonzero"></g>
+</svg>
diff --git a/test/command/9445.md b/test/command/9445.md
new file mode 100644
--- /dev/null
+++ b/test/command/9445.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f man -t markdown
+\fB--c \fI<file>
+^D
+**\--c** *\<file\>*
+```
diff --git a/test/command/9452.md b/test/command/9452.md
new file mode 100644
--- /dev/null
+++ b/test/command/9452.md
@@ -0,0 +1,19 @@
+```
+% pandoc -t typst
+@something2024 says blah.
+
+Here is a sentence [@something2024].
+
+With supplement [@something2024, p. 3].
+
+And just the year [-@something2024].
+^D
+#cite(<something2024>, form: "prose") says blah.
+
+Here is a sentence @something2024.
+
+With supplement @something2024[p.~3];.
+
+And just the year #cite(<something2024>, form: "year");.
+
+```
diff --git a/test/command/citeproc-7a.md b/test/command/citeproc-7a.md
--- a/test/command/citeproc-7a.md
+++ b/test/command/citeproc-7a.md
@@ -26,11 +26,11 @@
 
 Test.[^4]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-test .csl-entry}
 Doe, John. "Test," n.d.
 :::
-:::
+::::
 
 [^1]: John Doe, "Test," n.d., 12.
 
diff --git a/test/command/pandoc-citeproc-118.md b/test/command/pandoc-citeproc-118.md
--- a/test/command/pandoc-citeproc-118.md
+++ b/test/command/pandoc-citeproc-118.md
@@ -19,10 +19,10 @@
 ^D
 (Hitchcock 1959) is a spy thriller film.
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-nbn .csl-entry}
 Hitchcock, Alfred, dir. 1959. *North by Northwest*. USA:
 Metro-Goldwyn-Mayer.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-119.md b/test/command/pandoc-citeproc-119.md
--- a/test/command/pandoc-citeproc-119.md
+++ b/test/command/pandoc-citeproc-119.md
@@ -14,7 +14,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
 ::: {#ref-averroes/hercz .csl-entry}
 Averroes. (1869). *Drei Abhandlungen über die Conjunction des separaten
 Intellects mit dem Menschen: Von Averroes (Vater und Sohn), aus dem
@@ -34,5 +34,5 @@
 (K. P. Bland, Ed. & Trans.). New York: Jewish Theological Seminary of
 America.
 :::
-:::
+::::::
 ```
diff --git a/test/command/pandoc-citeproc-13.md b/test/command/pandoc-citeproc-13.md
--- a/test/command/pandoc-citeproc-13.md
+++ b/test/command/pandoc-citeproc-13.md
@@ -19,11 +19,11 @@
 ^D
 Foo.[^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Author, Ann. "Title." *Journal*, 2011.
 :::
-:::
+::::
 
 [^1]: Author, "Title."
 ```
diff --git a/test/command/pandoc-citeproc-136.md b/test/command/pandoc-citeproc-136.md
--- a/test/command/pandoc-citeproc-136.md
+++ b/test/command/pandoc-citeproc-136.md
@@ -15,9 +15,9 @@
 ^D
 *Stanze in lode della donna brutta* (1547) is an anoynymous work.
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-stanze .csl-entry}
 *Stanze in lode della donna brutta*. 1547. Florence.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-14.md b/test/command/pandoc-citeproc-14.md
--- a/test/command/pandoc-citeproc-14.md
+++ b/test/command/pandoc-citeproc-14.md
@@ -56,7 +56,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-CTv1c2 .csl-entry}
 Pelikan, Jaroslav. 1971a. "Chapter Two." In *The Christian Tradition: A
 History of the Development of Doctrine*, 1:34--56. Chicago: University
@@ -73,5 +73,5 @@
 *The Christian Tradition: A History of the Development of Doctrine*.
 Vol. 1. Chicago: University of Chicago Press.
 :::
-:::
+::::::
 ```
diff --git a/test/command/pandoc-citeproc-152.md b/test/command/pandoc-citeproc-152.md
--- a/test/command/pandoc-citeproc-152.md
+++ b/test/command/pandoc-citeproc-152.md
@@ -49,7 +49,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
 ::: {#ref-Feminism2011ces .csl-entry}
 Communities. (2011, August 14). In *Geek Feminism*. Retrieved from
 <http://geekfeminism.wikia.com/wiki/Category:Communities>
@@ -59,5 +59,5 @@
 Geek Feminism. (2013, April 10). *Geek Feminism*. Retrieved April 10,
 2013, from <http://geekfeminism.wikia.com/wiki/Geek_Feminism>
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-160.md b/test/command/pandoc-citeproc-160.md
--- a/test/command/pandoc-citeproc-160.md
+++ b/test/command/pandoc-citeproc-160.md
@@ -36,9 +36,9 @@
 >
 > \[Jane11\] Jane Doe. A book. 2011.
 
-::: {#refs .references .csl-bib-body}
+:::: {#refs .references .csl-bib-body}
 ::: {#ref-item1 .csl-entry}
 \[Jane11\] Jane Doe. A book. 2011.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-175.md b/test/command/pandoc-citeproc-175.md
--- a/test/command/pandoc-citeproc-175.md
+++ b/test/command/pandoc-citeproc-175.md
@@ -35,9 +35,9 @@
 
 > Doe, Jane. 2011. "A Title." *A Magazine*, January--February.
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Doe, Jane. 2011. "A Title." *A Magazine*, January--February 2011.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-197.md b/test/command/pandoc-citeproc-197.md
--- a/test/command/pandoc-citeproc-197.md
+++ b/test/command/pandoc-citeproc-197.md
@@ -21,11 +21,11 @@
 ^D
 This is a test.[^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-test .csl-entry}
 Abelard, Peter, ed. *Test*. Oxford: Clarendon Press, 1989.
 :::
-:::
+::::
 
 [^1]: Peter Abelard, ed., *Test* (Oxford: Clarendon Press, 1989).
 ```
diff --git a/test/command/pandoc-citeproc-213.md b/test/command/pandoc-citeproc-213.md
--- a/test/command/pandoc-citeproc-213.md
+++ b/test/command/pandoc-citeproc-213.md
@@ -25,9 +25,9 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent}
+:::: {#refs .references .csl-bib-body .hanging-indent}
 ::: {#ref-doe1 .csl-entry}
 Doe, A. (1999). *Title*. The collection title. The publisher. 789 pp.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-25.md b/test/command/pandoc-citeproc-25.md
--- a/test/command/pandoc-citeproc-25.md
+++ b/test/command/pandoc-citeproc-25.md
@@ -22,9 +22,9 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Author, Al. 1998. "Foo Bar Baz: Bazbaz Foo."
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-250.md b/test/command/pandoc-citeproc-250.md
--- a/test/command/pandoc-citeproc-250.md
+++ b/test/command/pandoc-citeproc-250.md
@@ -13,9 +13,9 @@
 ^D
 ([Doe, n.d.](#ref-doe))
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-doe .csl-entry}
 Doe. n.d. "Title."
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-27.md b/test/command/pandoc-citeproc-27.md
--- a/test/command/pandoc-citeproc-27.md
+++ b/test/command/pandoc-citeproc-27.md
@@ -29,10 +29,10 @@
 
 Here is some text that needs a citation (*1*).
 
-::: {#refs .references .csl-bib-body}
+:::: {#refs .references .csl-bib-body}
 ::: {#ref-AuthorOne2014 .csl-entry}
 [1. ]{.csl-left-margin}[J. AuthorOne, J. AuthorTwo, *Some Journal*, in
 press.]{.csl-right-inline}
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-292.md b/test/command/pandoc-citeproc-292.md
--- a/test/command/pandoc-citeproc-292.md
+++ b/test/command/pandoc-citeproc-292.md
@@ -27,7 +27,7 @@
 ^D
 (Roe, 2007; Zoe, 2009; see for comparison Doe, 2007: 3)
 
-::: {#refs .references .csl-bib-body .hanging-indent}
+:::::: {#refs .references .csl-bib-body .hanging-indent}
 ::: {#ref-doe .csl-entry}
 Doe (2007).
 :::
@@ -39,5 +39,5 @@
 ::: {#ref-zoe .csl-entry}
 Zoe (2009).
 :::
-:::
+::::::
 ```
diff --git a/test/command/pandoc-citeproc-301.md b/test/command/pandoc-citeproc-301.md
--- a/test/command/pandoc-citeproc-301.md
+++ b/test/command/pandoc-citeproc-301.md
@@ -13,7 +13,7 @@
 "Essays Presented to N.R. Ker (On Art)" (n.d.); "*Test:* An Experiment:
 An Abridgement" (n.d.)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-test .csl-entry}
 "Essays Presented to N.R. Ker (On Art)." n.d.
 :::
@@ -21,5 +21,5 @@
 ::: {#ref-test2 .csl-entry}
 "*Test:* An Experiment: An Abridgement." n.d.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-307.md b/test/command/pandoc-citeproc-307.md
--- a/test/command/pandoc-citeproc-307.md
+++ b/test/command/pandoc-citeproc-307.md
@@ -22,10 +22,10 @@
 ^D
 Bonjour(Bazin 1954) !
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-bazin_cybernetique_1954 .csl-entry}
 Bazin, André. 1954. « La Cybernétique d'André Cayatte ». *Cahiers du
 cinéma*, nᵒ 36 (juin): 22‑27.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-31.md b/test/command/pandoc-citeproc-31.md
--- a/test/command/pandoc-citeproc-31.md
+++ b/test/command/pandoc-citeproc-31.md
@@ -27,7 +27,7 @@
 ^D
 Foo.[^1] Bar.[^2] Baz.[^3]
 
-::: {#refs .references .csl-bib-body}
+::::: {#refs .references .csl-bib-body}
 ::: {#ref-item1 .csl-entry}
 Olson HA, '[Codes, Costs, and Critiques: The Organization of Information
 in *Library Quarterly*, 1931--2004](https://doi.org/10.1086/504343)'
@@ -37,7 +37,7 @@
 ::: {#ref-item2 .csl-entry}
 'Second Title'
 :::
-:::
+:::::
 
 [^1]: Hope A Olson, 'Codes, Costs, and Critiques: The Organization of
     Information in *Library Quarterly*, 1931--2004' (2006) 76 *Library
diff --git a/test/command/pandoc-citeproc-312.md b/test/command/pandoc-citeproc-312.md
--- a/test/command/pandoc-citeproc-312.md
+++ b/test/command/pandoc-citeproc-312.md
@@ -122,7 +122,7 @@
 ---
 
 ^D
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
+:::::::::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
 ::: {#ref-Y .csl-entry}
 NN. (1950). Date: Year.
 :::
@@ -167,5 +167,5 @@
 ::: {#ref-YS/YS_same .csl-entry}
 NN. (1966, Summer--Winter). Date range: Year+season, same year.
 :::
-:::
+::::::::::::::
 ```
diff --git a/test/command/pandoc-citeproc-320.md b/test/command/pandoc-citeproc-320.md
--- a/test/command/pandoc-citeproc-320.md
+++ b/test/command/pandoc-citeproc-320.md
@@ -138,7 +138,7 @@
 Foo (Sainte-Beuve, n.d.; Saint-Gaudens, n.d.; Saint-Saëns, n.d.; San
 Martin, n.d.; St. Denis, n.d.; St. Laurent, n.d.).
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
+::::::::::::::::::::::::::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
 ::: {#ref-itemA2 .csl-entry}
 ben Yaakov, D. (n.d.).
 :::
@@ -250,5 +250,5 @@
 ::: {#ref-itemA14 .csl-entry}
 Villa-Lobos, J. (n.d.).
 :::
-:::
+:::::::::::::::::::::::::::::::
 ```
diff --git a/test/command/pandoc-citeproc-320a.md b/test/command/pandoc-citeproc-320a.md
--- a/test/command/pandoc-citeproc-320a.md
+++ b/test/command/pandoc-citeproc-320a.md
@@ -51,7 +51,7 @@
 Foo (al-ʾUdhrī, n.d.; al-ʿUdhrī, n.d.; al-\'Udhrī, n.d.; al-'Udhrī,
 n.d.a, n.d.b; Uch, n.d.; Uebel, n.d.; Zzz, n.d.).
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item6 .csl-entry}
 Uch, Ann. n.d.
 :::
@@ -83,5 +83,5 @@
 ::: {#ref-item8 .csl-entry}
 Zzz, Zoe. n.d.
 :::
-:::
+:::::::::::
 ```
diff --git a/test/command/pandoc-citeproc-322.md b/test/command/pandoc-citeproc-322.md
--- a/test/command/pandoc-citeproc-322.md
+++ b/test/command/pandoc-citeproc-322.md
@@ -23,12 +23,12 @@
 ^D
 Foo.[^1]
 
-::: {#refs .references .csl-bib-body}
+:::: {#refs .references .csl-bib-body}
 ::: {#ref-timmory__justice_1950 .csl-entry}
 François [Timmory]{.smallcaps}, « *Justice est faite* : soyons justes »,
 *L'Écran français*, 1950, nᵒ 272, p. 12.
 :::
-:::
+::::
 
 [^1]: François [Timmory]{.smallcaps}, « *Justice est faite* : soyons
     justes », *L'Écran français*, 1950, nᵒ 272, p. 12.
diff --git a/test/command/pandoc-citeproc-325.md b/test/command/pandoc-citeproc-325.md
--- a/test/command/pandoc-citeproc-325.md
+++ b/test/command/pandoc-citeproc-325.md
@@ -18,7 +18,7 @@
 ^D
 (Smith, n.d.a, n.d.b)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Smith, John. n.d.a.
 :::
@@ -26,5 +26,5 @@
 ::: {#ref-item2 .csl-entry}
 ---------. n.d.b.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-327.md b/test/command/pandoc-citeproc-327.md
--- a/test/command/pandoc-citeproc-327.md
+++ b/test/command/pandoc-citeproc-327.md
@@ -41,11 +41,11 @@
 ^D
 I referenced something here^\[1\]^
 
-::: {#refs .references .csl-bib-body entry-spacing="0"}
+:::: {#refs .references .csl-bib-body entry-spacing="0"}
 ::: {#ref-LiLiaoDongWanHaiYuDiQiDongWuCiJiShengChanLiYanJiuJiShengJingGuaYiXingPingJie2017 .csl-entry}
 [\[1\] ]{.csl-left-margin}[李轶平, 于旭光, 孙明, 等.
 [辽东湾海域底栖动物次级生产力研究及生境适宜性评价](http://kns.cnki.net/kns/detail/detail.aspx?QueryID=4&CurRec=4&recid=&FileName=CHAN201706006&DbName=CJFDLAST2018&DbCode=CJFQ&yx=Y&pr=&URLID=21.1110.S.20171129.1725.006)\[J\].
 水产科学, 2017(6): 728--734.]{.csl-right-inline}
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-338.md b/test/command/pandoc-citeproc-338.md
--- a/test/command/pandoc-citeproc-338.md
+++ b/test/command/pandoc-citeproc-338.md
@@ -24,11 +24,11 @@
 ---
 
 ^D
-::: {#refs .references .csl-bib-body .hanging-indent}
+:::: {#refs .references .csl-bib-body .hanging-indent}
 ::: {#ref-item-1 .csl-entry}
 [Wolfinger, Christine]{.smallcaps}: *Keine Angst vor Linux, Unix: ein
 Lehrbuch für Linux- und Unix-Anwender*. 11., vollst. überarb. Aufl.
 Aufl. Berlin \[u.a.\] : Springer Vieweg, 2013 --- ISBN 978-3-642-32078-1
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-351.md b/test/command/pandoc-citeproc-351.md
--- a/test/command/pandoc-citeproc-351.md
+++ b/test/command/pandoc-citeproc-351.md
@@ -17,11 +17,11 @@
 ^D
 Friedrich Nietzsche (ed.)[^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-Nie72 .csl-entry}
 Nietzsche, Friedrich (ed.), *Die geburt*, 1872.
 :::
-:::
+::::
 
 [^1]: *Die geburt*, 1872.
 ```
diff --git a/test/command/pandoc-citeproc-360.md b/test/command/pandoc-citeproc-360.md
--- a/test/command/pandoc-citeproc-360.md
+++ b/test/command/pandoc-citeproc-360.md
@@ -23,12 +23,12 @@
 ^D
 [^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-lestrange2017 .csl-entry}
 L'Estrange, Michael, and Stephen Merchant. "2017 Independent
 Intelligence Review," July 18, 2017.
 :::
-:::
+::::
 
 [^1]: Michael L'Estrange and Stephen Merchant, "2017 Independent
     Intelligence Review," July 18, 2017.
diff --git a/test/command/pandoc-citeproc-365.md b/test/command/pandoc-citeproc-365.md
--- a/test/command/pandoc-citeproc-365.md
+++ b/test/command/pandoc-citeproc-365.md
@@ -27,12 +27,12 @@
 ^D
 Foo.[^1]
 
-::: {#refs .references .csl-bib-body}
+:::: {#refs .references .csl-bib-body}
 ::: {#ref-legras_michel_2010 .csl-entry}
 [Le Gras]{.smallcaps} Gwénaëlle, *Michel Simon : l'art de la disgrâce*,
 Paris, Scope (coll. « Jeux d'acteurs »), 2010, 128 p.
 :::
-:::
+::::
 
 [^1]: Gwénaëlle Le Gras, *Michel Simon : l'art de la disgrâce*, Paris,
     Scope, 2010, 128 p.
diff --git a/test/command/pandoc-citeproc-371.md b/test/command/pandoc-citeproc-371.md
--- a/test/command/pandoc-citeproc-371.md
+++ b/test/command/pandoc-citeproc-371.md
@@ -28,7 +28,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item2 .csl-entry}
 Doe, Jane. 2018. *Title Two*.
 :::
@@ -36,5 +36,5 @@
 ::: {#ref-item1 .csl-entry}
 ---------. In press. *Title One*.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-38.md b/test/command/pandoc-citeproc-38.md
--- a/test/command/pandoc-citeproc-38.md
+++ b/test/command/pandoc-citeproc-38.md
@@ -21,9 +21,9 @@
 ^D
 Doe, Doe, and Roe (2007)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-a .csl-entry}
 Doe, Ann, Ben Doe, and Ron Roe. 2007. "Title."
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-386.md b/test/command/pandoc-citeproc-386.md
--- a/test/command/pandoc-citeproc-386.md
+++ b/test/command/pandoc-citeproc-386.md
@@ -26,11 +26,11 @@
 ^D
 ^\[1\]^
 
-::: {#refs .references .csl-bib-body entry-spacing="0" line-spacing="2"}
+:::: {#refs .references .csl-bib-body entry-spacing="0" line-spacing="2"}
 ::: {#ref-ding_metallic_2012 .csl-entry}
 [\[1\] ]{.csl-left-margin}[[K. Ding, C. Z. Ning, *Light Sci. Appl.*
 **2012**, *1*,
 e20](https://doi.org/10.1038/lsa.2012.20).]{.csl-right-inline}
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-392.md b/test/command/pandoc-citeproc-392.md
--- a/test/command/pandoc-citeproc-392.md
+++ b/test/command/pandoc-citeproc-392.md
@@ -17,7 +17,7 @@
 ^D
 (1); (2)
 
-::: {#refs .references .csl-bib-body}
+::::: {#refs .references .csl-bib-body}
 ::: {#ref-james .csl-entry}
 [1. ]{.csl-left-margin}[James MRCEL. ]{.csl-right-inline}
 :::
@@ -25,5 +25,5 @@
 ::: {#ref-macfarlane .csl-entry}
 [2. ]{.csl-left-margin}[MacFarlane JG. ]{.csl-right-inline}
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-401.md b/test/command/pandoc-citeproc-401.md
--- a/test/command/pandoc-citeproc-401.md
+++ b/test/command/pandoc-citeproc-401.md
@@ -43,7 +43,7 @@
 ^D
 Haslanger (\[2003\] 2012, \[2000\] 2012) says...
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-haslanger2012FeminismMetaphysicsNegotiating .csl-entry}
 Haslanger, Sally. (2000) 2012. "Feminism in Metaphysics: Negotiating the
 Natural." In *Resisting Reality: Social Construction and Social
@@ -55,5 +55,5 @@
 In *Resisting Reality: Social Construction and Social Critique*,
 113--38. Oxford: Oxford University Press.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-408.md b/test/command/pandoc-citeproc-408.md
--- a/test/command/pandoc-citeproc-408.md
+++ b/test/command/pandoc-citeproc-408.md
@@ -27,7 +27,7 @@
 ^D
 (Smith and Smith 2019; Smith 2019)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-smith1 .csl-entry}
 Smith, Mary. 2019. "Foo."
 :::
@@ -35,5 +35,5 @@
 ::: {#ref-smithsmith .csl-entry}
 Smith, Mary, and John Smith. 2019. "Foo Bar."
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-416.md b/test/command/pandoc-citeproc-416.md
--- a/test/command/pandoc-citeproc-416.md
+++ b/test/command/pandoc-citeproc-416.md
@@ -44,7 +44,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item2 .csl-entry}
 Doe, J. 2007. "The Title," December 12--13, 2007.
 :::
@@ -56,5 +56,5 @@
 ::: {#ref-item1 .csl-entry}
 ---------. 2010. "The Title," December 13, 2010.
 :::
-:::
+::::::
 ```
diff --git a/test/command/pandoc-citeproc-47.md b/test/command/pandoc-citeproc-47.md
--- a/test/command/pandoc-citeproc-47.md
+++ b/test/command/pandoc-citeproc-47.md
@@ -92,7 +92,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-doe .csl-entry}
 Doe, A. 2000a. *Title*.
 :::
@@ -108,5 +108,5 @@
 ::: {#ref-doepoe .csl-entry}
 Doe, A., and A. Poe. 2000. *Title*.
 :::
-:::
+:::::::
 ```
diff --git a/test/command/pandoc-citeproc-51.md b/test/command/pandoc-citeproc-51.md
--- a/test/command/pandoc-citeproc-51.md
+++ b/test/command/pandoc-citeproc-51.md
@@ -33,7 +33,7 @@
 ^D
 Doe (1987--1988); Roe (1987)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Doe, John. 1987--1988. "The Title." *Journal of Something* 3: 12--34.
 :::
@@ -41,5 +41,5 @@
 ::: {#ref-item2 .csl-entry}
 Roe, Ron. 1987. "The Title." *Journal of Something* 4: 12--34.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-53.md b/test/command/pandoc-citeproc-53.md
--- a/test/command/pandoc-citeproc-53.md
+++ b/test/command/pandoc-citeproc-53.md
@@ -26,7 +26,7 @@
 ^D
 Doe[^1] Doe[^2] Roe[^3] Roe[^4] Doe[^5] Doe[^6] Roe[^7] Roe[^8]
 
-::: {#refs .references .csl-bib-body}
+::::: {#refs .references .csl-bib-body}
 ::: {#ref-a .csl-entry}
 [[Doe J.]{.smallcaps} ]{.csl-block}
 [2000, *Work A*,.]{.csl-left-margin}
@@ -36,7 +36,7 @@
 [[Roe J.]{.smallcaps} ]{.csl-block}
 [1990, *Work B*,.]{.csl-left-margin}
 :::
-:::
+:::::
 
 [^1]: 2000
 
diff --git a/test/command/pandoc-citeproc-57.md b/test/command/pandoc-citeproc-57.md
--- a/test/command/pandoc-citeproc-57.md
+++ b/test/command/pandoc-citeproc-57.md
@@ -27,11 +27,11 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-Faraday-forthcoming .csl-entry}
 Faraday, Carry. Forthcoming. "Protean Photography." In *Seven Trips
 Beyond the Asteroid Belt*, edited by James Oring. Cape Canaveral, FL:
 Launch Press.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-58.md b/test/command/pandoc-citeproc-58.md
--- a/test/command/pandoc-citeproc-58.md
+++ b/test/command/pandoc-citeproc-58.md
@@ -24,9 +24,9 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-stanze .csl-entry}
 *Stanze in lode della donna brutta*. 1547. Florence.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-61.md b/test/command/pandoc-citeproc-61.md
--- a/test/command/pandoc-citeproc-61.md
+++ b/test/command/pandoc-citeproc-61.md
@@ -55,7 +55,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent}
+::::: {#refs .references .csl-bib-body .hanging-indent}
 ::: {#ref-doe .csl-entry}
 Doe, John, *Title* (Publisher, 1985)
 :::
@@ -63,7 +63,7 @@
 ::: {#ref-roe .csl-entry}
 Roe, Rob, *Title* (Publisher, 1985)
 :::
-:::
+:::::
 
 [^1]: John Doe, *Title* (Publisher, 1985), VIII, 89.
 
diff --git a/test/command/pandoc-citeproc-64.md b/test/command/pandoc-citeproc-64.md
--- a/test/command/pandoc-citeproc-64.md
+++ b/test/command/pandoc-citeproc-64.md
@@ -7,7 +7,7 @@
 ---
 
 ^D
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Doe, John. 2005. *First Book*. Cambridge: Cambridge University Press.
 :::
@@ -20,5 +20,5 @@
 Doe, John, and Jenny Roe. 2007. "Why Water Is Wet." In *Third Book*,
 edited by Sam Smith. Oxford: Oxford University Press.
 :::
-:::
+::::::
 ```
diff --git a/test/command/pandoc-citeproc-65.md b/test/command/pandoc-citeproc-65.md
--- a/test/command/pandoc-citeproc-65.md
+++ b/test/command/pandoc-citeproc-65.md
@@ -28,11 +28,11 @@
 ^D
 (Stotz 1996--2004)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-stotz:1996handbuch .csl-entry}
 Stotz, Peter. 1996--2004. *Handbuch zur lateinischen Sprache des
 Mittelalters*. 5 vols. Handbuch der Altertumswissenschaft 2.5. Munich:
 Beck.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-68.md b/test/command/pandoc-citeproc-68.md
--- a/test/command/pandoc-citeproc-68.md
+++ b/test/command/pandoc-citeproc-68.md
@@ -36,13 +36,13 @@
 prose commentary[^2] \... and finally a note starting with a
 citation.[^3]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-goering:1992william .csl-entry}
 Goering, Joseph. *William de Montibus (c. 1140--1213): The Schools and
 the Literature of Pastoral Care*. Studies and Texts 108. Toronto:
 Pontifical Institute of Mediaeval Studies, 1992.
 :::
-:::
+::::
 
 [^1]: The text of fol. 9r is printed in Joseph Goering, *William de
     Montibus (c. 1140--1213): The Schools and the Literature of Pastoral
diff --git a/test/command/pandoc-citeproc-7.md b/test/command/pandoc-citeproc-7.md
--- a/test/command/pandoc-citeproc-7.md
+++ b/test/command/pandoc-citeproc-7.md
@@ -23,9 +23,9 @@
 ^D
 Author (2011)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Author, Ann. 2011. "Title." *Journal*, September 24--26, 2011.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-70.md b/test/command/pandoc-citeproc-70.md
--- a/test/command/pandoc-citeproc-70.md
+++ b/test/command/pandoc-citeproc-70.md
@@ -56,7 +56,7 @@
 ^D
 (Thorndike 1955; Dinkova-Bruun 2009)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-bruun:2009samuel .csl-entry}
 Dinkova-Bruun, Greti. 2009. "Samuel Presbyter and the Glosses to His
 Versification of Psalm 1: An Anti-Church Invective?" In *Florilegium
@@ -69,5 +69,5 @@
 ::: {#ref-thorndike:1955unde .csl-entry}
 Thorndike, Lynn. 1955. "Unde versus." *Traditio* 11: 163--93.
 :::
-:::
+:::::
 ```
diff --git a/test/command/pandoc-citeproc-75.md b/test/command/pandoc-citeproc-75.md
--- a/test/command/pandoc-citeproc-75.md
+++ b/test/command/pandoc-citeproc-75.md
@@ -59,9 +59,9 @@
 
 (Doe, 2006, no. 6 and 7)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0" line-spacing="2"}
 ::: {#ref-test .csl-entry}
 Doe, J. (2006). Test, *81*.
 :::
-:::
+::::
 ```
diff --git a/test/command/pandoc-citeproc-76.md b/test/command/pandoc-citeproc-76.md
--- a/test/command/pandoc-citeproc-76.md
+++ b/test/command/pandoc-citeproc-76.md
@@ -44,7 +44,7 @@
 ^D
 Author (1998c), Author (1998d), Author (1998a), Author (1998b)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item3 .csl-entry}
 Author, Al. 1998a. "Foo Bar Baz: A Bazbaz Bar Foo."
 :::
@@ -60,5 +60,5 @@
 ::: {#ref-item2 .csl-entry}
 ---------. 1998d. "Foo Bar Baz: The Bazbaz Bar Foo."
 :::
-:::
+:::::::
 ```
diff --git a/test/command/pandoc-citeproc-77.md b/test/command/pandoc-citeproc-77.md
--- a/test/command/pandoc-citeproc-77.md
+++ b/test/command/pandoc-citeproc-77.md
@@ -39,7 +39,7 @@
 ^D
 [^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item4 .csl-entry}
 Bennett, Frank G., Jr., n.d.
 :::
@@ -59,7 +59,7 @@
 ::: {#ref-item3 .csl-entry}
 Humboldt, Alexander von, n.d.
 :::
-:::
+::::::::
 
 [^1]: John Doe III, n.d.; Vincent van Gogh, n.d.; Alexander von
     Humboldt, n.d.; Frank G. Bennett, Jr., n.d.; Ezekiel Dumboldt III,
diff --git a/test/command/pandoc-citeproc-82.md b/test/command/pandoc-citeproc-82.md
--- a/test/command/pandoc-citeproc-82.md
+++ b/test/command/pandoc-citeproc-82.md
@@ -28,12 +28,12 @@
 
 Some text.[^1]
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-OCLC_i1099 .csl-entry}
 OCLC. "WorldCat." Accessed September 19, 2014.
 <https://www.worldcat.org/>.
 :::
-:::
+::::
 
 [^1]: Comment regarding text, supported by citation (OCLC, "WorldCat").
 ```
diff --git a/test/command/pandoc-citeproc-87.md b/test/command/pandoc-citeproc-87.md
--- a/test/command/pandoc-citeproc-87.md
+++ b/test/command/pandoc-citeproc-87.md
@@ -122,7 +122,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item2a .csl-entry}
 Doe, John. 2006a. "Title." The Web Site. October--November 2006.
 <http://www.example.com>.
@@ -152,5 +152,5 @@
 ---------. 2006--2007. "Title." The Web Site. December 31, 2006--January
 1, 2007. <http://www.example.com>.
 :::
-:::
+:::::::::
 ```
diff --git a/test/command/pandoc-citeproc-chicago-author-date.md b/test/command/pandoc-citeproc-chicago-author-date.md
--- a/test/command/pandoc-citeproc-chicago-author-date.md
+++ b/test/command/pandoc-citeproc-chicago-author-date.md
@@ -83,7 +83,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Doe, John. 2005. *First Book*. Cambridge: Cambridge University Press.
 :::
@@ -96,7 +96,7 @@
 Doe, John, and Jenny Roe. 2007. "Why Water Is Wet." In *Third Book*,
 edited by Sam Smith. Oxford: Oxford University Press.
 :::
-:::
+::::::
 
 [^1]: Doe and Roe ([2007, 12](#ref-пункт3)) and a citation without
     locators ([Doe and Roe 2007](#ref-пункт3)).
diff --git a/test/command/pandoc-citeproc-chicago-fullnote-bibliography.md b/test/command/pandoc-citeproc-chicago-fullnote-bibliography.md
--- a/test/command/pandoc-citeproc-chicago-fullnote-bibliography.md
+++ b/test/command/pandoc-citeproc-chicago-fullnote-bibliography.md
@@ -81,7 +81,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item2 .csl-entry}
 Doe, John. "Article." *Journal of Generic Studies* 6 (2006): 33--34.
 :::
@@ -94,7 +94,7 @@
 Doe, John, and Jenny Roe. "Why Water Is Wet." In *Third Book*, edited by
 Sam Smith. Oxford: Oxford University Press, 2007.
 :::
-:::
+::::::
 
 [^1]: [**Nonexistent?**](#ref-nonexistent)
 
diff --git a/test/command/pandoc-citeproc-ieee.md b/test/command/pandoc-citeproc-ieee.md
--- a/test/command/pandoc-citeproc-ieee.md
+++ b/test/command/pandoc-citeproc-ieee.md
@@ -84,7 +84,7 @@
 
 # References {#references .unnumbered}
 
-::: {#refs .references .csl-bib-body entry-spacing="0"}
+:::::: {#refs .references .csl-bib-body entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 [\[1\] ]{.csl-left-margin}[J. Doe, *First book*. Cambridge: Cambridge
 University Press, 2005.]{.csl-right-inline}
@@ -100,7 +100,7 @@
 *Third book*, S. Smith, Ed. Oxford: Oxford University Press,
 2007.]{.csl-right-inline}
 :::
-:::
+::::::
 
 [^1]: [\[3, p. 12\]](#ref-пункт3) and a citation without locators
     [\[3\]](#ref-пункт3).
diff --git a/test/command/pandoc-citeproc-no-author.md b/test/command/pandoc-citeproc-no-author.md
--- a/test/command/pandoc-citeproc-no-author.md
+++ b/test/command/pandoc-citeproc-no-author.md
@@ -45,7 +45,7 @@
 *Magazine* (2012a, 3), *Magazine* (2012b), *Magazine* (2012c),
 *Magazine* (2012d), *Newspaper* (2012a), *Newspaper* (2012b)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+::::::::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 *Magazine*. 2012a. "Title A," 2012.
 :::
@@ -69,5 +69,5 @@
 ::: {#ref-item6 .csl-entry}
 ---------. 2012b. "Title F," 2012.
 :::
-:::
+:::::::::
 ```
diff --git a/test/command/pandoc-citeproc-number-of-volumes.md b/test/command/pandoc-citeproc-number-of-volumes.md
--- a/test/command/pandoc-citeproc-number-of-volumes.md
+++ b/test/command/pandoc-citeproc-number-of-volumes.md
@@ -21,9 +21,9 @@
 ^D
 Author (2013)
 
-::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
+:::: {#refs .references .csl-bib-body .hanging-indent entry-spacing="0"}
 ::: {#ref-item1 .csl-entry}
 Author, Al. 2013. *Title*. 2 vols. Location: Publisher.
 :::
-:::
+::::
 ```
diff --git a/test/command/refs.md b/test/command/refs.md
--- a/test/command/refs.md
+++ b/test/command/refs.md
@@ -28,7 +28,7 @@
     , Link
         ( ""
         , []
-        , [ ( "reference-type" , "ref" )
+        , [ ( "reference-type" , "ref+label" )
           , ( "reference" , "fig:1" )
           ]
         )
@@ -48,7 +48,7 @@
     , Link
         ( ""
         , []
-        , [ ( "reference-type" , "ref+page" )
+        , [ ( "reference-type" , "ref" )
           , ( "reference" , "fig:1" )
           ]
         )
@@ -66,7 +66,7 @@
     [ Link
         ( ""
         , []
-        , [ ( "reference-type" , "autoref" )
+        , [ ( "reference-type" , "ref+label" )
           , ( "reference" , "fig:flowchart" )
           ]
         )
diff --git a/test/djot-reader.djot b/test/djot-reader.djot
new file mode 100644
--- /dev/null
+++ b/test/djot-reader.djot
@@ -0,0 +1,749 @@
+# Pandoc Test Suite
+
+John MacFarlane
+Anonymous
+
+July 17, 2006
+
+This is a set of tests for pandoc. Most of them are adapted from John Gruber's
+markdown test suite.
+
+* * * *
+
+{#headers}
+# Headers
+
+{#level-2-with-an-embedded-link}
+## Level 2 with an [embedded link](/url)
+
+{#level-3-with-emphasis}
+### Level 3 with _emphasis_
+
+{#level-4}
+#### Level 4
+
+{#level-5}
+##### Level 5
+
+{#level-1}
+# Level 1
+
+{#level-2-with-emphasis}
+## Level 2 with _emphasis_
+
+{#level-3}
+### Level 3
+
+with no blank line
+
+{#level-2}
+## Level 2
+
+with no blank line
+
+* * * *
+
+{#paragraphs}
+# Paragraphs
+
+Here's a regular paragraph.
+
+In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item.
+Because a hard-wrapped line in the middle of a paragraph looked like a list
+item.
+
+Here's one with a bullet. \* criminey.
+
+There should be a hard line break\
+here.
+
+* * * *
+
+{#block-quotes}
+# Block Quotes
+
+E-mail style:
+
+> This is a block quote. It is pretty short.
+
+> Code in a block quote:
+>
+> ```
+> sub status {
+>     print "working";
+> }
+> ```
+>
+> A list:
+>
+> 1. item one
+> 2. item two
+>
+> Nested block quotes:
+>
+> > nested
+>
+> > nested
+
+This should not be a block quote: 2 \> 1.
+
+And a following paragraph.
+
+* * * *
+
+{#code-blocks}
+# Code Blocks
+
+Code:
+
+```
+---- (should be four hyphens)
+
+sub status {
+    print "working";
+}
+
+this code block is indented by one tab
+```
+
+And:
+
+```
+    this code block is indented by two tabs
+
+These should not be escaped:  \$ \\ \> \[ \{
+```
+
+* * * *
+
+{#lists}
+# Lists
+
+{#unordered}
+## Unordered
+
+Asterisks tight:
+
+- asterisk 1
+- asterisk 2
+- asterisk 3
+
+Asterisks loose:
+
+- asterisk 1
+
+- asterisk 2
+
+- asterisk 3
+
+Pluses tight:
+
+- Plus 1
+- Plus 2
+- Plus 3
+
+Pluses loose:
+
+- Plus 1
+
+- Plus 2
+
+- Plus 3
+
+Minuses tight:
+
+- Minus 1
+- Minus 2
+- Minus 3
+
+Minuses loose:
+
+- Minus 1
+
+- Minus 2
+
+- Minus 3
+
+{#ordered}
+## Ordered
+
+Tight:
+
+1. First
+2. Second
+3. Third
+
+and:
+
+1. One
+2. Two
+3. Three
+
+Loose using tabs:
+
+1. First
+
+2. Second
+
+3. Third
+
+and using spaces:
+
+1. One
+
+2. Two
+
+3. Three
+
+Multiple paragraphs:
+
+1. Item 1, graf one.
+
+   Item 1. graf two. The quick brown fox jumped over the lazy dog's back.
+
+2. Item 2.
+
+3. Item 3.
+
+{#nested}
+## Nested
+
+- Tab
+
+  - Tab
+
+    - Tab
+
+Here's another:
+
+1. First
+2. Second:
+
+   - Fee
+   - Fie
+   - Foe
+3. Third
+
+Same thing but with paragraphs:
+
+1. First
+
+2. Second:
+
+   - Fee
+   - Fie
+   - Foe
+
+3. Third
+
+{#tabs-and-spaces}
+## Tabs and spaces
+
+- this is a list item indented with tabs
+
+- this is a list item indented with spaces
+
+  - this is an example list item indented with tabs
+
+  - this is an example list item indented with spaces
+
+{#fancy-list-markers}
+## Fancy list markers
+
+(2) begins with 2
+
+(3) and now 3
+
+    with a continuation
+
+    iv. sublist with roman numerals, starting with 4
+    v. more items
+
+       (A) a subsublist
+       (B) a subsublist
+
+Nesting:
+
+A. Upper Alpha
+
+   I. Upper Roman.
+
+      (6) Decimal start with 6
+
+          c) Lower alpha with paren
+
+Autonumbering:
+
+1. Autonumber.
+2. More.
+
+   1. Nested.
+
+Should not be a list item:
+
+M.A. 2007
+
+B. Williams
+
+* * * *
+
+{#definition-lists}
+# Definition Lists
+
+Tight using spaces:
+
+: apple
+
+  red fruit
+: orange
+
+  orange fruit
+: banana
+
+  yellow fruit
+
+Tight using tabs:
+
+: apple
+
+  red fruit
+: orange
+
+  orange fruit
+: banana
+
+  yellow fruit
+
+Loose:
+
+: apple
+
+  red fruit
+
+: orange
+
+  orange fruit
+
+: banana
+
+  yellow fruit
+
+Multiple blocks with italics:
+
+: _apple_
+
+  red fruit
+
+  contains seeds, crisp, pleasant to taste
+
+: _orange_
+
+  orange fruit
+
+  ```
+  { orange code block }
+  ```
+
+  > orange block quote
+
+Multiple definitions, tight:
+
+: apple
+
+  red fruit
+
+  computer
+: orange
+
+  orange fruit
+
+  bank
+
+Multiple definitions, loose:
+
+: apple
+
+  red fruit
+
+  computer
+
+: orange
+
+  orange fruit
+
+  bank
+
+Blank line after term, indented marker, alternate markers:
+
+: apple
+
+  red fruit
+
+  computer
+
+: orange
+
+  orange fruit
+
+  1. sublist
+  2. sublist
+
+{#html-blocks}
+# HTML Blocks
+
+Simple block on one line:
+
+:::
+foo
+
+:::
+
+And nested without indentation:
+
+::::::
+::::
+:::
+foo
+
+:::
+
+::::
+
+:::
+bar
+
+:::
+
+::::::
+
+Interpreted markdown in a table:
+
+This is _emphasized_
+
+And this is *strong*
+
+Here's a simple block:
+
+:::
+foo
+
+:::
+
+This should be a code block, though:
+
+```
+<div>
+    foo
+</div>
+```
+
+As should this:
+
+```
+<div>foo</div>
+```
+
+Now, nested:
+
+:::::
+::::
+:::
+foo
+
+:::
+
+::::
+
+:::::
+
+This should just be an HTML comment:
+
+Multiline:
+
+Code block:
+
+```
+<!-- Comment -->
+```
+
+Just plain comment, with trailing spaces on the line:
+
+Code:
+
+```
+<hr />
+```
+
+Hr's:
+
+* * * *
+
+{#inline-markup}
+# Inline Markup
+
+This is _emphasized_, and so _is this_.
+
+This is *strong*, and so *is this*.
+
+An _[emphasized link](/url)_.
+
+*_This is strong and em._*
+
+So is *_this_* word.
+
+*_This is strong and em._*
+
+So is *_this_* word.
+
+This is code: `>`, `$`, `\`, `\$`, `<html>`.
+
+{-This is _strikeout_.-}
+
+Superscripts: a^bc^d a^_hello_^ a^hello there^.
+
+Subscripts: H~2~O, H~23~O, H~many of them~O.
+
+These should not be superscripts or subscripts, because of the unescaped spaces:
+a\^b c\^d, a\~b c\~d.
+
+* * * *
+
+{#smart-quotes-ellipses-dashes}
+# Smart quotes, ellipses, dashes
+
+"Hello," said the spider. "'Shelob' is my name."
+
+'A', 'B', and 'C' are letters.
+
+'Oak,' 'elm,' and 'beech' are names of trees. So is 'pine.'
+
+'He said, "I want to go."' Were you alive in the 70's?
+
+Here is some quoted '`code`' and a "[quoted
+link](http://example.com/?foo=1&bar=2)".
+
+Some dashes: one---two --- three---four --- five.
+
+Dashes between numbers: 5--7, 255--66, 1987--1999.
+
+Ellipses...and...and....
+
+* * * *
+
+{#latex}
+# LaTeX
+
+- 
+- $`2+2=4`
+- $`x \in y`
+- $`\alpha \wedge \omega`
+- $`223`
+- $`p`-Tree
+- Here's some display math:
+  $$`\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}`
+- Here's one that has a line break in it: $`\alpha + \omega \times x^2`.
+
+These shouldn't be math:
+
+- To get the famous equation, write `$e = mc^2$`.
+- $22,000 is a _lot_ of money. So is $34,000. (It worked if "lot" is
+  emphasized.)
+- Shoes ($20) and socks ($5).
+- Escaped `$`\: $73 _this should be emphasized_ 23$.
+
+Here's a LaTeX table:
+
+* * * *
+
+{#special-characters}
+# Special Characters
+
+Here is some unicode:
+
+- I hat: Î
+- o umlaut: ö
+- section: §
+- set membership: ∈
+- copyright: ©
+
+AT&T has an ampersand in their name.
+
+AT&T is another way to write it.
+
+This & that.
+
+4 \< 5.
+
+6 \> 5.
+
+Backslash: \\
+
+Backtick: \`
+
+Asterisk: \*
+
+Underscore: \_
+
+Left brace: \{
+
+Right brace: \}
+
+Left bracket: \[
+
+Right bracket: \]
+
+Left paren: (
+
+Right paren: )
+
+Greater-than: \>
+
+Hash: #
+
+Period: .
+
+Bang: \!
+
+Plus: +
+
+Minus: -
+
+* * * *
+
+{#links}
+# Links
+
+{#explicit}
+## Explicit
+
+Just a [URL](/url/).
+
+[URL and title](/url/){title="title"}.
+
+[URL and title](/url/){title="title preceded by two spaces"}.
+
+[URL and title](/url/){title="title preceded by a tab"}.
+
+[URL and title](/url/){title="title with \"quotes\" in it"}
+
+[URL and title](/url/){title="title with single quotes"}
+
+[with\_underscore](/url/with_underscore)
+
+[Email link](mailto:nobody@nowhere.net)
+
+[Empty]().
+
+{#reference}
+## Reference
+
+Foo [bar](/url/).
+
+With [embedded \[brackets\]](/url/).
+
+[b](/url/) by itself should be a link.
+
+Indented [once](/url).
+
+Indented [twice](/url).
+
+Indented [thrice](/url).
+
+This should \[not\]\[\] be a link.
+
+```
+[not]: /url
+```
+
+Foo [bar](/url/){title="Title with \"quotes\" inside"}.
+
+Foo [biz](/url/){title="Title with \"quote\" inside"}.
+
+{#with-ampersands}
+## With ampersands
+
+Here's a [link with an ampersand in the URL](http://example.com/?foo=1&bar=2).
+
+Here's a link with an amersand in the link text:
+[AT&T](http://att.com/){title="AT&T"}.
+
+Here's an [inline link](/script?foo=1&bar=2).
+
+Here's an [inline link in pointy braces](/script?foo=1&bar=2).
+
+{#autolinks}
+## Autolinks
+
+With an ampersand: <http://example.com/?foo=1&bar=2>
+
+- In a list?
+- <http://example.com/>
+- It should.
+
+An e-mail address: <nobody@nowhere.net>
+
+> Blockquoted: <http://example.com/>
+
+Auto-links should not occur here: `<http://example.com/>`
+
+```
+or here: <http://example.com/>
+```
+
+* * * *
+
+{#images}
+# Images
+
+From "Voyage dans la Lune" by Georges Melies (1902):
+
+::::
+![lalune](lalune.jpg){title="Voyage dans la Lune"}
+
+{.caption}
+:::
+lalune
+
+:::
+
+::::
+
+Here is a movie ![movie](movie.jpg) icon.
+
+* * * *
+
+{#footnotes}
+# Footnotes
+
+Here is a footnote reference,[^1] and another.[^2] This should _not_ be a
+footnote reference, because it contains a space.\[\^my note\] Here is an inline
+note.[^3]
+
+> Notes can go in quotes.[^4]
+
+1. And in list items.[^5]
+
+This paragraph should not be part of the note, as it is not indented.
+
+[^1]: Here is the footnote. It can go anywhere after the footnote reference. It
+    need not be placed at the end of the document.
+
+[^2]: Here's the long note. This one contains multiple blocks.
+
+    Subsequent blocks are indented to show that they belong to the footnote (as
+    with list items).
+
+    ```
+      { <code> }
+    ```
+
+    If you want, you can indent every line, but you can also be lazy and just
+    indent the first line of each block.
+
+[^3]: This is _easier_ to type. Inline notes may contain
+    [links](http://google.com) and `]` verbatim characters, as well as
+    \[bracketed text\].
+
+[^4]: In quote.
+
+[^5]: In list.
diff --git a/test/djot-reader.native b/test/djot-reader.native
new file mode 100644
--- /dev/null
+++ b/test/djot-reader.native
@@ -0,0 +1,986 @@
+Pandoc
+  Meta { unMeta = fromList [] }
+  [ Div
+      ( "Pandoc-Test-Suite"
+      , [ "section" ]
+      , [ ( "wrapper" , "1" ) ]
+      )
+      [ Header 1 ( "" , [] , [] ) [ Str "Pandoc Test Suite" ]
+      , Para
+          [ Str "John MacFarlane" , SoftBreak , Str "Anonymous" ]
+      , Para [ Str "July 17, 2006" ]
+      , Para
+          [ Str
+              "This is a set of tests for pandoc. Most of them are adapted from John Gruber\8217s"
+          , SoftBreak
+          , Str "markdown test suite."
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "headers" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Headers" ]
+      , Div
+          ( "level-2-with-an-embedded-link"
+          , [ "section" ]
+          , [ ( "wrapper" , "1" ) ]
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "Level 2 with an "
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "embedded link" ]
+                  ( "/url" , "" )
+              ]
+          , Div
+              ( "level-3-with-emphasis"
+              , [ "section" ]
+              , [ ( "wrapper" , "1" ) ]
+              )
+              [ Header
+                  3
+                  ( "" , [] , [] )
+                  [ Str "Level 3 with " , Emph [ Str "emphasis" ] ]
+              , Div
+                  ( "level-4"
+                  , [ "section" ]
+                  , [ ( "wrapper" , "1" ) ]
+                  )
+                  [ Header 4 ( "" , [] , [] ) [ Str "Level 4" ]
+                  , Div
+                      ( "level-5"
+                      , [ "section" ]
+                      , [ ( "wrapper" , "1" ) ]
+                      )
+                      [ Header 5 ( "" , [] , [] ) [ Str "Level 5" ] ]
+                  ]
+              ]
+          ]
+      ]
+  , Div
+      ( "level-1" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Level 1" ]
+      , Div
+          ( "level-2-with-emphasis"
+          , [ "section" ]
+          , [ ( "wrapper" , "1" ) ]
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "Level 2 with " , Emph [ Str "emphasis" ] ]
+          , Div
+              ( "level-3" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+              [ Header 3 ( "" , [] , [] ) [ Str "Level 3" ]
+              , Para [ Str "with no blank line" ]
+              ]
+          ]
+      , Div
+          ( "level-2" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Level 2" ]
+          , Para [ Str "with no blank line" ]
+          , HorizontalRule
+          ]
+      ]
+  , Div
+      ( "paragraphs" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Paragraphs" ]
+      , Para [ Str "Here\8217s a regular paragraph." ]
+      , Para
+          [ Str
+              "In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item."
+          , SoftBreak
+          , Str
+              "Because a hard-wrapped line in the middle of a paragraph looked like a list"
+          , SoftBreak
+          , Str "item."
+          ]
+      , Para [ Str "Here\8217s one with a bullet. * criminey." ]
+      , Para
+          [ Str "There should be a hard line break"
+          , LineBreak
+          , Str "here."
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "block-quotes" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Block Quotes" ]
+      , Para [ Str "E-mail style:" ]
+      , BlockQuote
+          [ Para [ Str "This is a block quote. It is pretty short." ]
+          ]
+      , BlockQuote
+          [ Para [ Str "Code in a block quote:" ]
+          , CodeBlock
+              ( "" , [ "" ] , [] )
+              "sub status {\nprint \"working\";\n}\n"
+          , Para [ Str "A list:" ]
+          , OrderedList
+              ( 1 , Decimal , Period )
+              [ [ Plain [ Str "item one" ] ]
+              , [ Plain [ Str "item two" ] ]
+              ]
+          , BlockQuote [ Para [ Str "nested" ] ]
+          , BlockQuote [ Para [ Str "nested" ] ]
+          ]
+      , Para [ Str "This should not be a block quote: 2 > 1." ]
+      , Para [ Str "And a following paragraph." ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "code-blocks" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Code Blocks" ]
+      , Para [ Str "Code:" ]
+      , CodeBlock
+          ( "" , [ "" ] , [] )
+          "---- (should be four hyphens)\n\nsub status {\n    print \"working\";\n}\n\nthis code block is indented by one tab\n"
+      , Para [ Str "And:" ]
+      , CodeBlock
+          ( "" , [ "" ] , [] )
+          "    this code block is indented by two tabs\n\nThese should not be escaped:  \\$ \\\\ \\> \\[ \\{\n"
+      , HorizontalRule
+      ]
+  , Div
+      ( "lists" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Lists" ]
+      , Div
+          ( "unordered" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Unordered" ]
+          , Para [ Str "Asterisks tight:" ]
+          , BulletList
+              [ [ Para [ Str "asterisk 1" ] ]
+              , [ Para [ Str "asterisk 2" ] ]
+              , [ Para [ Str "asterisk 3" ] ]
+              , [ Para [ Str "asterisk 1" ] ]
+              , [ Para [ Str "asterisk 2" ] ]
+              , [ Para [ Str "asterisk 3" ] ]
+              , [ Para [ Str "Plus 1" ] ]
+              , [ Para [ Str "Plus 2" ] ]
+              , [ Para [ Str "Plus 3" ] ]
+              , [ Para [ Str "Plus 1" ] ]
+              , [ Para [ Str "Plus 2" ] ]
+              , [ Para [ Str "Plus 3" ] ]
+              , [ Para [ Str "Minus 1" ] ]
+              , [ Para [ Str "Minus 2" ] ]
+              , [ Para [ Str "Minus 3" ] ]
+              , [ Para [ Str "Minus 1" ] ]
+              , [ Para [ Str "Minus 2" ] ]
+              , [ Para [ Str "Minus 3" ] ]
+              ]
+          ]
+      , Div
+          ( "ordered" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Ordered" ]
+          , Para [ Str "Tight:" ]
+          , OrderedList
+              ( 1 , Decimal , Period )
+              [ [ Para [ Str "First" ] ]
+              , [ Para [ Str "Second" ] ]
+              , [ Para [ Str "Third" ] ]
+              , [ Para [ Str "One" ] ]
+              , [ Para [ Str "Two" ] ]
+              , [ Para [ Str "Three" ] ]
+              , [ Para [ Str "First" ] ]
+              , [ Para [ Str "Second" ] ]
+              , [ Para [ Str "Third" ] ]
+              , [ Para [ Str "One" ] ]
+              , [ Para [ Str "Two" ] ]
+              , [ Para [ Str "Three" ] ]
+              , [ Para [ Str "Item 1, graf one." ]
+                , Para
+                    [ Str
+                        "Item 1. graf two. The quick brown fox jumped over the lazy dog\8217s back."
+                    ]
+                ]
+              , [ Para [ Str "Item 2." ] ]
+              , [ Para [ Str "Item 3." ] ]
+              ]
+          ]
+      , Div
+          ( "nested" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Nested" ]
+          , BulletList
+              [ [ Plain [ Str "Tab" ]
+                , BulletList
+                    [ [ Plain [ Str "Tab" ]
+                      , BulletList [ [ Plain [ Str "Tab" ] ] ]
+                      ]
+                    ]
+                ]
+              ]
+          , OrderedList
+              ( 1 , Decimal , Period )
+              [ [ Para [ Str "First" ] ]
+              , [ Para [ Str "Second:" ]
+                , BulletList
+                    [ [ Plain [ Str "Fee" ] ]
+                    , [ Plain [ Str "Fie" ] ]
+                    , [ Plain [ Str "Foe" ] ]
+                    ]
+                ]
+              , [ Para [ Str "Third" ] ]
+              , [ Para [ Str "First" ] ]
+              , [ Para [ Str "Second:" ]
+                , BulletList
+                    [ [ Plain [ Str "Fee" ] ]
+                    , [ Plain [ Str "Fie" ] ]
+                    , [ Plain [ Str "Foe" ] ]
+                    ]
+                ]
+              , [ Para [ Str "Third" ] ]
+              ]
+          ]
+      , Div
+          ( "tabs-and-spaces"
+          , [ "section" ]
+          , [ ( "wrapper" , "1" ) ]
+          )
+          [ Header 2 ( "" , [] , [] ) [ Str "Tabs and spaces" ]
+          , BulletList
+              [ [ Para [ Str "this is a list item indented with tabs" ]
+                ]
+              , [ Para
+                    [ Str "this is a list item indented with spaces" ]
+                , BulletList
+                    [ [ Para
+                          [ Str
+                              "this is an example list item indented with tabs"
+                          ]
+                      ]
+                    , [ Para
+                          [ Str
+                              "this is an example list item indented with spaces"
+                          ]
+                      ]
+                    ]
+                ]
+              ]
+          ]
+      , Div
+          ( "fancy-list-markers"
+          , [ "section" ]
+          , [ ( "wrapper" , "1" ) ]
+          )
+          [ Header 2 ( "" , [] , [] ) [ Str "Fancy list markers" ]
+          , OrderedList
+              ( 2 , Decimal , TwoParens )
+              [ [ Para [ Str "begins with 2" ] ]
+              , [ Para [ Str "and now 3" ]
+                , Para [ Str "with a continuation" ]
+                , OrderedList
+                    ( 4 , LowerRoman , Period )
+                    [ [ Plain
+                          [ Str
+                              "sublist with roman numerals, starting with 4"
+                          ]
+                      ]
+                    , [ Plain [ Str "more items" ]
+                      , OrderedList
+                          ( 1 , UpperAlpha , TwoParens )
+                          [ [ Plain [ Str "a subsublist" ] ]
+                          , [ Plain [ Str "a subsublist" ] ]
+                          ]
+                      ]
+                    ]
+                ]
+              ]
+          , OrderedList
+              ( 1 , UpperAlpha , Period )
+              [ [ Plain [ Str "Upper Alpha" ]
+                , OrderedList
+                    ( 1 , UpperRoman , Period )
+                    [ [ Plain [ Str "Upper Roman." ]
+                      , OrderedList
+                          ( 6 , Decimal , TwoParens )
+                          [ [ Plain [ Str "Decimal start with 6" ]
+                            , OrderedList
+                                ( 3 , LowerAlpha , OneParen )
+                                [ [ Plain
+                                      [ Str "Lower alpha with paren" ]
+                                  ]
+                                ]
+                            ]
+                          ]
+                      ]
+                    ]
+                ]
+              ]
+          , OrderedList
+              ( 1 , Decimal , Period )
+              [ [ Plain [ Str "Autonumber." ] ]
+              , [ Plain [ Str "More." ]
+                , OrderedList
+                    ( 1 , Decimal , Period )
+                    [ [ Plain [ Str "Nested." ] ] ]
+                ]
+              ]
+          , OrderedList
+              ( 2 , UpperAlpha , Period )
+              [ [ Plain [ Str "Williams" ] ] ]
+          , HorizontalRule
+          ]
+      ]
+  , Div
+      ( "definition-lists"
+      , [ "section" ]
+      , [ ( "wrapper" , "1" ) ]
+      )
+      [ Header 1 ( "" , [] , [] ) [ Str "Definition Lists" ]
+      , Para [ Str "Tight using spaces:" ]
+      , DefinitionList
+          [ ( [ Str "apple" ] , [ [ Para [ Str "red fruit" ] ] ] )
+          , ( [ Str "orange" ] , [ [ Para [ Str "orange fruit" ] ] ] )
+          , ( [ Str "banana" ] , [ [ Para [ Str "yellow fruit" ] ] ] )
+          , ( [ Str "apple" ] , [ [ Para [ Str "red fruit" ] ] ] )
+          , ( [ Str "orange" ] , [ [ Para [ Str "orange fruit" ] ] ] )
+          , ( [ Str "banana" ] , [ [ Para [ Str "yellow fruit" ] ] ] )
+          , ( [ Str "apple" ] , [ [ Para [ Str "red fruit" ] ] ] )
+          , ( [ Str "orange" ] , [ [ Para [ Str "orange fruit" ] ] ] )
+          , ( [ Str "banana" ] , [ [ Para [ Str "yellow fruit" ] ] ] )
+          , ( [ Emph [ Str "apple" ] ]
+            , [ [ Para [ Str "red fruit" ]
+                , Para
+                    [ Str "contains seeds, crisp, pleasant to taste" ]
+                ]
+              ]
+            )
+          , ( [ Emph [ Str "orange" ] ]
+            , [ [ Para [ Str "orange fruit" ]
+                , CodeBlock
+                    ( "" , [ "" ] , [] ) "{ orange code block }\n"
+                ]
+              ]
+            )
+          ]
+      , BlockQuote [ Para [ Str "orange block quote" ] ]
+      , Para [ Str "Multiple definitions, tight:" ]
+      , DefinitionList
+          [ ( [ Str "apple" ]
+            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
+            )
+          , ( [ Str "orange" ]
+            , [ [ Para [ Str "orange fruit" ] , Para [ Str "bank" ] ] ]
+            )
+          , ( [ Str "apple" ]
+            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
+            )
+          , ( [ Str "orange" ]
+            , [ [ Para [ Str "orange fruit" ] , Para [ Str "bank" ] ] ]
+            )
+          , ( [ Str "apple" ]
+            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
+            )
+          , ( [ Str "orange" ]
+            , [ [ Para [ Str "orange fruit" ]
+                , OrderedList
+                    ( 1 , Decimal , Period )
+                    [ [ Plain [ Str "sublist" ] ]
+                    , [ Plain [ Str "sublist" ] ]
+                    ]
+                ]
+              ]
+            )
+          ]
+      ]
+  , Div
+      ( "html-blocks" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "HTML Blocks" ]
+      , Para [ Str "Simple block on one line:" ]
+      , Div ( "" , [] , [] ) [ Para [ Str "foo" ] ]
+      , Para [ Str "And nested without indentation:" ]
+      , Div
+          ( "" , [] , [] )
+          [ Div
+              ( "" , [] , [] )
+              [ Div ( "" , [] , [] ) [ Para [ Str "foo" ] ] ]
+          , Div ( "" , [] , [] ) [ Para [ Str "bar" ] ]
+          ]
+      , Para [ Str "Interpreted markdown in a table:" ]
+      , Para [ Str "This is " , Emph [ Str "emphasized" ] ]
+      , Para [ Str "And this is " , Strong [ Str "strong" ] ]
+      , Para [ Str "Here\8217s a simple block:" ]
+      , Div ( "" , [] , [] ) [ Para [ Str "foo" ] ]
+      , Para [ Str "This should be a code block, though:" ]
+      , CodeBlock ( "" , [ "" ] , [] ) "<div>\n    foo\n</div>\n"
+      , Para [ Str "As should this:" ]
+      , CodeBlock ( "" , [ "" ] , [] ) "<div>foo</div>\n"
+      , Para [ Str "Now, nested:" ]
+      , Div
+          ( "" , [] , [] )
+          [ Div
+              ( "" , [] , [] )
+              [ Div ( "" , [] , [] ) [ Para [ Str "foo" ] ] ]
+          ]
+      , Para [ Str "This should just be an HTML comment:" ]
+      , Para [ Str "Multiline:" ]
+      , Para [ Str "Code block:" ]
+      , CodeBlock ( "" , [ "" ] , [] ) "<!-- Comment -->\n"
+      , Para
+          [ Str
+              "Just plain comment, with trailing spaces on the line:"
+          ]
+      , Para [ Str "Code:" ]
+      , CodeBlock ( "" , [ "" ] , [] ) "<hr />\n"
+      , Para [ Str "Hr\8217s:" ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "inline-markup"
+      , [ "section" ]
+      , [ ( "wrapper" , "1" ) ]
+      )
+      [ Header 1 ( "" , [] , [] ) [ Str "Inline Markup" ]
+      , Para
+          [ Str "This is "
+          , Emph [ Str "emphasized" ]
+          , Str ", and so "
+          , Emph [ Str "is this" ]
+          , Str "."
+          ]
+      , Para
+          [ Str "This is "
+          , Strong [ Str "strong" ]
+          , Str ", and so "
+          , Strong [ Str "is this" ]
+          , Str "."
+          ]
+      , Para
+          [ Str "An "
+          , Emph
+              [ Link
+                  ( "" , [] , [] )
+                  [ Str "emphasized link" ]
+                  ( "/url" , "" )
+              ]
+          , Str "."
+          ]
+      , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
+      , Para
+          [ Str "So is "
+          , Strong [ Emph [ Str "this" ] ]
+          , Str " word."
+          ]
+      , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
+      , Para
+          [ Str "So is "
+          , Strong [ Emph [ Str "this" ] ]
+          , Str " word."
+          ]
+      , Para
+          [ Str "This is code: "
+          , Code ( "" , [] , [] ) ">"
+          , Str ", "
+          , Code ( "" , [] , [] ) "$"
+          , Str ", "
+          , Code ( "" , [] , [] ) "\\`, "
+          , Str "$"
+          , Code ( "" , [] , [] ) ", "
+          , Str "<html>"
+          , Code ( "" , [] , [] ) "."
+          ]
+      , Para
+          [ Span
+              ( "" , [ "deleted" ] , [] )
+              [ Str "This is " , Emph [ Str "strikeout" ] , Str "." ]
+          ]
+      , Para
+          [ Str "Superscripts: a"
+          , Superscript [ Str "bc" ]
+          , Str "d a"
+          , Superscript [ Emph [ Str "hello" ] ]
+          , Str " a"
+          , Superscript [ Str "hello\160there" ]
+          , Str "."
+          ]
+      , Para
+          [ Str "Subscripts: H"
+          , Subscript [ Str "2" ]
+          , Str "O, H"
+          , Subscript [ Str "23" ]
+          , Str "O, H"
+          , Subscript [ Str "many\160of\160them" ]
+          , Str "O."
+          ]
+      , Para
+          [ Str
+              "These should not be superscripts or subscripts, because of the unescaped spaces:"
+          , SoftBreak
+          , Str "a^b c^d, a~b c~d."
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "smart-quotes-ellipses-dashes"
+      , [ "section" ]
+      , [ ( "wrapper" , "1" ) ]
+      )
+      [ Header
+          1 ( "" , [] , [] ) [ Str "Smart quotes, ellipses, dashes" ]
+      , Para
+          [ Quoted DoubleQuote [ Str "Hello," ]
+          , Str " said the spider. "
+          , Quoted
+              DoubleQuote
+              [ Quoted SingleQuote [ Str "Shelob" ]
+              , Str " is my name."
+              ]
+          ]
+      , Para
+          [ Quoted SingleQuote [ Str "A" ]
+          , Str ", "
+          , Quoted SingleQuote [ Str "B" ]
+          , Str ", and "
+          , Quoted SingleQuote [ Str "C" ]
+          , Str " are letters."
+          ]
+      , Para
+          [ Quoted SingleQuote [ Str "Oak," ]
+          , Str " "
+          , Quoted SingleQuote [ Str "elm," ]
+          , Str " and "
+          , Quoted SingleQuote [ Str "beech" ]
+          , Str " are names of trees. So is "
+          , Quoted SingleQuote [ Str "pine." ]
+          ]
+      , Para
+          [ Quoted
+              SingleQuote
+              [ Str "He said, "
+              , Quoted DoubleQuote [ Str "I want to go." ]
+              ]
+          , Str " Were you alive in the 70\8217s?"
+          ]
+      , Para
+          [ Str "Here is some quoted "
+          , Quoted SingleQuote [ Code ( "" , [] , [] ) "code" ]
+          , Str " and a "
+          , Quoted
+              DoubleQuote
+              [ Link
+                  ( "" , [] , [] )
+                  [ Str "quoted" , SoftBreak , Str "link" ]
+                  ( "http://example.com/?foo=1&bar=2" , "" )
+              ]
+          , Str "."
+          ]
+      , Para
+          [ Str
+              "Some dashes: one\8212two \8212 three\8212four \8212 five."
+          ]
+      , Para
+          [ Str
+              "Dashes between numbers: 5\8211\&7, 255\8211\&66, 1987\8211\&1999."
+          ]
+      , Para [ Str "Ellipses\8230and\8230and\8230." ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "latex" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "LaTeX" ]
+      , BulletList
+          [ []
+          , [ Para [ Math InlineMath "2+2=4" ] ]
+          , [ Para [ Math InlineMath "x \\in y" ] ]
+          , [ Para [ Math InlineMath "\\alpha \\wedge \\omega" ] ]
+          , [ Para [ Math InlineMath "223" ] ]
+          , [ Para [ Math InlineMath "p" , Str "-Tree" ] ]
+          , [ Para
+                [ Str "Here\8217s some display math:"
+                , SoftBreak
+                , Math
+                    DisplayMath
+                    "\\frac{d}{dx}f(x)=\\lim_{h\\to 0}\\frac{f(x+h)-f(x)}{h}"
+                ]
+            ]
+          , [ Para
+                [ Str "Here\8217s one that has a line break in it: "
+                , Math InlineMath "\\alpha + \\omega \\times x^2"
+                , Str "."
+                ]
+            ]
+          , [ Para
+                [ Str "To get the famous equation, write "
+                , Code ( "" , [] , [] ) "$e = mc^2$"
+                , Str "."
+                ]
+            ]
+          , [ Para
+                [ Str "$22,000 is a "
+                , Emph [ Str "lot" ]
+                , Str " of money. So is $34,000. (It worked if "
+                , Quoted DoubleQuote [ Str "lot" ]
+                , Str " is"
+                , SoftBreak
+                , Str "emphasized.)"
+                ]
+            ]
+          , [ Para [ Str "Shoes ($20) and socks ($5)." ] ]
+          , [ Para
+                [ Str "Escaped "
+                , Code ( "" , [] , [] ) "$"
+                , Str ": $73 "
+                , Emph [ Str "this should be emphasized" ]
+                , Str " 23$."
+                ]
+            ]
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "special-characters"
+      , [ "section" ]
+      , [ ( "wrapper" , "1" ) ]
+      )
+      [ Header 1 ( "" , [] , [] ) [ Str "Special Characters" ]
+      , Para [ Str "Here is some unicode:" ]
+      , BulletList
+          [ [ Plain [ Str "I hat: \206" ] ]
+          , [ Plain [ Str "o umlaut: \246" ] ]
+          , [ Plain [ Str "section: \167" ] ]
+          , [ Plain [ Str "set membership: \8712" ] ]
+          , [ Plain [ Str "copyright: \169" ] ]
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "links" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Links" ]
+      , Div
+          ( "explicit" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Explicit" ]
+          , Para
+              [ Str "Just a "
+              , Link ( "" , [] , [] ) [ Str "URL" ] ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" ) , ( "title" , "title" ) ]
+                  )
+                  [ Str "URL and title" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "title preceded by two spaces" )
+                    ]
+                  )
+                  [ Str "URL and title" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "title preceded by a tab" )
+                    ]
+                  )
+                  [ Str "URL and title" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "title with \"quotes\" in it" )
+                    ]
+                  )
+                  [ Str "URL and title" ]
+                  ( "/url/" , "" )
+              ]
+          , Para
+              [ Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "title with single quotes" )
+                    ]
+                  )
+                  [ Str "URL and title" ]
+                  ( "/url/" , "" )
+              ]
+          , Para
+              [ Link
+                  ( "" , [] , [] )
+                  [ Str "with_underscore" ]
+                  ( "/url/with_underscore" , "" )
+              ]
+          , Para
+              [ Link
+                  ( "" , [] , [] )
+                  [ Str "Email link" ]
+                  ( "mailto:nobody@nowhere.net" , "" )
+              ]
+          , Para
+              [ Link ( "" , [] , [] ) [ Str "Empty" ] ( "" , "" )
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "reference" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Reference" ]
+          , Para
+              [ Str "Foo "
+              , Link ( "" , [] , [] ) [ Str "bar" ] ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "With "
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "embedded [brackets]" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Link ( "" , [] , [] ) [ Str "b" ] ( "/url/" , "" )
+              , Str " by itself should be a link."
+              ]
+          , Para
+              [ Str "Indented "
+              , Link ( "" , [] , [] ) [ Str "once" ] ( "/url" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "Indented "
+              , Link ( "" , [] , [] ) [ Str "twice" ] ( "/url" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "Indented "
+              , Link ( "" , [] , [] ) [ Str "thrice" ] ( "/url" , "" )
+              , Str "."
+              ]
+          , Para [ Str "This should [not][] be a link." ]
+          , CodeBlock ( "" , [ "" ] , [] ) "[not]: /url\n"
+          , Para
+              [ Str "Foo "
+              , Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "Title with \"quotes\" inside" )
+                    ]
+                  )
+                  [ Str "bar" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "Foo "
+              , Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "Title with \"quote\" inside" )
+                    ]
+                  )
+                  [ Str "biz" ]
+                  ( "/url/" , "" )
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "with-ampersands"
+          , [ "section" ]
+          , [ ( "wrapper" , "1" ) ]
+          )
+          [ Header 2 ( "" , [] , [] ) [ Str "With ampersands" ]
+          , Para
+              [ Str "Here\8217s a "
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "link with an ampersand in the URL" ]
+                  ( "http://example.com/?foo=1&bar=2" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str
+                  "Here\8217s a link with an amersand in the link text:"
+              , SoftBreak
+              , Link
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" ) , ( "title" , "AT&T" ) ]
+                  )
+                  [ Str "AT&T" ]
+                  ( "http://att.com/" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "Here\8217s an "
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "inline link" ]
+                  ( "/script?foo=1&bar=2" , "" )
+              , Str "."
+              ]
+          , Para
+              [ Str "Here\8217s an "
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "inline link in pointy braces" ]
+                  ( "/script?foo=1&bar=2" , "" )
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "autolinks" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Autolinks" ]
+          , Para
+              [ Str "With an ampersand: "
+              , Link
+                  ( "" , [ "uri" ] , [] )
+                  [ Str "http://example.com/?foo=1&bar=2" ]
+                  ( "http://example.com/?foo=1&bar=2" , "" )
+              ]
+          , BulletList
+              [ [ Plain [ Str "In a list?" ] ]
+              , [ Plain
+                    [ Link
+                        ( "" , [ "uri" ] , [] )
+                        [ Str "http://example.com/" ]
+                        ( "http://example.com/" , "" )
+                    ]
+                ]
+              , [ Plain [ Str "It should." ] ]
+              ]
+          , BlockQuote
+              [ Para
+                  [ Str "Blockquoted: "
+                  , Link
+                      ( "" , [ "uri" ] , [] )
+                      [ Str "http://example.com/" ]
+                      ( "http://example.com/" , "" )
+                  ]
+              ]
+          , Para
+              [ Str "Auto-links should not occur here: "
+              , Code ( "" , [] , [] ) "<http://example.com/>"
+              ]
+          , CodeBlock
+              ( "" , [ "" ] , [] ) "or here: <http://example.com/>\n"
+          , HorizontalRule
+          ]
+      ]
+  , Div
+      ( "images" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Images" ]
+      , Para
+          [ Str "From "
+          , Quoted DoubleQuote [ Str "Voyage dans la Lune" ]
+          , Str " by Georges Melies (1902):"
+          ]
+      , Div
+          ( "" , [] , [] )
+          [ Para
+              [ Image
+                  ( ""
+                  , []
+                  , [ ( "wrapper" , "1" )
+                    , ( "title" , "Voyage dans la Lune" )
+                    ]
+                  )
+                  [ Str "lalune" ]
+                  ( "lalune.jpg" , "" )
+              ]
+          , Div
+              ( "" , [ "caption" ] , [ ( "wrapper" , "1" ) ] )
+              [ Para [ Str "lalune" ] ]
+          ]
+      , Para
+          [ Str "Here is a movie "
+          , Image
+              ( "" , [] , [] ) [ Str "movie" ] ( "movie.jpg" , "" )
+          , Str " icon."
+          ]
+      , HorizontalRule
+      ]
+  , Div
+      ( "footnotes" , [ "section" ] , [ ( "wrapper" , "1" ) ] )
+      [ Header 1 ( "" , [] , [] ) [ Str "Footnotes" ]
+      , Para
+          [ Str "Here is a footnote reference,"
+          , Note
+              [ Para
+                  [ Str
+                      "Here is the footnote. It can go anywhere after the footnote reference. It"
+                  , SoftBreak
+                  , Str "need not be placed at the end of the document."
+                  ]
+              ]
+          , Str " and another."
+          , Note
+              [ Para
+                  [ Str
+                      "Here\8217s the long note. This one contains multiple blocks."
+                  ]
+              , Para
+                  [ Str
+                      "Subsequent blocks are indented to show that they belong to the footnote (as"
+                  , SoftBreak
+                  , Str "with list items)."
+                  ]
+              , CodeBlock ( "" , [ "" ] , [] ) "{ <code> }\n"
+              , Para
+                  [ Str
+                      "If you want, you can indent every line, but you can also be lazy and just"
+                  , SoftBreak
+                  , Str "indent the first line of each block."
+                  ]
+              ]
+          , Str " This should "
+          , Emph [ Str "not" ]
+          , Str " be a"
+          , SoftBreak
+          , Str
+              "footnote reference, because it contains a space.[^my note] Here is an inline"
+          , SoftBreak
+          , Str "note."
+          , Note
+              [ Para
+                  [ Str "This is "
+                  , Emph [ Str "easier" ]
+                  , Str " to type. Inline notes may contain"
+                  , SoftBreak
+                  , Link
+                      ( "" , [] , [] )
+                      [ Str "links" ]
+                      ( "http://google.com" , "" )
+                  , Str " and "
+                  , Code ( "" , [] , [] ) "]"
+                  , Str " verbatim characters, as well as"
+                  , SoftBreak
+                  , Str "[bracketed text]."
+                  ]
+              ]
+          ]
+      , BlockQuote
+          [ Para
+              [ Str "Notes can go in quotes."
+              , Note [ Para [ Str "In quote." ] ]
+              ]
+          ]
+      , OrderedList
+          ( 1 , Decimal , Period )
+          [ [ Plain
+                [ Str "And in list items."
+                , Note [ Para [ Str "In list." ] ]
+                ]
+            ]
+          ]
+      ]
+  ]
diff --git a/test/docbook-reader.native b/test/docbook-reader.native
--- a/test/docbook-reader.native
+++ b/test/docbook-reader.native
@@ -2927,21 +2927,26 @@
           ]
       ]
       (TableFoot ( "" , [] , [] ) [])
-  , BulletList
+  , OrderedList
+      ( 1 , DefaultStyle , DefaultDelim )
       [ [ Para [ Str "A" , Space , Str "Step" ] ]
       , [ Para [ Str "Another" , Space , Str "Step" ]
-        , Para
-            [ Str "Substeps"
-            , Space
-            , Str "can"
-            , Space
-            , Str "be"
-            , Space
-            , Str "nested"
-            , Space
-            , Str "indefinitely"
-            , Space
-            , Str "deep."
+        , OrderedList
+            ( 1 , DefaultStyle , DefaultDelim )
+            [ [ Para
+                  [ Str "Substeps"
+                  , Space
+                  , Str "can"
+                  , Space
+                  , Str "be"
+                  , Space
+                  , Str "nested"
+                  , Space
+                  , Str "indefinitely"
+                  , Space
+                  , Str "deep."
+                  ]
+              ]
             ]
         ]
       , [ Para
diff --git a/test/docx/golden/table_one_row.docx b/test/docx/golden/table_one_row.docx
Binary files a/test/docx/golden/table_one_row.docx and b/test/docx/golden/table_one_row.docx differ
diff --git a/test/docx/golden/table_with_list_cell.docx b/test/docx/golden/table_with_list_cell.docx
Binary files a/test/docx/golden/table_with_list_cell.docx and b/test/docx/golden/table_with_list_cell.docx differ
diff --git a/test/docx/golden/tables-default-widths.docx b/test/docx/golden/tables-default-widths.docx
Binary files a/test/docx/golden/tables-default-widths.docx and b/test/docx/golden/tables-default-widths.docx differ
diff --git a/test/docx/golden/tables.docx b/test/docx/golden/tables.docx
Binary files a/test/docx/golden/tables.docx and b/test/docx/golden/tables.docx differ
diff --git a/test/docx/golden/tables_separated_with_rawblock.docx b/test/docx/golden/tables_separated_with_rawblock.docx
Binary files a/test/docx/golden/tables_separated_with_rawblock.docx and b/test/docx/golden/tables_separated_with_rawblock.docx differ
diff --git a/test/epub/features.native b/test/epub/features.native
--- a/test/epub/features.native
+++ b/test/epub/features.native
@@ -1,1686 +1,1721 @@
-[ Para [ Span ( "front.xhtml" , [] , [] ) [] ]
-, Div
-    ( "" , [ "section" ] , [] )
-    [ Header
-        1
-        ( "" , [] , [] )
-        [ Str "Reflowable"
-        , Space
-        , Str "EPUB"
-        , Space
-        , Str "3"
-        , Space
-        , Str "Conformance"
-        , Space
-        , Str "Test"
-        , Space
-        , Str "Document:"
-        , Space
-        , Str "0100"
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "Status"
-            , Space
-            , Str "of"
-            , Space
-            , Str "this"
-            , Space
-            , Str "Document"
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "currently"
-            , Space
-            , Str "considered"
-            , Space
-            , Span
-                ( "" , [ "status" ] , [] )
-                [ Str "[UNDER" , Space , Str "DEVELOPMENT]" ]
-            , Space
-            , Str "by"
-            , Space
-            , Str "the"
-            , Space
-            , Str "IDPF."
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "part"
-            , Space
-            , Str "of"
-            , Space
-            , Str "version"
-            , Space
-            , Span ( "" , [ "version" ] , [] ) [ Str "X.X" ]
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "EPUB"
-            , Space
-            , Str "3.0"
-            , Space
-            , Str "Compliance"
-            , Space
-            , Str "Test"
-            , Space
-            , Str "Suite"
-            , Space
-            , Str "released"
-            , SoftBreak
-            , Str "on"
-            , Space
-            , RawInline (Format "html") "<time class=\"release\">"
-            , Str "TBD"
-            , RawInline (Format "html") "</time>"
-            , Str "."
-            ]
-        , Para
-            [ Str "Before"
-            , Space
-            , Str "using"
-            , Space
-            , Str "this"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "to"
-            , Space
-            , Str "evaluate"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "systems,"
-            , Space
-            , Str "testers"
-            , Space
-            , Str "are"
-            , Space
-            , Str "strongly"
-            , Space
-            , Str "encouraged"
-            , Space
-            , Str "to"
-            , SoftBreak
-            , Str "verify"
-            , Space
-            , Str "that"
-            , Space
-            , Str "they"
-            , Space
-            , Str "have"
-            , Space
-            , Str "the"
-            , Space
-            , Str "latest"
-            , Space
-            , Str "release"
-            , Space
-            , Str "by"
-            , Space
-            , Str "checking"
-            , Space
-            , Str "the"
-            , Space
-            , Str "current"
-            , Space
-            , Str "release"
-            , Space
-            , Str "version"
-            , Space
-            , Str "and"
-            , Space
-            , Str "date"
-            , Space
-            , Str "of"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , Space
-            , Str "at"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "TBD" ]
-                ( "http://idpf.org/" , "" )
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "one"
-            , Space
-            , Str "of"
-            , Space
-            , Str "several"
-            , Space
-            , Str "that"
-            , Space
-            , Str "currently"
-            , Space
-            , Str "comprise"
-            , Space
-            , Str "the"
-            , Space
-            , Str "EPUB"
-            , Space
-            , Str "3"
-            , Space
-            , Str "conformance"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , SoftBreak
-            , Str "for"
-            , Space
-            , Str "reflowable"
-            , Space
-            , Str "content."
-            , Space
-            , Str "The"
-            , Space
-            , Str "complete"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , Space
-            , Str "includes"
-            , Space
-            , Str "all"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "following"
-            , Space
-            , Str "publications:"
-            ]
-        , OrderedList
-            ( 1 , DefaultStyle , DefaultDelim )
-            [ [ Plain [ Str "." ] ] ]
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "About"
-            , Space
-            , Str "this"
-            , Space
-            , Str "Document"
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "document"
-            , Space
-            , Str "focuses"
-            , Space
-            , Str "on"
-            , Space
-            , Str "human-evaluated"
-            , Space
-            , Str "binary"
-            , Space
-            , Str "(pass/fail)"
-            , Space
-            , Str "tests"
-            , Space
-            , Str "in"
-            , Space
-            , Str "a"
-            , SoftBreak
-            , Str "reflowable"
-            , Space
-            , Str "context."
-            , Space
-            , Str "Tests"
-            , Space
-            , Str "for"
-            , Space
-            , Str "fixed-layout"
-            , Space
-            , Str "content"
-            , Space
-            , Str "and"
-            , Space
-            , Str "other"
-            , Space
-            , Str "individual"
-            , Space
-            , Str "tests"
-            , Space
-            , Str "that"
-            , SoftBreak
-            , Str "require"
-            , Space
-            , Str "a"
-            , Space
-            , Str "dedicated"
-            , Space
-            , Str "epub"
-            , Space
-            , Str "file"
-            , Space
-            , Str "are"
-            , Space
-            , Str "available"
-            , Space
-            , Str "in"
-            , Space
-            , Str "additional"
-            , Space
-            , Str "sibling"
-            , Space
-            , Str "documents;"
-            , Space
-            , Str "refer"
-            , Space
-            , Str "to"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "test"
-                , Space
-                , Str "suite"
-                , SoftBreak
-                , Str "wiki"
-                ]
-                ( "https://github.com/mgylling/epub-testsuite/wiki/Overview"
-                , ""
-                )
-            , Space
-            , Str "("
-            , Code
-                ( "" , [] , [] )
-                "https://github.com/mgylling/epub-testsuite/wiki/Overview"
-            , Str ")"
-            , Space
-            , Str "for"
-            , Space
-            , Str "additional"
-            , SoftBreak
-            , Str "information."
-            ]
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header 2 ( "" , [] , [] ) [ Str "Conventions" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "following"
-            , Space
-            , Str "conventions"
-            , Space
-            , Str "are"
-            , Space
-            , Str "used"
-            , Space
-            , Str "throughout"
-            , Space
-            , Str "the"
-            , Space
-            , Str "document:"
-            ]
-        , DefinitionList
-            [ ( [ Str "1."
-                , Space
-                , Str "Locating"
-                , Space
-                , Str "a"
-                , Space
-                , Str "test"
-                ]
-              , [ [ Div
-                      ( "" , [ "ctest" ] , [] )
-                      [ Para
-                          [ Str "Tests"
-                          , Space
-                          , Str "for"
-                          , Space
-                          , Emph [ Str "required" ]
-                          , Space
-                          , Str "Reading"
-                          , Space
-                          , Str "System"
-                          , Space
-                          , Str "functionality"
-                          , Space
-                          , Str "are"
-                          , SoftBreak
-                          , Str "preceded"
-                          , Space
-                          , Str "by"
-                          , Space
-                          , Str "the"
-                          , Space
-                          , Str "label:"
-                          , Space
-                          , Span
-                              ( ""
-                              , [ "nature" ]
-                              , [ ( "style"
-                                  , "display: inline; font-size: 100%"
-                                  )
-                                ]
-                              )
-                              [ Str "[REQUIRED]" ]
-                          ]
-                      ]
-                  , Div
-                      ( "" , [ "otest" ] , [] )
-                      [ Para
-                          [ Str "Tests"
-                          , Space
-                          , Str "for"
-                          , Space
-                          , Emph [ Str "optional" ]
-                          , Space
-                          , Str "Reading"
-                          , Space
-                          , Str "System"
-                          , Space
-                          , Str "functionality"
-                          , Space
-                          , Str "are"
-                          , SoftBreak
-                          , Str "preceded"
-                          , Space
-                          , Str "by"
-                          , Space
-                          , Str "the"
-                          , Space
-                          , Str "label:"
-                          , Space
-                          , Span
-                              ( ""
-                              , [ "nature" ]
-                              , [ ( "style"
-                                  , "display: inline; font-size: 100%"
-                                  )
-                                ]
-                              )
-                              [ Str "[OPTIONAL]" ]
-                          ]
-                      ]
-                  ]
-                ]
-              )
-            , ( [ Str "2."
-                , Space
-                , Str "Performing"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                ]
-              , [ [ Plain
-                      [ Str "Each"
-                      , Space
-                      , Str "test"
-                      , Space
-                      , Str "includes"
-                      , Space
-                      , Str "a"
-                      , Space
-                      , Str "description"
-                      , Space
-                      , Str "of"
-                      , Space
-                      , Str "its"
-                      , Space
-                      , Str "purpose"
-                      , Space
-                      , Str "followed"
-                      , Space
-                      , Str "by"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "actual"
-                      , Space
-                      , Strong
-                          [ Str "test"
-                          , Space
-                          , Str "statement,"
-                          , SoftBreak
-                          , Str "which"
-                          , Space
-                          , Str "can"
-                          , Space
-                          , Str "always"
-                          , Space
-                          , Str "be"
-                          , Space
-                          , Str "evaluated"
-                          , Space
-                          , Str "to"
-                          , Space
-                          , Str "true"
-                          , Space
-                          , Str "or"
-                          , Space
-                          , Str "false"
-                          ]
-                      , Str "."
-                      , Space
-                      , Str "These"
-                      , Space
-                      , Str "statements"
-                      , Space
-                      , Str "typically"
-                      , Space
-                      , Str "have"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "form:"
-                      , SoftBreak
-                      , Str "\"If"
-                      , Space
-                      , Str "[some"
-                      , Space
-                      , Str "condition],"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "test"
-                      , Space
-                      , Str "passes\"."
-                      ]
-                  ]
-                ]
-              )
-            , ( [ Str "3."
-                , Space
-                , Str "Scoring"
-                , Space
-                , Str "in"
-                , Space
-                , Str "the"
-                , Space
-                , Str "results"
-                , Space
-                , Str "form"
-                ]
-              , [ [ Plain
-                      [ Str "@@@TODO"
-                      , Space
-                      , Str "provide"
-                      , Space
-                      , Str "info"
-                      , Space
-                      , Str "on"
-                      , Space
-                      , Str "where"
-                      , Space
-                      , Str "to"
-                      , Space
-                      , Str "get"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "results"
-                      , Space
-                      , Str "form"
-                      ]
-                  ]
-                ]
-              )
-            ]
-        ]
-    ]
-, Para [ Span ( "content-mathml-001.xhtml" , [] , [] ) [] ]
-, Div
-    ( "" , [ "section" ] , [] )
-    [ Header
-        2
-        ( "content-mathml-001.xhtml#mathml" , [] , [] )
-        [ Str "MathML" ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-010"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-010" ]
-            , Space
-            , Str "Rendering"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "equation"
-            , Space
-            , Str "rendering"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ Math
-                DisplayMath
-                "\\int_{- \\infty}^{\\infty}e^{- x^{2}}\\, dx = \\sqrt{\\pi}"
-            , SoftBreak
-            , Math
-                DisplayMath
-                "\\sum\\limits_{n = 1}^{\\infty}\\frac{1}{n^{2}} = \\frac{\\pi^{2}}{6}"
-            , SoftBreak
-            , Math
-                DisplayMath
-                "x = \\frac{- b \\pm \\sqrt{b^{2} - 4ac}}{2a}"
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "equations"
-            , Space
-            , Str "are"
-            , Space
-            , Str "not"
-            , Space
-            , Str "presented"
-            , Space
-            , Str "as"
-            , Space
-            , Str "linear"
-            , Space
-            , Str "text"
-            , Space
-            , Str "(e.g.,"
-            , Space
-            , Str "x=-b\177b2-4ac2a),"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-020"
-        , [ "section" , "otest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-020" ]
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "Styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "math"
-            , Space
-            , Str "element"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "basic"
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "math"
-            , Space
-            , Str "element."
-            ]
-        , Plain [ Math InlineMath "{2x}{+ y - z}" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "equation"
-            , Space
-            , Str "has"
-            , Space
-            , Str "a"
-            , Space
-            , Str "yellow"
-            , Space
-            , Str "background"
-            , Space
-            , Str "and"
-            , Space
-            , Str "a"
-            , Space
-            , Str "dashed"
-            , Space
-            , Str "border."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "system"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "have"
-            , Space
-            , Str "a"
-            , Space
-            , Str "viewport,"
-            , Space
-            , Str "or"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "support"
-            , SoftBreak
-            , Str "CSS"
-            , Space
-            , Str "styles,"
-            , Space
-            , Str "this"
-            , Space
-            , Str "test"
-            , Space
-            , Str "should"
-            , Space
-            , Str "be"
-            , Space
-            , Str "marked"
-            , Space
-            , Code ( "" , [] , [] ) "Not Supported"
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-021"
-        , [ "section" , "otest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-021" ]
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "Styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mo"
-            , Space
-            , Str "element"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "basic"
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mo"
-            , Space
-            , Str "element."
-            ]
-        , Plain [ Math InlineMath "{2x}{+ y - z}" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "operators"
-            , Space
-            , Str "are"
-            , Space
-            , Str "enlarged"
-            , Space
-            , Str "relative"
-            , Space
-            , Str "to"
-            , Space
-            , Str "the"
-            , Space
-            , Str "other"
-            , Space
-            , Str "symbols"
-            , Space
-            , Str "and"
-            , Space
-            , Str "numbers."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "system"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "have"
-            , Space
-            , Str "a"
-            , Space
-            , Str "viewport,"
-            , Space
-            , Str "or"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "support"
-            , SoftBreak
-            , Str "CSS"
-            , Space
-            , Str "styles,"
-            , Space
-            , Str "this"
-            , Space
-            , Str "test"
-            , Space
-            , Str "should"
-            , Space
-            , Str "be"
-            , Space
-            , Str "marked"
-            , Space
-            , Code ( "" , [] , [] ) "Not Supported"
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-022"
-        , [ "section" , "otest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-022" ]
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "Styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mi"
-            , Space
-            , Str "element"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "basic"
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mi"
-            , Space
-            , Str "element."
-            ]
-        , Plain [ Math InlineMath "{2x}{+ y - z}" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "identifiers"
-            , Space
-            , Str "are"
-            , Space
-            , Str "bolded"
-            , Space
-            , Str "and"
-            , Space
-            , Str "blue."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "system"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "have"
-            , Space
-            , Str "a"
-            , Space
-            , Str "viewport,"
-            , Space
-            , Str "or"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "support"
-            , SoftBreak
-            , Str "CSS"
-            , Space
-            , Str "styles,"
-            , Space
-            , Str "this"
-            , Space
-            , Str "test"
-            , Space
-            , Str "should"
-            , Space
-            , Str "be"
-            , Space
-            , Str "marked"
-            , Space
-            , Code ( "" , [] , [] ) "Not Supported"
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-023"
-        , [ "section" , "otest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-023" ]
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "Styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mn"
-            , Space
-            , Str "element"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "basic"
-            , Space
-            , Str "CSS"
-            , Space
-            , Str "styling"
-            , Space
-            , Str "of"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "mn"
-            , Space
-            , Str "element."
-            ]
-        , Plain [ Math InlineMath "{2x}{+ y - z}" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "number"
-            , Space
-            , Str "2"
-            , Space
-            , Str "is"
-            , Space
-            , Str "italicized"
-            , Space
-            , Str "and"
-            , Space
-            , Str "blue."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "system"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "have"
-            , Space
-            , Str "a"
-            , Space
-            , Str "viewport,"
-            , Space
-            , Str "or"
-            , Space
-            , Str "does"
-            , Space
-            , Str "not"
-            , Space
-            , Str "support"
-            , SoftBreak
-            , Str "CSS"
-            , Space
-            , Str "styles,"
-            , Space
-            , Str "this"
-            , Space
-            , Str "test"
-            , Space
-            , Str "should"
-            , Space
-            , Str "be"
-            , Space
-            , Str "marked"
-            , Space
-            , Code ( "" , [] , [] ) "Not Supported"
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-024"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-024" ]
-            , Str "Horizontal"
-            , Space
-            , Str "stretch,"
-            , Space
-            , Code ( "" , [] , [] ) "mover"
-            , Str ","
-            , Space
-            , Code ( "" , [] , [] ) "munder"
-            , Str ","
-            , Space
-            , Str "and"
-            , Space
-            , Code ( "" , [] , [] ) "mspace"
-            , Space
-            , Str "elements"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "horizontal"
-            , Space
-            , Str "stretch,"
-            , Space
-            , Code ( "" , [] , [] ) "mover"
-            , Str ","
-            , Space
-            , Code ( "" , [] , [] ) "munder"
-            , Str ","
-            , Space
-            , Code ( "" , [] , [] ) "mspace"
-            , Space
-            , Str "elements"
-            , Space
-            , Str "are"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ Math
-                DisplayMath
-                "c = \\overset{\\text{complex number}}{\\overbrace{\\underset{\\text{real}}{\\underbrace{\\mspace{20mu} a\\mspace{20mu}}} + \\underset{\\text{imaginary}}{\\underbrace{\\quad b{\\mathbb{i}}\\quad}}}}"
-            ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "rendering"
-            , Space
-            , Str "looks"
-            , Space
-            , Str "like"
-            , Space
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-025"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-025" ]
-            , Str "Testing"
-            , Space
-            , Code ( "" , [] , [] ) "mtable"
-            , Space
-            , Str "with"
-            , Space
-            , Code ( "" , [] , [] ) "colspan"
-            , Space
-            , Str "and"
-            , Space
-            , Code ( "" , [] , [] ) "rowspan"
-            , Space
-            , Str "attributes,"
-            , Space
-            , Str "Hebrew"
-            , Space
-            , Str "and"
-            , Space
-            , Str "Script"
-            , Space
-            , Str "fonts"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Code ( "" , [] , [] ) "mtable"
-            , Space
-            , Str "with"
-            , Space
-            , Code ( "" , [] , [] ) "colspan"
-            , Space
-            , Str "and"
-            , Space
-            , Code ( "" , [] , [] ) "mspace"
-            , Space
-            , Str "attributes"
-            , Space
-            , Str "(column"
-            , Space
-            , Str "and"
-            , Space
-            , Str "row"
-            , Space
-            , Str "spanning)"
-            , Space
-            , Str "are"
-            , Space
-            , Str "supported;"
-            , Space
-            , Str "uses"
-            , Space
-            , Str "Hebrew"
-            , Space
-            , Str "and"
-            , Space
-            , Str "Script"
-            , Space
-            , Str "alphabets."
-            ]
-        , Plain
-            [ Math
-                DisplayMath
-                "\\begin{matrix}\n & {\\operatorname{cov}(\\mathcal{L})} & \\longrightarrow & {\\operatorname{non}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cof}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cof}(\\mathcal{L})} & \\longrightarrow & 2^{\\aleph_{0}} \\\\\n & \\uparrow & & \\uparrow & & \\uparrow & & \\uparrow & & \\\\\n & {\\mathfrak{b}} & \\longrightarrow & {\\mathfrak{d}} & & & & & & \\\\\n & \\uparrow & & \\uparrow & & & & & & \\\\\n\\aleph_{1} & \\longrightarrow & {\\operatorname{add}(\\mathcal{L})} & \\longrightarrow & {\\operatorname{add}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cov}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{non}(\\mathcal{L})} & \n\\end{matrix}"
-            ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "rendering"
-            , Space
-            , Str "looks"
-            , Space
-            , Str "like"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "Cicho\324's" , Space , Str "Diagram" ]
-                ( "http://en.wikipedia.org/wiki/Cicho%C5%84's_diagram"
-                , ""
-                )
-            , Str ":"
-            , Space
-            , Str "."
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-026"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-026" ]
-            , Str "BiDi,"
-            , Space
-            , Str "RTL"
-            , Space
-            , Str "and"
-            , Space
-            , Str "Arabic"
-            , Space
-            , Str "alphabets"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "right-to-left"
-            , Space
-            , Str "and"
-            , Space
-            , Str "Arabic"
-            , Space
-            , Str "alphabets"
-            , Space
-            , Str "are"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ Math
-                DisplayMath
-                "{\1583(\1587)} = \\left\\{ \\begin{matrix}\n{\\sum\\limits_{\1646 = 1}^{\1589}\1587^{\1646}} & {\\text{\1573\1584\1575\1603\1575\1606}\1587 > 0} \\\\\n{\\int_{1}^{\1589}{\1587^{\1646}\1569\1587}} & {\\text{\1573\1584\1575\1603\1575\1606}\1587 \\in \1605} \\\\\n{{\1591\1575}\\pi} & {\\text{\1594\1610\1585\1584\1604\1603}\\left( \\text{\1605\1593}\\pi \\simeq 3,141 \\right)}\n\\end{matrix} \\right."
-            ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "rendering"
-            , Space
-            , Str "looks"
-            , Space
-            , Str "like"
-            , Space
-            , Str "the"
-            , Space
-            , Str "following"
-            , Space
-            , Str "image:"
-            ]
-        ]
-    , Div
-        ( "content-mathml-001.xhtml#mathml-027"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-027" ]
-            , Str "Elementary"
-            , Space
-            , Str "math:"
-            , Space
-            , Str "long"
-            , Space
-            , Str "division"
-            , Space
-            , Str "notation"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Code ( "" , [] , [] ) "mlongdiv"
-            , Space
-            , Str "elements"
-            , Space
-            , Str "(from"
-            , Space
-            , Str "elementary"
-            , Space
-            , Str "math)"
-            , Space
-            , Str "are"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ Span
-                ( ""
-                , [ "math" ]
-                , [ ( "xmlns" , "http://www.w3.org/1998/Math/MathML" ) ]
-                )
-                [ SoftBreak
-                , Str "3"
-                , SoftBreak
-                , Str "435.3"
-                , SoftBreak
-                , Str "1306"
-                , SoftBreak
-                , Str "12"
-                , SoftBreak
-                , Str "10"
-                , SoftBreak
-                , Str "9"
-                , SoftBreak
-                , Str "16"
-                , SoftBreak
-                , Str "15"
-                , SoftBreak
-                , Str "1.0"
-                , SoftBreak
-                , Str "9"
-                , SoftBreak
-                , Str "1"
-                , SoftBreak
-                ]
-            ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes"
-            , Space
-            , Str "if"
-            , Space
-            , Str "the"
-            , Space
-            , Str "rendering"
-            , Space
-            , Str "looks"
-            , Space
-            , Str "like"
-            , Space
-            , Str "the"
-            , Space
-            , Str "following"
-            , Space
-            , Str "image:"
-            , Space
-            , Str "."
-            ]
-        ]
-    ]
-, Para [ Span ( "content-switch-001.xhtml" , [] , [] ) [] ]
-, Div
-    ( "content-switch-001.xhtml#epub-switch"
-    , [ "section" ]
-    , []
-    )
-    [ Header
-        3 ( "" , [] , [] ) [ Code ( "" , [] , [] ) "epub:switch" ]
-    , Div
-        ( "content-switch-001.xhtml#switch-010"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            4
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "switch-010" ]
-            , Space
-            , Str "Support"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Code ( "" , [] , [] ) "epub:switch" ]
-                ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-xhtml-content-switch"
-                , ""
-                )
-            , Space
-            , Str "element"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "PASS" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "only"
-            , Space
-            , Str "the"
-            , Space
-            , Str "word"
-            , Space
-            , Str "\"PASS\""
-            , Space
-            , Str "is"
-            , Space
-            , Str "rendered"
-            , Space
-            , Str "before"
-            , Space
-            , Str "this"
-            , Space
-            , Str "paragraph,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            , Space
-            , Str "If"
-            , Space
-            , Str "both"
-            , Space
-            , Str "\"PASS\""
-            , Space
-            , Str "and"
-            , Space
-            , Str "\"FAIL\""
-            , Space
-            , Str "are"
-            , Space
-            , Str "rendered,"
-            , Space
-            , Str "or"
-            , Space
-            , Str "neither"
-            , SoftBreak
-            , Str "\"PASS\""
-            , Space
-            , Str "nor"
-            , Space
-            , Str "\"FAIL\""
-            , Space
-            , Str "is"
-            , Space
-            , Str "rendered,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "content-switch-001.xhtml#switch-020"
-        , [ "section" , "otest" ]
-        , []
-        )
-        [ Header
-            4
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
-            , SoftBreak
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "switch-020" ]
-            , SoftBreak
-            , Str "MathML"
-            , Space
-            , Str "Embedding"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "namespace"
-            , Space
-            , Str "is"
-            , Space
-            , Str "recognized"
-            , Space
-            , Str "when"
-            , Space
-            , Str "used"
-            , Space
-            , Str "in"
-            , Space
-            , Str "an"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Code ( "" , [] , [] ) "epub:case" ]
-                ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-xhtml-epub-case"
-                , ""
-                )
-            , Space
-            , Str "element."
-            ]
-        , Para [ Math InlineMath "{2x}{+ y - z}" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "a"
-            , Space
-            , Str "MathML"
-            , Space
-            , Str "equation"
-            , Space
-            , Str "is"
-            , Space
-            , Str "rendered"
-            , Space
-            , Str "before"
-            , Space
-            , Str "this"
-            , Space
-            , Str "paragraph,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "test"
-            , Space
-            , Code ( "" , [] , [] ) "switch-010"
-            , Space
-            , Str "did"
-            , Space
-            , Str "not"
-            , Space
-            , Str "pass,"
-            , Space
-            , Str "this"
-            , Space
-            , Str "test"
-            , Space
-            , Str "should"
-            , Space
-            , Str "be"
-            , Space
-            , Str "marked"
-            , Space
-            , Code ( "" , [] , [] ) "Not Supported"
-            , Str "."
-            ]
-        ]
-    ]
-]
+Pandoc
+  Meta
+    { unMeta =
+        fromList
+          [ ( "author"
+            , MetaList
+                [ MetaInlines [ Str "Ori Idan" ]
+                , MetaInlines [ Str "Matt Garrish" ]
+                , MetaInlines [ Str "Marisa DeMeglio" ]
+                , MetaInlines [ Str "Toshiaki Koike" ]
+                , MetaInlines [ Str "Vincent Gros" ]
+                , MetaInlines [ Str "Markus Gylling" ]
+                ]
+            )
+          , ( "description"
+            , MetaInlines
+                [ Str
+                    "Tests for Content Documents in a reflowable context [UNDER CONSTRUCTION]"
+                ]
+            )
+          , ( "identifier"
+            , MetaInlines
+                [ Str "com.github.epub-testsuite.epub30-test-0100" ]
+            )
+          , ( "language"
+            , MetaList
+                [ MetaInlines [ Str "jp" ] , MetaInlines [ Str "en" ] ]
+            )
+          , ( "title"
+            , MetaInlines
+                [ Str "EPUBTEST 0100 - Reflowable Content Tests" ]
+            )
+          ]
+    }
+  [ Para [ Span ( "front.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "" , [ "section" ] , [] )
+      [ Header
+          1
+          ( "" , [] , [] )
+          [ Str "Reflowable"
+          , Space
+          , Str "EPUB"
+          , Space
+          , Str "3"
+          , Space
+          , Str "Conformance"
+          , Space
+          , Str "Test"
+          , Space
+          , Str "Document:"
+          , Space
+          , Str "0100"
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "Status"
+              , Space
+              , Str "of"
+              , Space
+              , Str "this"
+              , Space
+              , Str "Document"
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "currently"
+              , Space
+              , Str "considered"
+              , Space
+              , Span
+                  ( "" , [ "status" ] , [] )
+                  [ Str "[UNDER" , Space , Str "DEVELOPMENT]" ]
+              , Space
+              , Str "by"
+              , Space
+              , Str "the"
+              , Space
+              , Str "IDPF."
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "part"
+              , Space
+              , Str "of"
+              , Space
+              , Str "version"
+              , Space
+              , Span ( "" , [ "version" ] , [] ) [ Str "X.X" ]
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "EPUB"
+              , Space
+              , Str "3.0"
+              , Space
+              , Str "Compliance"
+              , Space
+              , Str "Test"
+              , Space
+              , Str "Suite"
+              , Space
+              , Str "released"
+              , SoftBreak
+              , Str "on"
+              , Space
+              , RawInline (Format "html") "<time class=\"release\">"
+              , Str "TBD"
+              , RawInline (Format "html") "</time>"
+              , Str "."
+              ]
+          , Para
+              [ Str "Before"
+              , Space
+              , Str "using"
+              , Space
+              , Str "this"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "to"
+              , Space
+              , Str "evaluate"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "systems,"
+              , Space
+              , Str "testers"
+              , Space
+              , Str "are"
+              , Space
+              , Str "strongly"
+              , Space
+              , Str "encouraged"
+              , Space
+              , Str "to"
+              , SoftBreak
+              , Str "verify"
+              , Space
+              , Str "that"
+              , Space
+              , Str "they"
+              , Space
+              , Str "have"
+              , Space
+              , Str "the"
+              , Space
+              , Str "latest"
+              , Space
+              , Str "release"
+              , Space
+              , Str "by"
+              , Space
+              , Str "checking"
+              , Space
+              , Str "the"
+              , Space
+              , Str "current"
+              , Space
+              , Str "release"
+              , Space
+              , Str "version"
+              , Space
+              , Str "and"
+              , Space
+              , Str "date"
+              , Space
+              , Str "of"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , Space
+              , Str "at"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "TBD" ]
+                  ( "http://idpf.org/" , "" )
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "one"
+              , Space
+              , Str "of"
+              , Space
+              , Str "several"
+              , Space
+              , Str "that"
+              , Space
+              , Str "currently"
+              , Space
+              , Str "comprise"
+              , Space
+              , Str "the"
+              , Space
+              , Str "EPUB"
+              , Space
+              , Str "3"
+              , Space
+              , Str "conformance"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , SoftBreak
+              , Str "for"
+              , Space
+              , Str "reflowable"
+              , Space
+              , Str "content."
+              , Space
+              , Str "The"
+              , Space
+              , Str "complete"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , Space
+              , Str "includes"
+              , Space
+              , Str "all"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "following"
+              , Space
+              , Str "publications:"
+              ]
+          , OrderedList
+              ( 1 , DefaultStyle , DefaultDelim )
+              [ [ Plain [ Str "." ] ] ]
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "About"
+              , Space
+              , Str "this"
+              , Space
+              , Str "Document"
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "document"
+              , Space
+              , Str "focuses"
+              , Space
+              , Str "on"
+              , Space
+              , Str "human-evaluated"
+              , Space
+              , Str "binary"
+              , Space
+              , Str "(pass/fail)"
+              , Space
+              , Str "tests"
+              , Space
+              , Str "in"
+              , Space
+              , Str "a"
+              , SoftBreak
+              , Str "reflowable"
+              , Space
+              , Str "context."
+              , Space
+              , Str "Tests"
+              , Space
+              , Str "for"
+              , Space
+              , Str "fixed-layout"
+              , Space
+              , Str "content"
+              , Space
+              , Str "and"
+              , Space
+              , Str "other"
+              , Space
+              , Str "individual"
+              , Space
+              , Str "tests"
+              , Space
+              , Str "that"
+              , SoftBreak
+              , Str "require"
+              , Space
+              , Str "a"
+              , Space
+              , Str "dedicated"
+              , Space
+              , Str "epub"
+              , Space
+              , Str "file"
+              , Space
+              , Str "are"
+              , Space
+              , Str "available"
+              , Space
+              , Str "in"
+              , Space
+              , Str "additional"
+              , Space
+              , Str "sibling"
+              , Space
+              , Str "documents;"
+              , Space
+              , Str "refer"
+              , Space
+              , Str "to"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "test"
+                  , Space
+                  , Str "suite"
+                  , SoftBreak
+                  , Str "wiki"
+                  ]
+                  ( "https://github.com/mgylling/epub-testsuite/wiki/Overview"
+                  , ""
+                  )
+              , Space
+              , Str "("
+              , Code
+                  ( "" , [] , [] )
+                  "https://github.com/mgylling/epub-testsuite/wiki/Overview"
+              , Str ")"
+              , Space
+              , Str "for"
+              , Space
+              , Str "additional"
+              , SoftBreak
+              , Str "information."
+              ]
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Conventions" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "following"
+              , Space
+              , Str "conventions"
+              , Space
+              , Str "are"
+              , Space
+              , Str "used"
+              , Space
+              , Str "throughout"
+              , Space
+              , Str "the"
+              , Space
+              , Str "document:"
+              ]
+          , DefinitionList
+              [ ( [ Str "1."
+                  , Space
+                  , Str "Locating"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Str "test"
+                  ]
+                , [ [ Div
+                        ( "" , [ "ctest" ] , [] )
+                        [ Para
+                            [ Str "Tests"
+                            , Space
+                            , Str "for"
+                            , Space
+                            , Emph [ Str "required" ]
+                            , Space
+                            , Str "Reading"
+                            , Space
+                            , Str "System"
+                            , Space
+                            , Str "functionality"
+                            , Space
+                            , Str "are"
+                            , SoftBreak
+                            , Str "preceded"
+                            , Space
+                            , Str "by"
+                            , Space
+                            , Str "the"
+                            , Space
+                            , Str "label:"
+                            , Space
+                            , Span
+                                ( ""
+                                , [ "nature" ]
+                                , [ ( "style"
+                                    , "display: inline; font-size: 100%"
+                                    )
+                                  ]
+                                )
+                                [ Str "[REQUIRED]" ]
+                            ]
+                        ]
+                    , Div
+                        ( "" , [ "otest" ] , [] )
+                        [ Para
+                            [ Str "Tests"
+                            , Space
+                            , Str "for"
+                            , Space
+                            , Emph [ Str "optional" ]
+                            , Space
+                            , Str "Reading"
+                            , Space
+                            , Str "System"
+                            , Space
+                            , Str "functionality"
+                            , Space
+                            , Str "are"
+                            , SoftBreak
+                            , Str "preceded"
+                            , Space
+                            , Str "by"
+                            , Space
+                            , Str "the"
+                            , Space
+                            , Str "label:"
+                            , Space
+                            , Span
+                                ( ""
+                                , [ "nature" ]
+                                , [ ( "style"
+                                    , "display: inline; font-size: 100%"
+                                    )
+                                  ]
+                                )
+                                [ Str "[OPTIONAL]" ]
+                            ]
+                        ]
+                    ]
+                  ]
+                )
+              , ( [ Str "2."
+                  , Space
+                  , Str "Performing"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  ]
+                , [ [ Plain
+                        [ Str "Each"
+                        , Space
+                        , Str "test"
+                        , Space
+                        , Str "includes"
+                        , Space
+                        , Str "a"
+                        , Space
+                        , Str "description"
+                        , Space
+                        , Str "of"
+                        , Space
+                        , Str "its"
+                        , Space
+                        , Str "purpose"
+                        , Space
+                        , Str "followed"
+                        , Space
+                        , Str "by"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "actual"
+                        , Space
+                        , Strong
+                            [ Str "test"
+                            , Space
+                            , Str "statement,"
+                            , SoftBreak
+                            , Str "which"
+                            , Space
+                            , Str "can"
+                            , Space
+                            , Str "always"
+                            , Space
+                            , Str "be"
+                            , Space
+                            , Str "evaluated"
+                            , Space
+                            , Str "to"
+                            , Space
+                            , Str "true"
+                            , Space
+                            , Str "or"
+                            , Space
+                            , Str "false"
+                            ]
+                        , Str "."
+                        , Space
+                        , Str "These"
+                        , Space
+                        , Str "statements"
+                        , Space
+                        , Str "typically"
+                        , Space
+                        , Str "have"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "form:"
+                        , SoftBreak
+                        , Str "\"If"
+                        , Space
+                        , Str "[some"
+                        , Space
+                        , Str "condition],"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "test"
+                        , Space
+                        , Str "passes\"."
+                        ]
+                    ]
+                  ]
+                )
+              , ( [ Str "3."
+                  , Space
+                  , Str "Scoring"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "results"
+                  , Space
+                  , Str "form"
+                  ]
+                , [ [ Plain
+                        [ Str "@@@TODO"
+                        , Space
+                        , Str "provide"
+                        , Space
+                        , Str "info"
+                        , Space
+                        , Str "on"
+                        , Space
+                        , Str "where"
+                        , Space
+                        , Str "to"
+                        , Space
+                        , Str "get"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "results"
+                        , Space
+                        , Str "form"
+                        ]
+                    ]
+                  ]
+                )
+              ]
+          ]
+      ]
+  , Para [ Span ( "content-mathml-001.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "" , [ "section" ] , [] )
+      [ Header
+          2
+          ( "content-mathml-001.xhtml_mathml" , [] , [] )
+          [ Str "MathML" ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-010"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-010" ]
+              , Space
+              , Str "Rendering"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "equation"
+              , Space
+              , Str "rendering"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ Math
+                  DisplayMath
+                  "\\int_{- \\infty}^{\\infty}e^{- x^{2}}\\, dx = \\sqrt{\\pi}"
+              , SoftBreak
+              , Math
+                  DisplayMath
+                  "\\sum\\limits_{n = 1}^{\\infty}\\frac{1}{n^{2}} = \\frac{\\pi^{2}}{6}"
+              , SoftBreak
+              , Math
+                  DisplayMath
+                  "x = \\frac{- b \\pm \\sqrt{b^{2} - 4ac}}{2a}"
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "equations"
+              , Space
+              , Str "are"
+              , Space
+              , Str "not"
+              , Space
+              , Str "presented"
+              , Space
+              , Str "as"
+              , Space
+              , Str "linear"
+              , Space
+              , Str "text"
+              , Space
+              , Str "(e.g.,"
+              , Space
+              , Str "x=-b\177b2-4ac2a),"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-020"
+          , [ "section" , "otest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-020" ]
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "Styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "math"
+              , Space
+              , Str "element"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "basic"
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "math"
+              , Space
+              , Str "element."
+              ]
+          , Plain [ Math InlineMath "{2x}{+ y - z}" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "equation"
+              , Space
+              , Str "has"
+              , Space
+              , Str "a"
+              , Space
+              , Str "yellow"
+              , Space
+              , Str "background"
+              , Space
+              , Str "and"
+              , Space
+              , Str "a"
+              , Space
+              , Str "dashed"
+              , Space
+              , Str "border."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "system"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "have"
+              , Space
+              , Str "a"
+              , Space
+              , Str "viewport,"
+              , Space
+              , Str "or"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "support"
+              , SoftBreak
+              , Str "CSS"
+              , Space
+              , Str "styles,"
+              , Space
+              , Str "this"
+              , Space
+              , Str "test"
+              , Space
+              , Str "should"
+              , Space
+              , Str "be"
+              , Space
+              , Str "marked"
+              , Space
+              , Code ( "" , [] , [] ) "Not Supported"
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-021"
+          , [ "section" , "otest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-021" ]
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "Styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mo"
+              , Space
+              , Str "element"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "basic"
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mo"
+              , Space
+              , Str "element."
+              ]
+          , Plain [ Math InlineMath "{2x}{+ y - z}" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "operators"
+              , Space
+              , Str "are"
+              , Space
+              , Str "enlarged"
+              , Space
+              , Str "relative"
+              , Space
+              , Str "to"
+              , Space
+              , Str "the"
+              , Space
+              , Str "other"
+              , Space
+              , Str "symbols"
+              , Space
+              , Str "and"
+              , Space
+              , Str "numbers."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "system"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "have"
+              , Space
+              , Str "a"
+              , Space
+              , Str "viewport,"
+              , Space
+              , Str "or"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "support"
+              , SoftBreak
+              , Str "CSS"
+              , Space
+              , Str "styles,"
+              , Space
+              , Str "this"
+              , Space
+              , Str "test"
+              , Space
+              , Str "should"
+              , Space
+              , Str "be"
+              , Space
+              , Str "marked"
+              , Space
+              , Code ( "" , [] , [] ) "Not Supported"
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-022"
+          , [ "section" , "otest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-022" ]
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "Styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mi"
+              , Space
+              , Str "element"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "basic"
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mi"
+              , Space
+              , Str "element."
+              ]
+          , Plain [ Math InlineMath "{2x}{+ y - z}" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "identifiers"
+              , Space
+              , Str "are"
+              , Space
+              , Str "bolded"
+              , Space
+              , Str "and"
+              , Space
+              , Str "blue."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "system"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "have"
+              , Space
+              , Str "a"
+              , Space
+              , Str "viewport,"
+              , Space
+              , Str "or"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "support"
+              , SoftBreak
+              , Str "CSS"
+              , Space
+              , Str "styles,"
+              , Space
+              , Str "this"
+              , Space
+              , Str "test"
+              , Space
+              , Str "should"
+              , Space
+              , Str "be"
+              , Space
+              , Str "marked"
+              , Space
+              , Code ( "" , [] , [] ) "Not Supported"
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-023"
+          , [ "section" , "otest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-023" ]
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "Styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mn"
+              , Space
+              , Str "element"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "basic"
+              , Space
+              , Str "CSS"
+              , Space
+              , Str "styling"
+              , Space
+              , Str "of"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "mn"
+              , Space
+              , Str "element."
+              ]
+          , Plain [ Math InlineMath "{2x}{+ y - z}" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "number"
+              , Space
+              , Str "2"
+              , Space
+              , Str "is"
+              , Space
+              , Str "italicized"
+              , Space
+              , Str "and"
+              , Space
+              , Str "blue."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "system"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "have"
+              , Space
+              , Str "a"
+              , Space
+              , Str "viewport,"
+              , Space
+              , Str "or"
+              , Space
+              , Str "does"
+              , Space
+              , Str "not"
+              , Space
+              , Str "support"
+              , SoftBreak
+              , Str "CSS"
+              , Space
+              , Str "styles,"
+              , Space
+              , Str "this"
+              , Space
+              , Str "test"
+              , Space
+              , Str "should"
+              , Space
+              , Str "be"
+              , Space
+              , Str "marked"
+              , Space
+              , Code ( "" , [] , [] ) "Not Supported"
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-024"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-024" ]
+              , Str "Horizontal"
+              , Space
+              , Str "stretch,"
+              , Space
+              , Code ( "" , [] , [] ) "mover"
+              , Str ","
+              , Space
+              , Code ( "" , [] , [] ) "munder"
+              , Str ","
+              , Space
+              , Str "and"
+              , Space
+              , Code ( "" , [] , [] ) "mspace"
+              , Space
+              , Str "elements"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "horizontal"
+              , Space
+              , Str "stretch,"
+              , Space
+              , Code ( "" , [] , [] ) "mover"
+              , Str ","
+              , Space
+              , Code ( "" , [] , [] ) "munder"
+              , Str ","
+              , Space
+              , Code ( "" , [] , [] ) "mspace"
+              , Space
+              , Str "elements"
+              , Space
+              , Str "are"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ Math
+                  DisplayMath
+                  "c = \\overset{\\text{complex number}}{\\overbrace{\\underset{\\text{real}}{\\underbrace{\\mspace{20mu} a\\mspace{20mu}}} + \\underset{\\text{imaginary}}{\\underbrace{\\quad b{\\mathbb{i}}\\quad}}}}"
+              ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "rendering"
+              , Space
+              , Str "looks"
+              , Space
+              , Str "like"
+              , Space
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-025"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-025" ]
+              , Str "Testing"
+              , Space
+              , Code ( "" , [] , [] ) "mtable"
+              , Space
+              , Str "with"
+              , Space
+              , Code ( "" , [] , [] ) "colspan"
+              , Space
+              , Str "and"
+              , Space
+              , Code ( "" , [] , [] ) "rowspan"
+              , Space
+              , Str "attributes,"
+              , Space
+              , Str "Hebrew"
+              , Space
+              , Str "and"
+              , Space
+              , Str "Script"
+              , Space
+              , Str "fonts"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Code ( "" , [] , [] ) "mtable"
+              , Space
+              , Str "with"
+              , Space
+              , Code ( "" , [] , [] ) "colspan"
+              , Space
+              , Str "and"
+              , Space
+              , Code ( "" , [] , [] ) "mspace"
+              , Space
+              , Str "attributes"
+              , Space
+              , Str "(column"
+              , Space
+              , Str "and"
+              , Space
+              , Str "row"
+              , Space
+              , Str "spanning)"
+              , Space
+              , Str "are"
+              , Space
+              , Str "supported;"
+              , Space
+              , Str "uses"
+              , Space
+              , Str "Hebrew"
+              , Space
+              , Str "and"
+              , Space
+              , Str "Script"
+              , Space
+              , Str "alphabets."
+              ]
+          , Plain
+              [ Math
+                  DisplayMath
+                  "\\begin{matrix}\n & {\\operatorname{cov}(\\mathcal{L})} & \\longrightarrow & {\\operatorname{non}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cof}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cof}(\\mathcal{L})} & \\longrightarrow & 2^{\\aleph_{0}} \\\\\n & \\uparrow & & \\uparrow & & \\uparrow & & \\uparrow & & \\\\\n & {\\mathfrak{b}} & \\longrightarrow & {\\mathfrak{d}} & & & & & & \\\\\n & \\uparrow & & \\uparrow & & & & & & \\\\\n\\aleph_{1} & \\longrightarrow & {\\operatorname{add}(\\mathcal{L})} & \\longrightarrow & {\\operatorname{add}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{cov}(\\mathcal{K})} & \\longrightarrow & {\\operatorname{non}(\\mathcal{L})} & \n\\end{matrix}"
+              ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "rendering"
+              , Space
+              , Str "looks"
+              , Space
+              , Str "like"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "Cicho\324's" , Space , Str "Diagram" ]
+                  ( "http://en.wikipedia.org/wiki/Cicho%C5%84's_diagram"
+                  , ""
+                  )
+              , Str ":"
+              , Space
+              , Str "."
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-026"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-026" ]
+              , Str "BiDi,"
+              , Space
+              , Str "RTL"
+              , Space
+              , Str "and"
+              , Space
+              , Str "Arabic"
+              , Space
+              , Str "alphabets"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "right-to-left"
+              , Space
+              , Str "and"
+              , Space
+              , Str "Arabic"
+              , Space
+              , Str "alphabets"
+              , Space
+              , Str "are"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ Math
+                  DisplayMath
+                  "{\1583(\1587)} = \\left\\{ \\begin{matrix}\n{\\sum\\limits_{\1646 = 1}^{\1589}\1587^{\1646}} & {\\text{\1573\1584\1575\1603\1575\1606}\1587 > 0} \\\\\n{\\int_{1}^{\1589}{\1587^{\1646}\1569\1587}} & {\\text{\1573\1584\1575\1603\1575\1606}\1587 \\in \1605} \\\\\n{{\1591\1575}\\pi} & {\\text{\1594\1610\1585\1584\1604\1603}\\left( \\text{\1605\1593}\\pi \\simeq 3,141 \\right)}\n\\end{matrix} \\right."
+              ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "rendering"
+              , Space
+              , Str "looks"
+              , Space
+              , Str "like"
+              , Space
+              , Str "the"
+              , Space
+              , Str "following"
+              , Space
+              , Str "image:"
+              ]
+          ]
+      , Div
+          ( "content-mathml-001.xhtml_mathml-027"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "mathml-027" ]
+              , Str "Elementary"
+              , Space
+              , Str "math:"
+              , Space
+              , Str "long"
+              , Space
+              , Str "division"
+              , Space
+              , Str "notation"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Code ( "" , [] , [] ) "mlongdiv"
+              , Space
+              , Str "elements"
+              , Space
+              , Str "(from"
+              , Space
+              , Str "elementary"
+              , Space
+              , Str "math)"
+              , Space
+              , Str "are"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ Span
+                  ( ""
+                  , [ "math" ]
+                  , [ ( "xmlns" , "http://www.w3.org/1998/Math/MathML" )
+                    ]
+                  )
+                  [ SoftBreak
+                  , Str "3"
+                  , SoftBreak
+                  , Str "435.3"
+                  , SoftBreak
+                  , Str "1306"
+                  , SoftBreak
+                  , Str "12"
+                  , SoftBreak
+                  , Str "10"
+                  , SoftBreak
+                  , Str "9"
+                  , SoftBreak
+                  , Str "16"
+                  , SoftBreak
+                  , Str "15"
+                  , SoftBreak
+                  , Str "1.0"
+                  , SoftBreak
+                  , Str "9"
+                  , SoftBreak
+                  , Str "1"
+                  , SoftBreak
+                  ]
+              ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes"
+              , Space
+              , Str "if"
+              , Space
+              , Str "the"
+              , Space
+              , Str "rendering"
+              , Space
+              , Str "looks"
+              , Space
+              , Str "like"
+              , Space
+              , Str "the"
+              , Space
+              , Str "following"
+              , Space
+              , Str "image:"
+              , Space
+              , Str "."
+              ]
+          ]
+      ]
+  , Para [ Span ( "content-switch-001.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "content-switch-001.xhtml_epub-switch"
+      , [ "section" ]
+      , []
+      )
+      [ Header
+          3 ( "" , [] , [] ) [ Code ( "" , [] , [] ) "epub:switch" ]
+      , Div
+          ( "content-switch-001.xhtml_switch-010"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              4
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "switch-010" ]
+              , Space
+              , Str "Support"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Code ( "" , [] , [] ) "epub:switch" ]
+                  ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-xhtml-content-switch"
+                  , ""
+                  )
+              , Space
+              , Str "element"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "PASS" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "only"
+              , Space
+              , Str "the"
+              , Space
+              , Str "word"
+              , Space
+              , Str "\"PASS\""
+              , Space
+              , Str "is"
+              , Space
+              , Str "rendered"
+              , Space
+              , Str "before"
+              , Space
+              , Str "this"
+              , Space
+              , Str "paragraph,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              , Space
+              , Str "If"
+              , Space
+              , Str "both"
+              , Space
+              , Str "\"PASS\""
+              , Space
+              , Str "and"
+              , Space
+              , Str "\"FAIL\""
+              , Space
+              , Str "are"
+              , Space
+              , Str "rendered,"
+              , Space
+              , Str "or"
+              , Space
+              , Str "neither"
+              , SoftBreak
+              , Str "\"PASS\""
+              , Space
+              , Str "nor"
+              , Space
+              , Str "\"FAIL\""
+              , Space
+              , Str "is"
+              , Space
+              , Str "rendered,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "content-switch-001.xhtml_switch-020"
+          , [ "section" , "otest" ]
+          , []
+          )
+          [ Header
+              4
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[OPTIONAL]" ]
+              , SoftBreak
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "switch-020" ]
+              , SoftBreak
+              , Str "MathML"
+              , Space
+              , Str "Embedding"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "namespace"
+              , Space
+              , Str "is"
+              , Space
+              , Str "recognized"
+              , Space
+              , Str "when"
+              , Space
+              , Str "used"
+              , Space
+              , Str "in"
+              , Space
+              , Str "an"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Code ( "" , [] , [] ) "epub:case" ]
+                  ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-xhtml-epub-case"
+                  , ""
+                  )
+              , Space
+              , Str "element."
+              ]
+          , Para [ Math InlineMath "{2x}{+ y - z}" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "a"
+              , Space
+              , Str "MathML"
+              , Space
+              , Str "equation"
+              , Space
+              , Str "is"
+              , Space
+              , Str "rendered"
+              , Space
+              , Str "before"
+              , Space
+              , Str "this"
+              , Space
+              , Str "paragraph,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "test"
+              , Space
+              , Code ( "" , [] , [] ) "switch-010"
+              , Space
+              , Str "did"
+              , Space
+              , Str "not"
+              , Space
+              , Str "pass,"
+              , Space
+              , Str "this"
+              , Space
+              , Str "test"
+              , Space
+              , Str "should"
+              , Space
+              , Str "be"
+              , Space
+              , Str "marked"
+              , Space
+              , Code ( "" , [] , [] ) "Not Supported"
+              , Str "."
+              ]
+          ]
+      ]
+  ]
diff --git a/test/epub/formatting.native b/test/epub/formatting.native
--- a/test/epub/formatting.native
+++ b/test/epub/formatting.native
@@ -1,5989 +1,6020 @@
-[ Para [ Span ( "front.xhtml" , [] , [] ) [] ]
-, Div
-    ( "" , [ "section" ] , [] )
-    [ Header
-        1
-        ( "" , [] , [] )
-        [ Str "EPUB"
-        , Space
-        , Str "3"
-        , Space
-        , Str "Styling"
-        , Space
-        , Str "Test"
-        , Space
-        , Str "Document:"
-        , Space
-        , Str "0101"
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "Status"
-            , Space
-            , Str "of"
-            , Space
-            , Str "this"
-            , Space
-            , Str "Document"
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "currently"
-            , Space
-            , Str "considered"
-            , Space
-            , Span
-                ( "" , [ "status" ] , [] )
-                [ Str "[UNDER" , Space , Str "DEVELOPMENT]" ]
-            , Space
-            , Str "by"
-            , Space
-            , Str "the"
-            , Space
-            , Str "IDPF."
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "part"
-            , Space
-            , Str "of"
-            , Space
-            , Str "version"
-            , Space
-            , Span ( "" , [ "version" ] , [] ) [ Str "X.X" ]
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "EPUB"
-            , Space
-            , Str "3.0"
-            , Space
-            , Str "Compliance"
-            , Space
-            , Str "Test"
-            , Space
-            , Str "Suite"
-            , Space
-            , Str "released"
-            , SoftBreak
-            , Str "on"
-            , Space
-            , RawInline (Format "html") "<time class=\"release\">"
-            , Str "TBD"
-            , RawInline (Format "html") "</time>"
-            , Str "."
-            ]
-        , Para
-            [ Str "Before"
-            , Space
-            , Str "using"
-            , Space
-            , Str "this"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "to"
-            , Space
-            , Str "evaluate"
-            , Space
-            , Str "reading"
-            , Space
-            , Str "systems,"
-            , Space
-            , Str "testers"
-            , Space
-            , Str "are"
-            , Space
-            , Str "strongly"
-            , Space
-            , Str "encouraged"
-            , Space
-            , Str "to"
-            , SoftBreak
-            , Str "verify"
-            , Space
-            , Str "that"
-            , Space
-            , Str "they"
-            , Space
-            , Str "have"
-            , Space
-            , Str "the"
-            , Space
-            , Str "latest"
-            , Space
-            , Str "release"
-            , Space
-            , Str "by"
-            , Space
-            , Str "checking"
-            , Space
-            , Str "the"
-            , Space
-            , Str "current"
-            , Space
-            , Str "release"
-            , Space
-            , Str "version"
-            , Space
-            , Str "and"
-            , Space
-            , Str "date"
-            , Space
-            , Str "of"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , Space
-            , Str "at"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "TBD" ]
-                ( "http://idpf.org/" , "" )
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "publication"
-            , Space
-            , Str "is"
-            , Space
-            , Str "one"
-            , Space
-            , Str "of"
-            , Space
-            , Str "several"
-            , Space
-            , Str "that"
-            , Space
-            , Str "currently"
-            , Space
-            , Str "comprise"
-            , Space
-            , Str "the"
-            , Space
-            , Str "EPUB"
-            , Space
-            , Str "3"
-            , Space
-            , Str "conformance"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , SoftBreak
-            , Str "for"
-            , Space
-            , Str "reflowable"
-            , Space
-            , Str "content."
-            , Space
-            , Str "The"
-            , Space
-            , Str "complete"
-            , Space
-            , Str "test"
-            , Space
-            , Str "suite"
-            , Space
-            , Str "includes"
-            , Space
-            , Str "all"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "following"
-            , Space
-            , Str "publications:"
-            ]
-        , OrderedList
-            ( 1 , DefaultStyle , DefaultDelim )
-            [ [ Plain [ Str "." ] ] ]
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "About"
-            , Space
-            , Str "this"
-            , Space
-            , Str "Document"
-            ]
-        , Para
-            [ Str "This"
-            , Space
-            , Str "document"
-            , Space
-            , Str "focuses"
-            , Space
-            , Str "on"
-            , Space
-            , Str "human-evaluated"
-            , Space
-            , Str "binary"
-            , Space
-            , Str "(pass/fail)"
-            , Space
-            , Str "tests"
-            , Space
-            , Str "in"
-            , Space
-            , Str "a"
-            , SoftBreak
-            , Str "reflowable"
-            , Space
-            , Str "context."
-            , Space
-            , Str "Tests"
-            , Space
-            , Str "for"
-            , Space
-            , Str "fixed-layout"
-            , Space
-            , Str "content"
-            , Space
-            , Str "and"
-            , Space
-            , Str "other"
-            , Space
-            , Str "individual"
-            , Space
-            , Str "tests"
-            , Space
-            , Str "that"
-            , SoftBreak
-            , Str "require"
-            , Space
-            , Str "a"
-            , Space
-            , Str "dedicated"
-            , Space
-            , Str "epub"
-            , Space
-            , Str "file"
-            , Space
-            , Str "are"
-            , Space
-            , Str "available"
-            , Space
-            , Str "in"
-            , Space
-            , Str "additional"
-            , Space
-            , Str "sibling"
-            , Space
-            , Str "documents;"
-            , Space
-            , Str "refer"
-            , Space
-            , Str "to"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "test"
-                , Space
-                , Str "suite"
-                , SoftBreak
-                , Str "wiki"
-                ]
-                ( "https://github.com/mgylling/epub-testsuite/wiki/Overview"
-                , ""
-                )
-            , Space
-            , Str "("
-            , Code
-                ( "" , [] , [] )
-                "https://github.com/mgylling/epub-testsuite/wiki/Overview"
-            , Str ")"
-            , Space
-            , Str "for"
-            , Space
-            , Str "additional"
-            , SoftBreak
-            , Str "information."
-            ]
-        ]
-    , Div
-        ( "" , [ "section" ] , [] )
-        [ Header 2 ( "" , [] , [] ) [ Str "Conventions" ]
-        , Para
-            [ Str "The"
-            , Space
-            , Str "following"
-            , Space
-            , Str "conventions"
-            , Space
-            , Str "are"
-            , Space
-            , Str "used"
-            , Space
-            , Str "throughout"
-            , Space
-            , Str "the"
-            , Space
-            , Str "document:"
-            ]
-        , DefinitionList
-            [ ( [ Str "1."
-                , Space
-                , Str "Locating"
-                , Space
-                , Str "a"
-                , Space
-                , Str "test"
-                ]
-              , [ [ Div
-                      ( "" , [ "ctest" ] , [] )
-                      [ Para
-                          [ Str "Tests"
-                          , Space
-                          , Str "for"
-                          , Space
-                          , Emph [ Str "required" ]
-                          , Space
-                          , Str "Reading"
-                          , Space
-                          , Str "System"
-                          , Space
-                          , Str "functionality"
-                          , Space
-                          , Str "are"
-                          , SoftBreak
-                          , Str "preceded"
-                          , Space
-                          , Str "by"
-                          , Space
-                          , Str "the"
-                          , Space
-                          , Str "label:"
-                          , Space
-                          , Span
-                              ( ""
-                              , [ "nature" ]
-                              , [ ( "style"
-                                  , "display: inline; font-size: 100%"
-                                  )
-                                ]
-                              )
-                              [ Str "[REQUIRED]" ]
-                          ]
-                      ]
-                  , Div
-                      ( "" , [ "otest" ] , [] )
-                      [ Para
-                          [ Str "Tests"
-                          , Space
-                          , Str "for"
-                          , Space
-                          , Emph [ Str "optional" ]
-                          , Space
-                          , Str "Reading"
-                          , Space
-                          , Str "System"
-                          , Space
-                          , Str "functionality"
-                          , Space
-                          , Str "are"
-                          , SoftBreak
-                          , Str "preceded"
-                          , Space
-                          , Str "by"
-                          , Space
-                          , Str "the"
-                          , Space
-                          , Str "label:"
-                          , Space
-                          , Span
-                              ( ""
-                              , [ "nature" ]
-                              , [ ( "style"
-                                  , "display: inline; font-size: 100%"
-                                  )
-                                ]
-                              )
-                              [ Str "[OPTIONAL]" ]
-                          ]
-                      ]
-                  ]
-                ]
-              )
-            , ( [ Str "2."
-                , Space
-                , Str "Performing"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                ]
-              , [ [ Plain
-                      [ Str "Each"
-                      , Space
-                      , Str "test"
-                      , Space
-                      , Str "includes"
-                      , Space
-                      , Str "a"
-                      , Space
-                      , Str "description"
-                      , Space
-                      , Str "of"
-                      , Space
-                      , Str "its"
-                      , Space
-                      , Str "purpose"
-                      , Space
-                      , Str "followed"
-                      , Space
-                      , Str "by"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "actual"
-                      , Space
-                      , Strong
-                          [ Str "test"
-                          , Space
-                          , Str "statement,"
-                          , SoftBreak
-                          , Str "which"
-                          , Space
-                          , Str "can"
-                          , Space
-                          , Str "always"
-                          , Space
-                          , Str "be"
-                          , Space
-                          , Str "evaluated"
-                          , Space
-                          , Str "to"
-                          , Space
-                          , Str "true"
-                          , Space
-                          , Str "or"
-                          , Space
-                          , Str "false"
-                          ]
-                      , Str "."
-                      , Space
-                      , Str "These"
-                      , Space
-                      , Str "statements"
-                      , Space
-                      , Str "typically"
-                      , Space
-                      , Str "have"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "form:"
-                      , SoftBreak
-                      , Str "\"If"
-                      , Space
-                      , Str "[some"
-                      , Space
-                      , Str "condition],"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "test"
-                      , Space
-                      , Str "passes\"."
-                      ]
-                  ]
-                ]
-              )
-            , ( [ Str "3."
-                , Space
-                , Str "Scoring"
-                , Space
-                , Str "in"
-                , Space
-                , Str "the"
-                , Space
-                , Str "results"
-                , Space
-                , Str "form"
-                ]
-              , [ [ Plain
-                      [ Str "@@@TODO"
-                      , Space
-                      , Str "provide"
-                      , Space
-                      , Str "info"
-                      , Space
-                      , Str "on"
-                      , Space
-                      , Str "where"
-                      , Space
-                      , Str "to"
-                      , Space
-                      , Str "get"
-                      , Space
-                      , Str "the"
-                      , Space
-                      , Str "results"
-                      , Space
-                      , Str "form"
-                      ]
-                  ]
-                ]
-              )
-            ]
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-001.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-001.xhtml#epub-css" , [ "section" ] , [] )
-    [ Header
-        1
-        ( "" , [] , [] )
-        [ Str "EPUB" , Space , Str "Style" , Space , Str "Sheets" ]
-    , Para
-        [ Str "This"
-        , Space
-        , Str "section"
-        , Space
-        , Str "contains"
-        , Space
-        , Str "tests"
-        , Space
-        , Str "for"
-        , Space
-        , Str "styling"
-        , Space
-        , Str "and"
-        , Space
-        , Str "layout."
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-003.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-003.xhtml#style-110"
-    , [ "section" , "ctest" ]
-    , []
-    )
-    [ Header
-        2
-        ( "" , [] , [] )
-        [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-        , Space
-        , Span ( "" , [ "test-id" ] , [] ) [ Str "style-110" ]
-        , Space
-        , Str "Multi-Column"
-        , Space
-        , Str "Layouts"
-        ]
-    , Para
-        [ Str "Tests"
-        , Space
-        , Str "whether"
-        , Space
-        , Str "the"
-        , Space
-        , Link
-            ( "" , [] , [] )
-            [ Code ( "" , [] , [] ) "CSS Multi-Column Layout" ]
-            ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-css-multi-column"
-            , ""
-            )
-        , Space
-        , Str "properties"
-        , Space
-        , Str "are"
-        , Space
-        , Str "supported."
-        ]
-    , Div
-        ( "" , [ "multicol" ] , [] )
-        [ Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        ]
-    , Para
-        [ Str "If"
-        , Space
-        , Str "the"
-        , Space
-        , Str "preceding"
-        , Space
-        , Str "text"
-        , Space
-        , Str "is"
-        , Space
-        , Str "rendered"
-        , Space
-        , Str "in"
-        , Space
-        , Str "three"
-        , Space
-        , Str "columns,"
-        , Space
-        , Str "the"
-        , Space
-        , Str "test"
-        , Space
-        , Str "passes."
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-002.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-002.xhtml#style-lists"
-    , [ "section" ]
-    , []
-    )
-    [ Header 2 ( "" , [] , [] ) [ Str "Lists" ]
-    , Div
-        ( "styling-xhtml-002.xhtml#style-list-style-type"
-        , [ "section" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Str "The"
-            , Space
-            , Code ( "" , [] , [] ) "list-style-type"
-            , Space
-            , Str "property"
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-009"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-009" ]
-                , Space
-                , Code ( "" , [] , [] ) "decimal"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "decimal"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "decimal"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-010"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-010" ]
-                , Space
-                , Code ( "" , [] , [] ) "circle"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "circle"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "circle"
-                , Space
-                , Str "markers,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-011"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-011" ]
-                , Space
-                , Code ( "" , [] , [] ) "square"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "square"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "square"
-                , Space
-                , Str "markers,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-012"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-012" ]
-                , Space
-                , Code ( "" , [] , [] ) "disc"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "disc"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "disc"
-                , Space
-                , Str "markers,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-013"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-013" ]
-                , Space
-                , Code ( "" , [] , [] ) "lower-latin"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "lower-latin"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "lower-latin"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-014"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-014" ]
-                , Space
-                , Code ( "" , [] , [] ) "lower-roman"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "lower-roman"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "lower-roman"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-015"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-015" ]
-                , Space
-                , Code ( "" , [] , [] ) "upper-alpha"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "upper-alpha"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "upper-alpha"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-016"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-016" ]
-                , Space
-                , Code ( "" , [] , [] ) "hiragana"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "hiragana"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "hiragana"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-017"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-017" ]
-                , Space
-                , Code ( "" , [] , [] ) "hiragana-iroha"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "hiragana-iroha"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "hiragana-iroha"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-018"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-018" ]
-                , Space
-                , Code ( "" , [] , [] ) "katakana"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "katakana"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "katakana"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-019"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-019" ]
-                , Space
-                , Code ( "" , [] , [] ) "katakana-iroha"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "katakana-iroha"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "katakana-iroha"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-020"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-020" ]
-                , Space
-                , Code ( "" , [] , [] ) "upper-roman"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "upper-roman"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "upper-roman"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-021"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-021" ]
-                , Space
-                , Code ( "" , [] , [] ) "upper-latin"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "upper-latin"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "upper-latin"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-022"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-022" ]
-                , Space
-                , Code ( "" , [] , [] ) "lower-alpha"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "lower-alpha"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "lower-alpha"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-023"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-023" ]
-                , Space
-                , Code ( "" , [] , [] ) "lower-greek"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "lower-greek"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "lower-greek"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-024"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-024" ]
-                , Space
-                , Code ( "" , [] , [] ) "armenian"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "armenian"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "armenian"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-025"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-025" ]
-                , Space
-                , Code ( "" , [] , [] ) "cjk-ideographic"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "cjk-ideographic"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "cjk-ideographic"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-026"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-026" ]
-                , Space
-                , Code ( "" , [] , [] ) "decimal-leading-zero"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "decimal-leading-zero"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "decimal-leading-zero"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-027"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-027" ]
-                , Space
-                , Code ( "" , [] , [] ) "georgian"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "georgian"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "georgian"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-028"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-028" ]
-                , Space
-                , Code ( "" , [] , [] ) "hebrew"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "hebrew"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "hebrew"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "in"
-                , Space
-                , Str "ascending"
-                , Space
-                , Str "order,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-029"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-029" ]
-                , Space
-                , Code ( "" , [] , [] ) "none"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "none"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element."
-                ]
-            , OrderedList
-                ( 1 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "no"
-                , Space
-                , Str "markers,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-002.xhtml#style-list-style"
-        , [ "section" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Str "The"
-            , Space
-            , Code ( "" , [] , [] ) "list-style"
-            , Space
-            , Str "property"
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-030"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-030" ]
-                , Space
-                , Str "images"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style"
-                , Space
-                , Str "shorthand"
-                , Space
-                , Str "property"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "using"
-                , Space
-                , Str "a"
-                , Space
-                , Str "gif"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "the"
-                , Space
-                , Str "purple"
-                , Space
-                , Str "and"
-                , Space
-                , Str "aqua"
-                , Space
-                , Str "square"
-                , Space
-                , Str "bullet"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-002.xhtml#style-list-style-position"
-        , [ "section" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Str "The"
-            , Space
-            , Code ( "" , [] , [] ) "list-style-position"
-            , Space
-            , Str "property"
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-040"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-040" ]
-                , Space
-                , Str "The"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-position"
-                , Space
-                , Str "property:"
-                , Space
-                , Code ( "" , [] , [] ) "inside"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-position"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "inside"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                , [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                , [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "markers"
-                , Space
-                , Str "inside"
-                , Space
-                , Str "the"
-                , Space
-                , Str "indentation,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-041"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-041" ]
-                , Space
-                , Str "The"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-position"
-                , Space
-                , Str "property:"
-                , Space
-                , Code ( "" , [] , [] ) "outside"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-position"
-                , Space
-                , Str "property"
-                , Space
-                , Str "set"
-                , Space
-                , Str "to"
-                , Space
-                , Code ( "" , [] , [] ) "outside"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ul"
-                , Space
-                , Str "element."
-                ]
-            , BulletList
-                [ [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                , [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                , [ Plain
-                      [ Str "Lorem"
-                      , Space
-                      , Str "ipsum"
-                      , Space
-                      , Str "dolor"
-                      , Space
-                      , Str "sit"
-                      , Space
-                      , Str "amet,"
-                      , Space
-                      , Str "consectetur"
-                      , Space
-                      , Str "adipisicing"
-                      , Space
-                      , Str "elit,"
-                      , Space
-                      , Str "sed"
-                      , Space
-                      , Str "do"
-                      , Space
-                      , Str "eiusmod"
-                      , Space
-                      , Str "tempor"
-                      , Space
-                      , Str "incididunt"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "labore"
-                      , Space
-                      , Str "et"
-                      , Space
-                      , Str "dolore"
-                      , Space
-                      , Str "magna"
-                      , Space
-                      , Str "aliqua."
-                      , Space
-                      , Str "Ut"
-                      , Space
-                      , Str "enim"
-                      , Space
-                      , Str "ad"
-                      , Space
-                      , Str "minim"
-                      , Space
-                      , Str "veniam,"
-                      , Space
-                      , Str "quis"
-                      , Space
-                      , Str "nostrud"
-                      , Space
-                      , Str "exercitation"
-                      , Space
-                      , Str "ullamco"
-                      , Space
-                      , Str "laboris"
-                      , Space
-                      , Str "nisi"
-                      , Space
-                      , Str "ut"
-                      , Space
-                      , Str "aliquip"
-                      , Space
-                      , Str "ex"
-                      , Space
-                      , Str "ea"
-                      , Space
-                      , Str "commodo"
-                      , Space
-                      , Str "consequat."
-                      ]
-                  ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "has"
-                , Space
-                , Str "the"
-                , Space
-                , Str "default"
-                , Space
-                , Str "setting"
-                , Space
-                , Str "(marker"
-                , Space
-                , Str "outside"
-                , Space
-                , Str "the"
-                , Space
-                , Str "indentation),"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-002.xhtml#style-list-start"
-        , [ "section" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Str "The"
-            , Space
-            , Str "HTML"
-            , Space
-            , Code ( "" , [] , [] ) "start"
-            , Space
-            , Str "attribute"
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-050"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-050" ]
-                , Space
-                , Str "Without"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "set"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "start"
-                , Space
-                , Str "attribute"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element"
-                , Space
-                , Str "with"
-                , Space
-                , Str "no"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property."
-                ]
-            , OrderedList
-                ( 25 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "starts"
-                , Space
-                , Str "at"
-                , Space
-                , Str "25,"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        , Div
-            ( "styling-xhtml-002.xhtml#style-051"
-            , [ "section" , "ctest" ]
-            , []
-            )
-            [ Header
-                4
-                ( "" , [] , [] )
-                [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-                , Space
-                , Span ( "" , [ "test-id" ] , [] ) [ Str "style-051" ]
-                , Space
-                , Str "With"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "set"
-                ]
-            , Para
-                [ Str "Tests"
-                , Space
-                , Str "whether"
-                , Space
-                , Str "the"
-                , Space
-                , Code ( "" , [] , [] ) "start"
-                , Space
-                , Str "attribute"
-                , Space
-                , Str "is"
-                , Space
-                , Str "supported"
-                , Space
-                , Str "on"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "ol"
-                , Space
-                , Str "element"
-                , Space
-                , Str "with"
-                , Space
-                , Str "a"
-                , Space
-                , Code ( "" , [] , [] ) "list-style-type"
-                , Space
-                , Str "property."
-                ]
-            , OrderedList
-                ( 50 , DefaultStyle , DefaultDelim )
-                [ [ Plain [ Str "Lorem" ] ]
-                , [ Plain [ Str "Ipsum" ] ]
-                , [ Plain [ Str "Dolor" ] ]
-                , [ Plain [ Str "Sit" ] ]
-                , [ Plain [ Str "Amet" ] ]
-                ]
-            , Para
-                [ Str "If"
-                , Space
-                , Str "the"
-                , Space
-                , Str "preceding"
-                , Space
-                , Str "list"
-                , Space
-                , Str "starts"
-                , Space
-                , Str "at"
-                , Space
-                , Str "'L'"
-                , Space
-                , Str "(50),"
-                , Space
-                , Str "the"
-                , Space
-                , Str "test"
-                , Space
-                , Str "passes."
-                ]
-            ]
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-004.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-004.xhtml#style-media-rules"
-    , [ "section" ]
-    , []
-    )
-    [ Header
-        2
-        ( "" , [] , [] )
-        [ Code ( "" , [] , [] ) "@media" , Space , Str "Rules" ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-210"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-210" ]
-            , Space
-            , Code ( "" , [] , [] ) "all"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "all"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-211"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-211" ]
-            , Space
-            , Code ( "" , [] , [] ) "screen"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "screen"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-212"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-212" ]
-            , Space
-            , Code ( "" , [] , [] ) "handheld"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "handheld"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-213"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-213" ]
-            , Space
-            , Code ( "" , [] , [] ) "tv"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "tv"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-220"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-220" ]
-            , Space
-            , Code ( "" , [] , [] ) "orientation:landscape"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "orientation:landscape"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\""
-            , Space
-            , Str "when"
-            , Space
-            , Str "the"
-            , Space
-            , Str "device"
-            , Space
-            , Str "is"
-            , Space
-            , Str "held"
-            , Space
-            , Str "in"
-            , Space
-            , Str "landscape"
-            , Space
-            , Str "mode,"
-            , Space
-            , Str "and"
-            , Space
-            , Str "the"
-            , Space
-            , Str "device"
-            , Space
-            , Str "supports"
-            , Space
-            , Str "multiple"
-            , Space
-            , Str "orientations,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-221"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-221" ]
-            , Space
-            , Code ( "" , [] , [] ) "orientation:portrait"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "orientation:portrait"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\""
-            , Space
-            , Str "when"
-            , Space
-            , Str "the"
-            , Space
-            , Str "device"
-            , Space
-            , Str "is"
-            , Space
-            , Str "held"
-            , Space
-            , Str "in"
-            , Space
-            , Str "portrait"
-            , Space
-            , Str "mode,"
-            , Space
-            , Str "and"
-            , Space
-            , Str "the"
-            , Space
-            , Str "device"
-            , Space
-            , Str "supports"
-            , Space
-            , Str "multiple"
-            , Space
-            , Str "orientations,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-230"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-230" ]
-            , Space
-            , Code ( "" , [] , [] ) "min-width"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "min-width:200px"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-231"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-231" ]
-            , Space
-            , Code ( "" , [] , [] ) "max-width"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "max-width:2000px"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-240"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-240" ]
-            , Space
-            , Code ( "" , [] , [] ) "min-device-width"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "min-device-width:200px"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-004.xhtml#style-241"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            3
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-241" ]
-            , Space
-            , Code ( "" , [] , [] ) "max-device-width"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "@media"
-            , Space
-            , Str "rule"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Code ( "" , [] , [] ) "max-device-width:2000px"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para [ Str "FAIL" ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "reads"
-            , Space
-            , Str "\"FAIL\","
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "fails."
-            ]
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-005.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-005.xhtml#style-text-xform"
-    , [ "section" ]
-    , []
-    )
-    [ Header
-        2
-        ( "" , [] , [] )
-        [ Str "The"
-        , Space
-        , Code ( "" , [] , [] ) "text-transform"
-        , Space
-        , Str "property"
-        ]
-    , Div
-        ( "styling-xhtml-005.xhtml#style-310"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-310" ]
-            , Space
-            , Code ( "" , [] , [] ) "uppercase"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "text-transform"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "uppercase"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "is"
-            , Space
-            , Str "in"
-            , Space
-            , Str "upper"
-            , Space
-            , Str "case,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-005.xhtml#style-311"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-311" ]
-            , Space
-            , Code ( "" , [] , [] ) "capitalize"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "text-transform"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "capitalize"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "each"
-            , Space
-            , Str "first"
-            , Space
-            , Str "letter"
-            , Space
-            , Str "of"
-            , Space
-            , Str "each"
-            , Space
-            , Str "word"
-            , Space
-            , Str "in"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "is"
-            , Space
-            , Str "in"
-            , Space
-            , Str "upper"
-            , Space
-            , Str "case,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-005.xhtml#style-312"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-312" ]
-            , Space
-            , Code ( "" , [] , [] ) "lowercase"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "text-transform"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "lowercase"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Para
-            [ Str "Lorem"
-            , Space
-            , Str "ipsum"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "sit"
-            , Space
-            , Str "amet,"
-            , Space
-            , Str "consectetur"
-            , Space
-            , Str "adipisicing"
-            , Space
-            , Str "elit,"
-            , Space
-            , Str "sed"
-            , Space
-            , Str "do"
-            , Space
-            , Str "eiusmod"
-            , Space
-            , Str "tempor"
-            , Space
-            , Str "incididunt"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "labore"
-            , Space
-            , Str "et"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "magna"
-            , Space
-            , Str "aliqua."
-            , Space
-            , Str "Ut"
-            , Space
-            , Str "enim"
-            , Space
-            , Str "ad"
-            , Space
-            , Str "minim"
-            , Space
-            , Str "veniam,"
-            , Space
-            , Str "quis"
-            , Space
-            , Str "nostrud"
-            , Space
-            , Str "exercitation"
-            , Space
-            , Str "ullamco"
-            , Space
-            , Str "laboris"
-            , Space
-            , Str "nisi"
-            , Space
-            , Str "ut"
-            , Space
-            , Str "aliquip"
-            , Space
-            , Str "ex"
-            , Space
-            , Str "ea"
-            , Space
-            , Str "commodo"
-            , Space
-            , Str "consequat."
-            , Space
-            , Str "Duis"
-            , Space
-            , Str "aute"
-            , Space
-            , Str "irure"
-            , Space
-            , Str "dolor"
-            , Space
-            , Str "in"
-            , Space
-            , Str "reprehenderit"
-            , Space
-            , Str "in"
-            , Space
-            , Str "voluptate"
-            , Space
-            , Str "velit"
-            , Space
-            , Str "esse"
-            , Space
-            , Str "cillum"
-            , Space
-            , Str "dolore"
-            , Space
-            , Str "eu"
-            , Space
-            , Str "fugiat"
-            , Space
-            , Str "nulla"
-            , Space
-            , Str "pariatur."
-            , Space
-            , Str "Excepteur"
-            , Space
-            , Str "sint"
-            , Space
-            , Str "occaecat"
-            , Space
-            , Str "cupidatat"
-            , Space
-            , Str "non"
-            , Space
-            , Str "proident,"
-            , Space
-            , Str "sunt"
-            , Space
-            , Str "in"
-            , Space
-            , Str "culpa"
-            , Space
-            , Str "qui"
-            , Space
-            , Str "officia"
-            , Space
-            , Str "deserunt"
-            , Space
-            , Str "mollit"
-            , Space
-            , Str "anim"
-            , Space
-            , Str "id"
-            , Space
-            , Str "est"
-            , Space
-            , Str "laborum."
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "preceding"
-            , Space
-            , Str "paragraph"
-            , Space
-            , Str "is"
-            , Space
-            , Str "in"
-            , Space
-            , Str "lower"
-            , Space
-            , Str "case,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    ]
-, Para [ Span ( "styling-xhtml-006.xhtml" , [] , [] ) [] ]
-, Div
-    ( "styling-xhtml-006.xhtml#style-ruby"
-    , [ "section" ]
-    , []
-    )
-    [ Header
-        2
-        ( "" , [] , [] )
-        [ Str "The"
-        , Space
-        , Code ( "" , [] , [] ) "epub-ruby-position"
-        , Space
-        , Str "property"
-        ]
-    , Div
-        ( "styling-xhtml-006.xhtml#style-410"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-410" ]
-            , Space
-            , Code ( "" , [] , [] ) "over"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "-epub-ruby-position"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "over"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ RawInline (Format "html") "<ruby class=\"ruby-over\">"
-            , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
-            , Space
-            , RawInline (Format "html") "<rp>"
-            , Str "("
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "<rt>"
-            , Str "Lorem"
-            , Space
-            , Str "Ipsum"
-            , RawInline (Format "html") "</rt>"
-            , RawInline (Format "html") "<rp>"
-            , Str ")"
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "</ruby>"
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "Ruby"
-            , Space
-            , Str "text"
-            , Space
-            , Str "is"
-            , Space
-            , Str "positioned"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "over" ]
-                ( "http://www.w3.org/TR/css3-writing-modes/#over" , "" )
-            , Space
-            , Str "side"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "ruby"
-            , Space
-            , Str "base,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-006.xhtml#style-411"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-411" ]
-            , Space
-            , Code ( "" , [] , [] ) "under"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "-epub-ruby-position"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "under"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ RawInline (Format "html") "<ruby class=\"ruby-under\">"
-            , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
-            , Space
-            , RawInline (Format "html") "<rp>"
-            , Str "("
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "<rt>"
-            , Str "Lorem"
-            , Space
-            , Str "Ipsum"
-            , RawInline (Format "html") "</rt>"
-            , RawInline (Format "html") "<rp>"
-            , Str ")"
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "</ruby>"
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "Ruby"
-            , Space
-            , Str "text"
-            , Space
-            , Str "is"
-            , Space
-            , Str "positioned"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Link
-                ( "" , [] , [] )
-                [ Str "under" ]
-                ( "http://www.w3.org/TR/css3-writing-modes/#under"
-                , ""
-                )
-            , Space
-            , Str "side"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "ruby"
-            , Space
-            , Str "base,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    , Div
-        ( "styling-xhtml-006.xhtml#style-412"
-        , [ "section" , "ctest" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
-            , Space
-            , Span ( "" , [ "test-id" ] , [] ) [ Str "style-412" ]
-            , Space
-            , Code ( "" , [] , [] ) "inter-character"
-            ]
-        , Para
-            [ Str "Tests"
-            , Space
-            , Str "whether"
-            , Space
-            , Str "the"
-            , Space
-            , Code ( "" , [] , [] ) "-epub-ruby-position"
-            , Space
-            , Str "property"
-            , Space
-            , Str "set"
-            , Space
-            , Str "to"
-            , Space
-            , Str "inter-caracter"
-            , Space
-            , Str "is"
-            , Space
-            , Str "supported."
-            ]
-        , Plain
-            [ RawInline
-                (Format "html") "<ruby class=\"ruby-inter-character\">"
-            , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
-            , Space
-            , RawInline (Format "html") "<rp>"
-            , Str "("
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "<rt>"
-            , Str "Lorem"
-            , Space
-            , Str "Ipsum"
-            , RawInline (Format "html") "</rt>"
-            , RawInline (Format "html") "<rp>"
-            , Str ")"
-            , RawInline (Format "html") "</rp>"
-            , RawInline (Format "html") "</ruby>"
-            ]
-        , Para
-            [ Str "If"
-            , Space
-            , Str "the"
-            , Space
-            , Str "Ruby"
-            , Space
-            , Str "text"
-            , Space
-            , Str "is"
-            , Space
-            , Str "positioned"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Str "right"
-            , Space
-            , Str "side"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "base"
-            , Space
-            , Str "text,"
-            , Space
-            , Str "the"
-            , Space
-            , Str "test"
-            , Space
-            , Str "passes."
-            ]
-        ]
-    ]
-]
+Pandoc
+  Meta
+    { unMeta =
+        fromList
+          [ ( "author"
+            , MetaList
+                [ MetaInlines [ Str "Ori Idan" ]
+                , MetaInlines [ Str "Matt Garrish" ]
+                , MetaInlines [ Str "Marisa DeMeglio" ]
+                , MetaInlines [ Str "Toshiaki Koike" ]
+                , MetaInlines [ Str "Vincent Gros" ]
+                , MetaInlines [ Str "Markus Gylling" ]
+                ]
+            )
+          , ( "description"
+            , MetaInlines
+                [ Str "Tests for Styling [UNDER CONSTRUCTION]" ]
+            )
+          , ( "identifier"
+            , MetaInlines
+                [ Str "com.github.epub-testsuite.epub30-test-0101" ]
+            )
+          , ( "language" , MetaInlines [ Str "en" ] )
+          , ( "title"
+            , MetaInlines [ Str "EPUBTEST 0101 - Styling Tests" ]
+            )
+          ]
+    }
+  [ Para [ Span ( "front.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "" , [ "section" ] , [] )
+      [ Header
+          1
+          ( "" , [] , [] )
+          [ Str "EPUB"
+          , Space
+          , Str "3"
+          , Space
+          , Str "Styling"
+          , Space
+          , Str "Test"
+          , Space
+          , Str "Document:"
+          , Space
+          , Str "0101"
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "Status"
+              , Space
+              , Str "of"
+              , Space
+              , Str "this"
+              , Space
+              , Str "Document"
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "currently"
+              , Space
+              , Str "considered"
+              , Space
+              , Span
+                  ( "" , [ "status" ] , [] )
+                  [ Str "[UNDER" , Space , Str "DEVELOPMENT]" ]
+              , Space
+              , Str "by"
+              , Space
+              , Str "the"
+              , Space
+              , Str "IDPF."
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "part"
+              , Space
+              , Str "of"
+              , Space
+              , Str "version"
+              , Space
+              , Span ( "" , [ "version" ] , [] ) [ Str "X.X" ]
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "EPUB"
+              , Space
+              , Str "3.0"
+              , Space
+              , Str "Compliance"
+              , Space
+              , Str "Test"
+              , Space
+              , Str "Suite"
+              , Space
+              , Str "released"
+              , SoftBreak
+              , Str "on"
+              , Space
+              , RawInline (Format "html") "<time class=\"release\">"
+              , Str "TBD"
+              , RawInline (Format "html") "</time>"
+              , Str "."
+              ]
+          , Para
+              [ Str "Before"
+              , Space
+              , Str "using"
+              , Space
+              , Str "this"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "to"
+              , Space
+              , Str "evaluate"
+              , Space
+              , Str "reading"
+              , Space
+              , Str "systems,"
+              , Space
+              , Str "testers"
+              , Space
+              , Str "are"
+              , Space
+              , Str "strongly"
+              , Space
+              , Str "encouraged"
+              , Space
+              , Str "to"
+              , SoftBreak
+              , Str "verify"
+              , Space
+              , Str "that"
+              , Space
+              , Str "they"
+              , Space
+              , Str "have"
+              , Space
+              , Str "the"
+              , Space
+              , Str "latest"
+              , Space
+              , Str "release"
+              , Space
+              , Str "by"
+              , Space
+              , Str "checking"
+              , Space
+              , Str "the"
+              , Space
+              , Str "current"
+              , Space
+              , Str "release"
+              , Space
+              , Str "version"
+              , Space
+              , Str "and"
+              , Space
+              , Str "date"
+              , Space
+              , Str "of"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , Space
+              , Str "at"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "TBD" ]
+                  ( "http://idpf.org/" , "" )
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "publication"
+              , Space
+              , Str "is"
+              , Space
+              , Str "one"
+              , Space
+              , Str "of"
+              , Space
+              , Str "several"
+              , Space
+              , Str "that"
+              , Space
+              , Str "currently"
+              , Space
+              , Str "comprise"
+              , Space
+              , Str "the"
+              , Space
+              , Str "EPUB"
+              , Space
+              , Str "3"
+              , Space
+              , Str "conformance"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , SoftBreak
+              , Str "for"
+              , Space
+              , Str "reflowable"
+              , Space
+              , Str "content."
+              , Space
+              , Str "The"
+              , Space
+              , Str "complete"
+              , Space
+              , Str "test"
+              , Space
+              , Str "suite"
+              , Space
+              , Str "includes"
+              , Space
+              , Str "all"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "following"
+              , Space
+              , Str "publications:"
+              ]
+          , OrderedList
+              ( 1 , DefaultStyle , DefaultDelim )
+              [ [ Plain [ Str "." ] ] ]
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "About"
+              , Space
+              , Str "this"
+              , Space
+              , Str "Document"
+              ]
+          , Para
+              [ Str "This"
+              , Space
+              , Str "document"
+              , Space
+              , Str "focuses"
+              , Space
+              , Str "on"
+              , Space
+              , Str "human-evaluated"
+              , Space
+              , Str "binary"
+              , Space
+              , Str "(pass/fail)"
+              , Space
+              , Str "tests"
+              , Space
+              , Str "in"
+              , Space
+              , Str "a"
+              , SoftBreak
+              , Str "reflowable"
+              , Space
+              , Str "context."
+              , Space
+              , Str "Tests"
+              , Space
+              , Str "for"
+              , Space
+              , Str "fixed-layout"
+              , Space
+              , Str "content"
+              , Space
+              , Str "and"
+              , Space
+              , Str "other"
+              , Space
+              , Str "individual"
+              , Space
+              , Str "tests"
+              , Space
+              , Str "that"
+              , SoftBreak
+              , Str "require"
+              , Space
+              , Str "a"
+              , Space
+              , Str "dedicated"
+              , Space
+              , Str "epub"
+              , Space
+              , Str "file"
+              , Space
+              , Str "are"
+              , Space
+              , Str "available"
+              , Space
+              , Str "in"
+              , Space
+              , Str "additional"
+              , Space
+              , Str "sibling"
+              , Space
+              , Str "documents;"
+              , Space
+              , Str "refer"
+              , Space
+              , Str "to"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "test"
+                  , Space
+                  , Str "suite"
+                  , SoftBreak
+                  , Str "wiki"
+                  ]
+                  ( "https://github.com/mgylling/epub-testsuite/wiki/Overview"
+                  , ""
+                  )
+              , Space
+              , Str "("
+              , Code
+                  ( "" , [] , [] )
+                  "https://github.com/mgylling/epub-testsuite/wiki/Overview"
+              , Str ")"
+              , Space
+              , Str "for"
+              , Space
+              , Str "additional"
+              , SoftBreak
+              , Str "information."
+              ]
+          ]
+      , Div
+          ( "" , [ "section" ] , [] )
+          [ Header 2 ( "" , [] , [] ) [ Str "Conventions" ]
+          , Para
+              [ Str "The"
+              , Space
+              , Str "following"
+              , Space
+              , Str "conventions"
+              , Space
+              , Str "are"
+              , Space
+              , Str "used"
+              , Space
+              , Str "throughout"
+              , Space
+              , Str "the"
+              , Space
+              , Str "document:"
+              ]
+          , DefinitionList
+              [ ( [ Str "1."
+                  , Space
+                  , Str "Locating"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Str "test"
+                  ]
+                , [ [ Div
+                        ( "" , [ "ctest" ] , [] )
+                        [ Para
+                            [ Str "Tests"
+                            , Space
+                            , Str "for"
+                            , Space
+                            , Emph [ Str "required" ]
+                            , Space
+                            , Str "Reading"
+                            , Space
+                            , Str "System"
+                            , Space
+                            , Str "functionality"
+                            , Space
+                            , Str "are"
+                            , SoftBreak
+                            , Str "preceded"
+                            , Space
+                            , Str "by"
+                            , Space
+                            , Str "the"
+                            , Space
+                            , Str "label:"
+                            , Space
+                            , Span
+                                ( ""
+                                , [ "nature" ]
+                                , [ ( "style"
+                                    , "display: inline; font-size: 100%"
+                                    )
+                                  ]
+                                )
+                                [ Str "[REQUIRED]" ]
+                            ]
+                        ]
+                    , Div
+                        ( "" , [ "otest" ] , [] )
+                        [ Para
+                            [ Str "Tests"
+                            , Space
+                            , Str "for"
+                            , Space
+                            , Emph [ Str "optional" ]
+                            , Space
+                            , Str "Reading"
+                            , Space
+                            , Str "System"
+                            , Space
+                            , Str "functionality"
+                            , Space
+                            , Str "are"
+                            , SoftBreak
+                            , Str "preceded"
+                            , Space
+                            , Str "by"
+                            , Space
+                            , Str "the"
+                            , Space
+                            , Str "label:"
+                            , Space
+                            , Span
+                                ( ""
+                                , [ "nature" ]
+                                , [ ( "style"
+                                    , "display: inline; font-size: 100%"
+                                    )
+                                  ]
+                                )
+                                [ Str "[OPTIONAL]" ]
+                            ]
+                        ]
+                    ]
+                  ]
+                )
+              , ( [ Str "2."
+                  , Space
+                  , Str "Performing"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  ]
+                , [ [ Plain
+                        [ Str "Each"
+                        , Space
+                        , Str "test"
+                        , Space
+                        , Str "includes"
+                        , Space
+                        , Str "a"
+                        , Space
+                        , Str "description"
+                        , Space
+                        , Str "of"
+                        , Space
+                        , Str "its"
+                        , Space
+                        , Str "purpose"
+                        , Space
+                        , Str "followed"
+                        , Space
+                        , Str "by"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "actual"
+                        , Space
+                        , Strong
+                            [ Str "test"
+                            , Space
+                            , Str "statement,"
+                            , SoftBreak
+                            , Str "which"
+                            , Space
+                            , Str "can"
+                            , Space
+                            , Str "always"
+                            , Space
+                            , Str "be"
+                            , Space
+                            , Str "evaluated"
+                            , Space
+                            , Str "to"
+                            , Space
+                            , Str "true"
+                            , Space
+                            , Str "or"
+                            , Space
+                            , Str "false"
+                            ]
+                        , Str "."
+                        , Space
+                        , Str "These"
+                        , Space
+                        , Str "statements"
+                        , Space
+                        , Str "typically"
+                        , Space
+                        , Str "have"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "form:"
+                        , SoftBreak
+                        , Str "\"If"
+                        , Space
+                        , Str "[some"
+                        , Space
+                        , Str "condition],"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "test"
+                        , Space
+                        , Str "passes\"."
+                        ]
+                    ]
+                  ]
+                )
+              , ( [ Str "3."
+                  , Space
+                  , Str "Scoring"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "results"
+                  , Space
+                  , Str "form"
+                  ]
+                , [ [ Plain
+                        [ Str "@@@TODO"
+                        , Space
+                        , Str "provide"
+                        , Space
+                        , Str "info"
+                        , Space
+                        , Str "on"
+                        , Space
+                        , Str "where"
+                        , Space
+                        , Str "to"
+                        , Space
+                        , Str "get"
+                        , Space
+                        , Str "the"
+                        , Space
+                        , Str "results"
+                        , Space
+                        , Str "form"
+                        ]
+                    ]
+                  ]
+                )
+              ]
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-001.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-001.xhtml_epub-css" , [ "section" ] , [] )
+      [ Header
+          1
+          ( "" , [] , [] )
+          [ Str "EPUB" , Space , Str "Style" , Space , Str "Sheets" ]
+      , Para
+          [ Str "This"
+          , Space
+          , Str "section"
+          , Space
+          , Str "contains"
+          , Space
+          , Str "tests"
+          , Space
+          , Str "for"
+          , Space
+          , Str "styling"
+          , Space
+          , Str "and"
+          , Space
+          , Str "layout."
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-003.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-003.xhtml_style-110"
+      , [ "section" , "ctest" ]
+      , []
+      )
+      [ Header
+          2
+          ( "" , [] , [] )
+          [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+          , Space
+          , Span ( "" , [ "test-id" ] , [] ) [ Str "style-110" ]
+          , Space
+          , Str "Multi-Column"
+          , Space
+          , Str "Layouts"
+          ]
+      , Para
+          [ Str "Tests"
+          , Space
+          , Str "whether"
+          , Space
+          , Str "the"
+          , Space
+          , Link
+              ( "" , [] , [] )
+              [ Code ( "" , [] , [] ) "CSS Multi-Column Layout" ]
+              ( "http://idpf.org/epub/30/spec/epub30-contentdocs.html#sec-css-multi-column"
+              , ""
+              )
+          , Space
+          , Str "properties"
+          , Space
+          , Str "are"
+          , Space
+          , Str "supported."
+          ]
+      , Div
+          ( "" , [ "multicol" ] , [] )
+          [ Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          ]
+      , Para
+          [ Str "If"
+          , Space
+          , Str "the"
+          , Space
+          , Str "preceding"
+          , Space
+          , Str "text"
+          , Space
+          , Str "is"
+          , Space
+          , Str "rendered"
+          , Space
+          , Str "in"
+          , Space
+          , Str "three"
+          , Space
+          , Str "columns,"
+          , Space
+          , Str "the"
+          , Space
+          , Str "test"
+          , Space
+          , Str "passes."
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-002.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-002.xhtml_style-lists"
+      , [ "section" ]
+      , []
+      )
+      [ Header 2 ( "" , [] , [] ) [ Str "Lists" ]
+      , Div
+          ( "styling-xhtml-002.xhtml_style-list-style-type"
+          , [ "section" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Str "The"
+              , Space
+              , Code ( "" , [] , [] ) "list-style-type"
+              , Space
+              , Str "property"
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-009"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-009" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "decimal"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "decimal"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "decimal"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-010"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-010" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "circle"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "circle"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "circle"
+                  , Space
+                  , Str "markers,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-011"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-011" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "square"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "square"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "square"
+                  , Space
+                  , Str "markers,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-012"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-012" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "disc"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "disc"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "disc"
+                  , Space
+                  , Str "markers,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-013"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-013" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-latin"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-latin"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "lower-latin"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-014"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-014" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-roman"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-roman"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "lower-roman"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-015"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-015" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-alpha"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-alpha"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "upper-alpha"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-016"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-016" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "hiragana"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "hiragana"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "hiragana"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-017"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-017" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "hiragana-iroha"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "hiragana-iroha"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "hiragana-iroha"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-018"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-018" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "katakana"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "katakana"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "katakana"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-019"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-019" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "katakana-iroha"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "katakana-iroha"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "katakana-iroha"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-020"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-020" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-roman"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-roman"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "upper-roman"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-021"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-021" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-latin"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "upper-latin"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "upper-latin"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-022"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-022" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-alpha"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-alpha"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "lower-alpha"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-023"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-023" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-greek"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "lower-greek"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "lower-greek"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-024"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-024" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "armenian"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "armenian"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "armenian"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-025"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-025" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "cjk-ideographic"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "cjk-ideographic"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "cjk-ideographic"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-026"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-026" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "decimal-leading-zero"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "decimal-leading-zero"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "decimal-leading-zero"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-027"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-027" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "georgian"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "georgian"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "georgian"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-028"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-028" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "hebrew"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "hebrew"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "hebrew"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "in"
+                  , Space
+                  , Str "ascending"
+                  , Space
+                  , Str "order,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-029"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-029" ]
+                  , Space
+                  , Code ( "" , [] , [] ) "none"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "none"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element."
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "no"
+                  , Space
+                  , Str "markers,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-002.xhtml_style-list-style"
+          , [ "section" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Str "The"
+              , Space
+              , Code ( "" , [] , [] ) "list-style"
+              , Space
+              , Str "property"
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-030"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-030" ]
+                  , Space
+                  , Str "images"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style"
+                  , Space
+                  , Str "shorthand"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "using"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Str "gif"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "purple"
+                  , Space
+                  , Str "and"
+                  , Space
+                  , Str "aqua"
+                  , Space
+                  , Str "square"
+                  , Space
+                  , Str "bullet"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-002.xhtml_style-list-style-position"
+          , [ "section" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Str "The"
+              , Space
+              , Code ( "" , [] , [] ) "list-style-position"
+              , Space
+              , Str "property"
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-040"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-040" ]
+                  , Space
+                  , Str "The"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-position"
+                  , Space
+                  , Str "property:"
+                  , Space
+                  , Code ( "" , [] , [] ) "inside"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-position"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "inside"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  , [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  , [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "markers"
+                  , Space
+                  , Str "inside"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "indentation,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-041"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-041" ]
+                  , Space
+                  , Str "The"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-position"
+                  , Space
+                  , Str "property:"
+                  , Space
+                  , Code ( "" , [] , [] ) "outside"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-position"
+                  , Space
+                  , Str "property"
+                  , Space
+                  , Str "set"
+                  , Space
+                  , Str "to"
+                  , Space
+                  , Code ( "" , [] , [] ) "outside"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ul"
+                  , Space
+                  , Str "element."
+                  ]
+              , BulletList
+                  [ [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  , [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  , [ Plain
+                        [ Str "Lorem"
+                        , Space
+                        , Str "ipsum"
+                        , Space
+                        , Str "dolor"
+                        , Space
+                        , Str "sit"
+                        , Space
+                        , Str "amet,"
+                        , Space
+                        , Str "consectetur"
+                        , Space
+                        , Str "adipisicing"
+                        , Space
+                        , Str "elit,"
+                        , Space
+                        , Str "sed"
+                        , Space
+                        , Str "do"
+                        , Space
+                        , Str "eiusmod"
+                        , Space
+                        , Str "tempor"
+                        , Space
+                        , Str "incididunt"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "labore"
+                        , Space
+                        , Str "et"
+                        , Space
+                        , Str "dolore"
+                        , Space
+                        , Str "magna"
+                        , Space
+                        , Str "aliqua."
+                        , Space
+                        , Str "Ut"
+                        , Space
+                        , Str "enim"
+                        , Space
+                        , Str "ad"
+                        , Space
+                        , Str "minim"
+                        , Space
+                        , Str "veniam,"
+                        , Space
+                        , Str "quis"
+                        , Space
+                        , Str "nostrud"
+                        , Space
+                        , Str "exercitation"
+                        , Space
+                        , Str "ullamco"
+                        , Space
+                        , Str "laboris"
+                        , Space
+                        , Str "nisi"
+                        , Space
+                        , Str "ut"
+                        , Space
+                        , Str "aliquip"
+                        , Space
+                        , Str "ex"
+                        , Space
+                        , Str "ea"
+                        , Space
+                        , Str "commodo"
+                        , Space
+                        , Str "consequat."
+                        ]
+                    ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "has"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "default"
+                  , Space
+                  , Str "setting"
+                  , Space
+                  , Str "(marker"
+                  , Space
+                  , Str "outside"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "indentation),"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-002.xhtml_style-list-start"
+          , [ "section" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Str "The"
+              , Space
+              , Str "HTML"
+              , Space
+              , Code ( "" , [] , [] ) "start"
+              , Space
+              , Str "attribute"
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-050"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-050" ]
+                  , Space
+                  , Str "Without"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "set"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "start"
+                  , Space
+                  , Str "attribute"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element"
+                  , Space
+                  , Str "with"
+                  , Space
+                  , Str "no"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property."
+                  ]
+              , OrderedList
+                  ( 25 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "starts"
+                  , Space
+                  , Str "at"
+                  , Space
+                  , Str "25,"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          , Div
+              ( "styling-xhtml-002.xhtml_style-051"
+              , [ "section" , "ctest" ]
+              , []
+              )
+              [ Header
+                  4
+                  ( "" , [] , [] )
+                  [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+                  , Space
+                  , Span ( "" , [ "test-id" ] , [] ) [ Str "style-051" ]
+                  , Space
+                  , Str "With"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "set"
+                  ]
+              , Para
+                  [ Str "Tests"
+                  , Space
+                  , Str "whether"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Code ( "" , [] , [] ) "start"
+                  , Space
+                  , Str "attribute"
+                  , Space
+                  , Str "is"
+                  , Space
+                  , Str "supported"
+                  , Space
+                  , Str "on"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "ol"
+                  , Space
+                  , Str "element"
+                  , Space
+                  , Str "with"
+                  , Space
+                  , Str "a"
+                  , Space
+                  , Code ( "" , [] , [] ) "list-style-type"
+                  , Space
+                  , Str "property."
+                  ]
+              , OrderedList
+                  ( 50 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "Lorem" ] ]
+                  , [ Plain [ Str "Ipsum" ] ]
+                  , [ Plain [ Str "Dolor" ] ]
+                  , [ Plain [ Str "Sit" ] ]
+                  , [ Plain [ Str "Amet" ] ]
+                  ]
+              , Para
+                  [ Str "If"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "preceding"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "starts"
+                  , Space
+                  , Str "at"
+                  , Space
+                  , Str "'L'"
+                  , Space
+                  , Str "(50),"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "test"
+                  , Space
+                  , Str "passes."
+                  ]
+              ]
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-004.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-004.xhtml_style-media-rules"
+      , [ "section" ]
+      , []
+      )
+      [ Header
+          2
+          ( "" , [] , [] )
+          [ Code ( "" , [] , [] ) "@media" , Space , Str "Rules" ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-210"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-210" ]
+              , Space
+              , Code ( "" , [] , [] ) "all"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "all"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-211"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-211" ]
+              , Space
+              , Code ( "" , [] , [] ) "screen"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "screen"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-212"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-212" ]
+              , Space
+              , Code ( "" , [] , [] ) "handheld"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "handheld"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-213"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-213" ]
+              , Space
+              , Code ( "" , [] , [] ) "tv"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "tv"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-220"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-220" ]
+              , Space
+              , Code ( "" , [] , [] ) "orientation:landscape"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "orientation:landscape"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\""
+              , Space
+              , Str "when"
+              , Space
+              , Str "the"
+              , Space
+              , Str "device"
+              , Space
+              , Str "is"
+              , Space
+              , Str "held"
+              , Space
+              , Str "in"
+              , Space
+              , Str "landscape"
+              , Space
+              , Str "mode,"
+              , Space
+              , Str "and"
+              , Space
+              , Str "the"
+              , Space
+              , Str "device"
+              , Space
+              , Str "supports"
+              , Space
+              , Str "multiple"
+              , Space
+              , Str "orientations,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-221"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-221" ]
+              , Space
+              , Code ( "" , [] , [] ) "orientation:portrait"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "orientation:portrait"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\""
+              , Space
+              , Str "when"
+              , Space
+              , Str "the"
+              , Space
+              , Str "device"
+              , Space
+              , Str "is"
+              , Space
+              , Str "held"
+              , Space
+              , Str "in"
+              , Space
+              , Str "portrait"
+              , Space
+              , Str "mode,"
+              , Space
+              , Str "and"
+              , Space
+              , Str "the"
+              , Space
+              , Str "device"
+              , Space
+              , Str "supports"
+              , Space
+              , Str "multiple"
+              , Space
+              , Str "orientations,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-230"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-230" ]
+              , Space
+              , Code ( "" , [] , [] ) "min-width"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "min-width:200px"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-231"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-231" ]
+              , Space
+              , Code ( "" , [] , [] ) "max-width"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "max-width:2000px"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-240"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-240" ]
+              , Space
+              , Code ( "" , [] , [] ) "min-device-width"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "min-device-width:200px"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-004.xhtml_style-241"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              3
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-241" ]
+              , Space
+              , Code ( "" , [] , [] ) "max-device-width"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "@media"
+              , Space
+              , Str "rule"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Code ( "" , [] , [] ) "max-device-width:2000px"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para [ Str "FAIL" ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "reads"
+              , Space
+              , Str "\"FAIL\","
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "fails."
+              ]
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-005.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-005.xhtml_style-text-xform"
+      , [ "section" ]
+      , []
+      )
+      [ Header
+          2
+          ( "" , [] , [] )
+          [ Str "The"
+          , Space
+          , Code ( "" , [] , [] ) "text-transform"
+          , Space
+          , Str "property"
+          ]
+      , Div
+          ( "styling-xhtml-005.xhtml_style-310"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-310" ]
+              , Space
+              , Code ( "" , [] , [] ) "uppercase"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "text-transform"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "uppercase"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "is"
+              , Space
+              , Str "in"
+              , Space
+              , Str "upper"
+              , Space
+              , Str "case,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-005.xhtml_style-311"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-311" ]
+              , Space
+              , Code ( "" , [] , [] ) "capitalize"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "text-transform"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "capitalize"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "each"
+              , Space
+              , Str "first"
+              , Space
+              , Str "letter"
+              , Space
+              , Str "of"
+              , Space
+              , Str "each"
+              , Space
+              , Str "word"
+              , Space
+              , Str "in"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "is"
+              , Space
+              , Str "in"
+              , Space
+              , Str "upper"
+              , Space
+              , Str "case,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-005.xhtml_style-312"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-312" ]
+              , Space
+              , Code ( "" , [] , [] ) "lowercase"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "text-transform"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "lowercase"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Para
+              [ Str "Lorem"
+              , Space
+              , Str "ipsum"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "sit"
+              , Space
+              , Str "amet,"
+              , Space
+              , Str "consectetur"
+              , Space
+              , Str "adipisicing"
+              , Space
+              , Str "elit,"
+              , Space
+              , Str "sed"
+              , Space
+              , Str "do"
+              , Space
+              , Str "eiusmod"
+              , Space
+              , Str "tempor"
+              , Space
+              , Str "incididunt"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "labore"
+              , Space
+              , Str "et"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "magna"
+              , Space
+              , Str "aliqua."
+              , Space
+              , Str "Ut"
+              , Space
+              , Str "enim"
+              , Space
+              , Str "ad"
+              , Space
+              , Str "minim"
+              , Space
+              , Str "veniam,"
+              , Space
+              , Str "quis"
+              , Space
+              , Str "nostrud"
+              , Space
+              , Str "exercitation"
+              , Space
+              , Str "ullamco"
+              , Space
+              , Str "laboris"
+              , Space
+              , Str "nisi"
+              , Space
+              , Str "ut"
+              , Space
+              , Str "aliquip"
+              , Space
+              , Str "ex"
+              , Space
+              , Str "ea"
+              , Space
+              , Str "commodo"
+              , Space
+              , Str "consequat."
+              , Space
+              , Str "Duis"
+              , Space
+              , Str "aute"
+              , Space
+              , Str "irure"
+              , Space
+              , Str "dolor"
+              , Space
+              , Str "in"
+              , Space
+              , Str "reprehenderit"
+              , Space
+              , Str "in"
+              , Space
+              , Str "voluptate"
+              , Space
+              , Str "velit"
+              , Space
+              , Str "esse"
+              , Space
+              , Str "cillum"
+              , Space
+              , Str "dolore"
+              , Space
+              , Str "eu"
+              , Space
+              , Str "fugiat"
+              , Space
+              , Str "nulla"
+              , Space
+              , Str "pariatur."
+              , Space
+              , Str "Excepteur"
+              , Space
+              , Str "sint"
+              , Space
+              , Str "occaecat"
+              , Space
+              , Str "cupidatat"
+              , Space
+              , Str "non"
+              , Space
+              , Str "proident,"
+              , Space
+              , Str "sunt"
+              , Space
+              , Str "in"
+              , Space
+              , Str "culpa"
+              , Space
+              , Str "qui"
+              , Space
+              , Str "officia"
+              , Space
+              , Str "deserunt"
+              , Space
+              , Str "mollit"
+              , Space
+              , Str "anim"
+              , Space
+              , Str "id"
+              , Space
+              , Str "est"
+              , Space
+              , Str "laborum."
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "preceding"
+              , Space
+              , Str "paragraph"
+              , Space
+              , Str "is"
+              , Space
+              , Str "in"
+              , Space
+              , Str "lower"
+              , Space
+              , Str "case,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      ]
+  , Para [ Span ( "styling-xhtml-006.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "styling-xhtml-006.xhtml_style-ruby"
+      , [ "section" ]
+      , []
+      )
+      [ Header
+          2
+          ( "" , [] , [] )
+          [ Str "The"
+          , Space
+          , Code ( "" , [] , [] ) "epub-ruby-position"
+          , Space
+          , Str "property"
+          ]
+      , Div
+          ( "styling-xhtml-006.xhtml_style-410"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-410" ]
+              , Space
+              , Code ( "" , [] , [] ) "over"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "-epub-ruby-position"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "over"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ RawInline (Format "html") "<ruby class=\"ruby-over\">"
+              , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
+              , Space
+              , RawInline (Format "html") "<rp>"
+              , Str "("
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "<rt>"
+              , Str "Lorem"
+              , Space
+              , Str "Ipsum"
+              , RawInline (Format "html") "</rt>"
+              , RawInline (Format "html") "<rp>"
+              , Str ")"
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "</ruby>"
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "Ruby"
+              , Space
+              , Str "text"
+              , Space
+              , Str "is"
+              , Space
+              , Str "positioned"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "over" ]
+                  ( "http://www.w3.org/TR/css3-writing-modes/#over"
+                  , ""
+                  )
+              , Space
+              , Str "side"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "ruby"
+              , Space
+              , Str "base,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-006.xhtml_style-411"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-411" ]
+              , Space
+              , Code ( "" , [] , [] ) "under"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "-epub-ruby-position"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "under"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ RawInline (Format "html") "<ruby class=\"ruby-under\">"
+              , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
+              , Space
+              , RawInline (Format "html") "<rp>"
+              , Str "("
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "<rt>"
+              , Str "Lorem"
+              , Space
+              , Str "Ipsum"
+              , RawInline (Format "html") "</rt>"
+              , RawInline (Format "html") "<rp>"
+              , Str ")"
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "</ruby>"
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "Ruby"
+              , Space
+              , Str "text"
+              , Space
+              , Str "is"
+              , Space
+              , Str "positioned"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Link
+                  ( "" , [] , [] )
+                  [ Str "under" ]
+                  ( "http://www.w3.org/TR/css3-writing-modes/#under"
+                  , ""
+                  )
+              , Space
+              , Str "side"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "ruby"
+              , Space
+              , Str "base,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      , Div
+          ( "styling-xhtml-006.xhtml_style-412"
+          , [ "section" , "ctest" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Span ( "" , [ "nature" ] , [] ) [ Str "[REQUIRED]" ]
+              , Space
+              , Span ( "" , [ "test-id" ] , [] ) [ Str "style-412" ]
+              , Space
+              , Code ( "" , [] , [] ) "inter-character"
+              ]
+          , Para
+              [ Str "Tests"
+              , Space
+              , Str "whether"
+              , Space
+              , Str "the"
+              , Space
+              , Code ( "" , [] , [] ) "-epub-ruby-position"
+              , Space
+              , Str "property"
+              , Space
+              , Str "set"
+              , Space
+              , Str "to"
+              , Space
+              , Str "inter-caracter"
+              , Space
+              , Str "is"
+              , Space
+              , Str "supported."
+              ]
+          , Plain
+              [ RawInline
+                  (Format "html")
+                  "<ruby class=\"ruby-inter-character\">"
+              , Strong [ Str "Lorem" , Space , Str "Ipsum" ]
+              , Space
+              , RawInline (Format "html") "<rp>"
+              , Str "("
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "<rt>"
+              , Str "Lorem"
+              , Space
+              , Str "Ipsum"
+              , RawInline (Format "html") "</rt>"
+              , RawInline (Format "html") "<rp>"
+              , Str ")"
+              , RawInline (Format "html") "</rp>"
+              , RawInline (Format "html") "</ruby>"
+              ]
+          , Para
+              [ Str "If"
+              , Space
+              , Str "the"
+              , Space
+              , Str "Ruby"
+              , Space
+              , Str "text"
+              , Space
+              , Str "is"
+              , Space
+              , Str "positioned"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Str "right"
+              , Space
+              , Str "side"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "base"
+              , Space
+              , Str "text,"
+              , Space
+              , Str "the"
+              , Space
+              , Str "test"
+              , Space
+              , Str "passes."
+              ]
+          ]
+      ]
+  ]
diff --git a/test/epub/wasteland.native b/test/epub/wasteland.native
--- a/test/epub/wasteland.native
+++ b/test/epub/wasteland.native
@@ -1,4551 +1,4602 @@
-[ Para
-    [ Image ( "" , [] , [] ) [] ( "wasteland-cover.jpg" , "" ) ]
-, Para [ Span ( "wasteland-content.xhtml" , [] , [] ) [] ]
-, Div
-    ( "wasteland-content.xhtml#frontmatter"
-    , [ "section" , "frontmatter" ]
-    , []
-    )
-    []
-, Div
-    ( "wasteland-content.xhtml#bodymatter"
-    , [ "section" , "bodymatter" ]
-    , []
-    )
-    [ Div
-        ( "wasteland-content.xhtml#ch1" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "I."
-            , Space
-            , Str "THE"
-            , Space
-            , Str "BURIAL"
-            , Space
-            , Str "OF"
-            , Space
-            , Str "THE"
-            , Space
-            , Str "DEAD"
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "April"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "cruellest"
-                    , Space
-                    , Str "month,"
-                    , Space
-                    , Str "breeding"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Lilacs"
-                    , Space
-                    , Str "out"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "dead"
-                    , Space
-                    , Str "land,"
-                    , Space
-                    , Str "mixing"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Memory"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "desire,"
-                    , Space
-                    , Str "stirring"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Dull"
-                    , Space
-                    , Str "roots"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "spring"
-                    , Space
-                    , Str "rain."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Winter"
-                    , Space
-                    , Str "kept"
-                    , Space
-                    , Str "us"
-                    , Space
-                    , Str "warm,"
-                    , Space
-                    , Str "covering"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Earth"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "forgetful"
-                    , Space
-                    , Str "snow,"
-                    , Space
-                    , Str "feeding"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "A"
-                    , Space
-                    , Str "little"
-                    , Space
-                    , Str "life"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "dried"
-                    , Space
-                    , Str "tubers."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Summer"
-                    , Space
-                    , Str "surprised"
-                    , Space
-                    , Str "us,"
-                    , Space
-                    , Str "coming"
-                    , Space
-                    , Str "over"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Starnbergersee"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "With"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "shower"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "rain;"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "stopped"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "colonnade,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "went"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "sunlight,"
-                    , Space
-                    , Str "into"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Hofgarten,"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "10" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "drank"
-                    , Space
-                    , Str "coffee,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "talked"
-                    , Space
-                    , Str "for"
-                    , Space
-                    , Str "an"
-                    , Space
-                    , Str "hour."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [ ( "lang" , "de" ) ] )
-                [ Plain
-                    [ Str "Bin"
-                    , Space
-                    , Str "gar"
-                    , Space
-                    , Str "keine"
-                    , Space
-                    , Str "Russin,"
-                    , Space
-                    , Str "stamm'"
-                    , Space
-                    , Str "aus"
-                    , Space
-                    , Str "Litauen,"
-                    , Space
-                    , Str "echt"
-                    , SoftBreak
-                    , Str "deutsch."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "when"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "were"
-                    , Space
-                    , Str "children,"
-                    , Space
-                    , Str "staying"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "archduke's,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "My"
-                    , Space
-                    , Str "cousin's,"
-                    , Space
-                    , Str "he"
-                    , Space
-                    , Str "took"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "out"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "sled,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "was"
-                    , Space
-                    , Str "frightened."
-                    , Space
-                    , Str "He"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "Marie,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Marie,"
-                    , Space
-                    , Str "hold"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "tight."
-                    , Space
-                    , Str "And"
-                    , Space
-                    , Str "down"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "went."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "In"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "mountains,"
-                    , Space
-                    , Str "there"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "feel"
-                    , Space
-                    , Str "free."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "read,"
-                    , Space
-                    , Str "much"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "night,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "go"
-                    , Space
-                    , Str "south"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "winter."
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "What"
-                    , Space
-                    , Str "are"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "roots"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "clutch,"
-                    , Space
-                    , Str "what"
-                    , Space
-                    , Str "branches"
-                    , Space
-                    , Str "grow"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln20" , [] , [] )
-                [ Plain
-                    [ Str "Out"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "this"
-                    , Space
-                    , Str "stony"
-                    , Space
-                    , Str "rubbish?"
-                    , Space
-                    , Str "Son"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "man,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "Line" , Space , Str "20." ]
-                                ( "#wasteland-content.xhtml#ln20" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Ezekiel"
-                            , Space
-                            , Str "2:1."
-                            ]
-                        ]
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "20" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "You"
-                    , Space
-                    , Str "cannot"
-                    , Space
-                    , Str "say,"
-                    , Space
-                    , Str "or"
-                    , Space
-                    , Str "guess,"
-                    , Space
-                    , Str "for"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "know"
-                    , Space
-                    , Str "only"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "A"
-                    , Space
-                    , Str "heap"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "broken"
-                    , Space
-                    , Str "images,"
-                    , Space
-                    , Str "where"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "sun"
-                    , Space
-                    , Str "beats,"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln23" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "dead"
-                    , Space
-                    , Str "tree"
-                    , Space
-                    , Str "gives"
-                    , Space
-                    , Str "no"
-                    , Space
-                    , Str "shelter,"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "cricket"
-                    , Space
-                    , Str "no"
-                    , Space
-                    , Str "relief,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "23." ]
-                                ( "#wasteland-content.xhtml#ln23" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Ecclesiastes"
-                            , Space
-                            , Str "12:5."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "dry"
-                    , Space
-                    , Str "stone"
-                    , Space
-                    , Str "no"
-                    , Space
-                    , Str "sound"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "water."
-                    , Space
-                    , Str "Only"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "There"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "shadow"
-                    , Space
-                    , Str "under"
-                    , Space
-                    , Str "this"
-                    , Space
-                    , Str "red"
-                    , Space
-                    , Str "rock,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "(Come"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "under"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "shadow"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "this"
-                    , Space
-                    , Str "red"
-                    , Space
-                    , Str "rock),"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "will"
-                    , Space
-                    , Str "show"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "something"
-                    , Space
-                    , Str "different"
-                    , Space
-                    , Str "from"
-                    , Space
-                    , Str "either"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Your"
-                    , Space
-                    , Str "shadow"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "morning"
-                    , Space
-                    , Str "striding"
-                    , Space
-                    , Str "behind"
-                    , Space
-                    , Str "you"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Or"
-                    , Space
-                    , Str "your"
-                    , Space
-                    , Str "shadow"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "evening"
-                    , Space
-                    , Str "rising"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "meet"
-                    , Space
-                    , Str "you;"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "will"
-                    , Space
-                    , Str "show"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "fear"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "handful"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "dust."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "30" ]
-                    ]
-                ]
-            , BlockQuote
-                [ Div
-                    ( "" , [] , [] )
-                    [ Div
-                        ( "wasteland-content.xhtml#ln31" , [] , [] )
-                        [ Plain
-                            [ Str "Frisch"
-                            , Space
-                            , Str "weht"
-                            , Space
-                            , Str "der"
-                            , Space
-                            , Str "Wind"
-                            , Note
-                                [ Para
-                                    [ Link
-                                        ( "" , [] , [] )
-                                        [ Str "31." ]
-                                        ( "#wasteland-content.xhtml#ln31"
-                                        , ""
-                                        )
-                                    , Space
-                                    , Str "V."
-                                    , Space
-                                    , Str "Tristan"
-                                    , Space
-                                    , Str "und"
-                                    , Space
-                                    , Str "Isolde,"
-                                    , Space
-                                    , Str "i,"
-                                    , Space
-                                    , Str "verses"
-                                    , Space
-                                    , Str "5-8."
-                                    ]
-                                ]
-                            ]
-                        ]
-                    , Div
-                        ( "" , [] , [] )
-                        [ Plain
-                            [ Str "Der"
-                            , Space
-                            , Str "Heimat"
-                            , Space
-                            , Str "zu"
-                            ]
-                        ]
-                    , Div
-                        ( "" , [] , [] )
-                        [ Plain
-                            [ Str "Mein"
-                            , Space
-                            , Str "Irisch"
-                            , Space
-                            , Str "Kind,"
-                            ]
-                        ]
-                    , Div
-                        ( "" , [] , [] )
-                        [ Plain
-                            [ Str "Wo"
-                            , Space
-                            , Str "weilest"
-                            , Space
-                            , Str "du?"
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"You"
-                    , Space
-                    , Str "gave"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "hyacinths"
-                    , Space
-                    , Str "first"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "year"
-                    , Space
-                    , Str "ago;"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"They"
-                    , Space
-                    , Str "called"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "hyacinth"
-                    , Space
-                    , Str "girl.\""
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\8213Yet"
-                    , Space
-                    , Str "when"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "came"
-                    , Space
-                    , Str "back,"
-                    , Space
-                    , Str "late,"
-                    , Space
-                    , Str "from"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Hyacinth"
-                    , SoftBreak
-                    , Str "garden,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Your"
-                    , Space
-                    , Str "arms"
-                    , Space
-                    , Str "full,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "your"
-                    , Space
-                    , Str "hair"
-                    , Space
-                    , Str "wet,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "could"
-                    , Space
-                    , Str "not"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Speak,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "my"
-                    , Space
-                    , Str "eyes"
-                    , Space
-                    , Str "failed,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "was"
-                    , Space
-                    , Str "neither"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Living"
-                    , Space
-                    , Str "nor"
-                    , Space
-                    , Str "dead,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "knew"
-                    , Space
-                    , Str "nothing,"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "40" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Looking"
-                    , Space
-                    , Str "into"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "heart"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "light,"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "silence."
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln42"
-                , []
-                , [ ( "lang" , "de" ) ]
-                )
-                [ Plain
-                    [ Emph
-                        [ Str "Od'"
-                        , Space
-                        , Str "und"
-                        , Space
-                        , Str "leer"
-                        , Space
-                        , Str "das"
-                        , Space
-                        , Str "Meer"
-                        ]
-                    , Str "."
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "42." ]
-                                ( "#wasteland-content.xhtml#ln42" , "" )
-                            , Space
-                            , Str "Id."
-                            , Space
-                            , Str "iii,"
-                            , Space
-                            , Str "verse"
-                            , Space
-                            , Str "24."
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Madame"
-                    , Space
-                    , Str "Sosostris,"
-                    , Space
-                    , Str "famous"
-                    , Space
-                    , Str "clairvoyante,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Had"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "bad"
-                    , Space
-                    , Str "cold,"
-                    , Space
-                    , Str "nevertheless"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Is"
-                    , Space
-                    , Str "known"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "wisest"
-                    , Space
-                    , Str "woman"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "Europe,"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln46" , [] , [] )
-                [ Plain
-                    [ Str "With"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "wicked"
-                    , Space
-                    , Str "pack"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "cards."
-                    , Space
-                    , Str "Here,"
-                    , Space
-                    , Str "said"
-                    , Space
-                    , Str "she,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "46." ]
-                                ( "#wasteland-content.xhtml#ln46" , "" )
-                            , Space
-                            , Str "I"
-                            , Space
-                            , Str "am"
-                            , Space
-                            , Str "not"
-                            , Space
-                            , Str "familiar"
-                            , Space
-                            , Str "with"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "exact"
-                            , Space
-                            , Str "constitution"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "Tarot"
-                            , Space
-                            , Str "pack"
-                            , Space
-                            , Str "of"
-                            , SoftBreak
-                            , Str "cards,"
-                            , Space
-                            , Str "from"
-                            , Space
-                            , Str "which"
-                            , Space
-                            , Str "I"
-                            , Space
-                            , Str "have"
-                            , Space
-                            , Str "obviously"
-                            , Space
-                            , Str "departed"
-                            , Space
-                            , Str "to"
-                            , Space
-                            , Str "suit"
-                            , Space
-                            , Str "my"
-                            , Space
-                            , Str "own"
-                            , Space
-                            , Str "convenience."
-                            , SoftBreak
-                            , Str "The"
-                            , Space
-                            , Str "Hanged"
-                            , Space
-                            , Str "Man,"
-                            , Space
-                            , Str "a"
-                            , Space
-                            , Str "member"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "traditional"
-                            , Space
-                            , Str "pack,"
-                            , Space
-                            , Str "fits"
-                            , Space
-                            , Str "my"
-                            , Space
-                            , Str "purpose"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "two"
-                            , SoftBreak
-                            , Str "ways:"
-                            , Space
-                            , Str "because"
-                            , Space
-                            , Str "he"
-                            , Space
-                            , Str "is"
-                            , Space
-                            , Str "associated"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "my"
-                            , Space
-                            , Str "mind"
-                            , Space
-                            , Str "with"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "Hanged"
-                            , Space
-                            , Str "God"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "Frazer,"
-                            , SoftBreak
-                            , Str "and"
-                            , Space
-                            , Str "because"
-                            , Space
-                            , Str "I"
-                            , Space
-                            , Str "associate"
-                            , Space
-                            , Str "him"
-                            , Space
-                            , Str "with"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "hooded"
-                            , Space
-                            , Str "figure"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "passage"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "the"
-                            , SoftBreak
-                            , Str "disciples"
-                            , Space
-                            , Str "to"
-                            , Space
-                            , Str "Emmaus"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "Part"
-                            , Space
-                            , Str "V."
-                            , Space
-                            , Str "The"
-                            , Space
-                            , Str "Phoenician"
-                            , Space
-                            , Str "Sailor"
-                            , Space
-                            , Str "and"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "Merchant"
-                            , SoftBreak
-                            , Str "appear"
-                            , Space
-                            , Str "later;"
-                            , Space
-                            , Str "also"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "\"crowds"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "people,\""
-                            , Space
-                            , Str "and"
-                            , Space
-                            , Str "Death"
-                            , Space
-                            , Str "by"
-                            , Space
-                            , Str "Water"
-                            , Space
-                            , Str "is"
-                            , SoftBreak
-                            , Str "executed"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "Part"
-                            , Space
-                            , Str "IV."
-                            , Space
-                            , Str "The"
-                            , Space
-                            , Str "Man"
-                            , Space
-                            , Str "with"
-                            , Space
-                            , Str "Three"
-                            , Space
-                            , Str "Staves"
-                            , Space
-                            , Str "(an"
-                            , Space
-                            , Str "authentic"
-                            , Space
-                            , Str "member"
-                            , Space
-                            , Str "of"
-                            , SoftBreak
-                            , Str "the"
-                            , Space
-                            , Str "Tarot"
-                            , Space
-                            , Str "pack)"
-                            , Space
-                            , Str "I"
-                            , Space
-                            , Str "associate,"
-                            , Space
-                            , Str "quite"
-                            , Space
-                            , Str "arbitrarily,"
-                            , Space
-                            , Str "with"
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "Fisher"
-                            , Space
-                            , Str "King"
-                            , SoftBreak
-                            , Str "himself."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Is"
-                    , Space
-                    , Str "your"
-                    , Space
-                    , Str "card,"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "drowned"
-                    , Space
-                    , Str "Phoenician"
-                    , Space
-                    , Str "Sailor,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "(Those"
-                    , Space
-                    , Str "are"
-                    , Space
-                    , Str "pearls"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "were"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "eyes."
-                    , Space
-                    , Str "Look!)"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Here"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "Belladonna,"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Lady"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Rocks,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "lady"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "situations."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "50" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Here"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "man"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "three"
-                    , Space
-                    , Str "staves,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "here"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Wheel,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "here"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "one-eyed"
-                    , Space
-                    , Str "merchant,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "this"
-                    , Space
-                    , Str "card,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Which"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "blank,"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "something"
-                    , Space
-                    , Str "he"
-                    , Space
-                    , Str "carries"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "back,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Which"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "am"
-                    , Space
-                    , Str "forbidden"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "see."
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "do"
-                    , Space
-                    , Str "not"
-                    , Space
-                    , Str "find"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "Hanged"
-                    , Space
-                    , Str "Man."
-                    , Space
-                    , Str "Fear"
-                    , Space
-                    , Str "death"
-                    , Space
-                    , Str "by"
-                    , Space
-                    , Str "water."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "see"
-                    , Space
-                    , Str "crowds"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "people,"
-                    , Space
-                    , Str "walking"
-                    , Space
-                    , Str "round"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "ring."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Thank"
-                    , Space
-                    , Str "you."
-                    , Space
-                    , Str "If"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "see"
-                    , Space
-                    , Str "dear"
-                    , Space
-                    , Str "Mrs."
-                    , Space
-                    , Str "Equitone,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Tell"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "bring"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "horoscope"
-                    , Space
-                    , Str "myself:"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "One"
-                    , Space
-                    , Str "must"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "so"
-                    , Space
-                    , Str "careful"
-                    , Space
-                    , Str "these"
-                    , Space
-                    , Str "days."
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "wasteland-content.xhtml#ln60" , [] , [] )
-                [ Plain
-                    [ Str "Unreal"
-                    , Space
-                    , Str "City,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "60." ]
-                                ( "#wasteland-content.xhtml#ln60" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Baudelaire:"
-                            ]
-                        , BlockQuote
-                            [ Para
-                                [ Str "\"Fourmillante"
-                                , Space
-                                , Str "cite;,"
-                                , Space
-                                , Str "cite;"
-                                , Space
-                                , Str "pleine"
-                                , Space
-                                , Str "de"
-                                , Space
-                                , Str "reves,"
-                                , LineBreak
-                                , Str "Ou"
-                                , Space
-                                , Str "le"
-                                , Space
-                                , Str "spectre"
-                                , Space
-                                , Str "en"
-                                , SoftBreak
-                                , Str "plein"
-                                , Space
-                                , Str "jour"
-                                , Space
-                                , Str "raccroche"
-                                , Space
-                                , Str "le"
-                                , Space
-                                , Str "passant.\""
-                                ]
-                            ]
-                        ]
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "60" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Under"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "brown"
-                    , Space
-                    , Str "fog"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "winter"
-                    , Space
-                    , Str "dawn,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "A"
-                    , Space
-                    , Str "crowd"
-                    , Space
-                    , Str "flowed"
-                    , Space
-                    , Str "over"
-                    , Space
-                    , Str "London"
-                    , Space
-                    , Str "Bridge,"
-                    , Space
-                    , Str "so"
-                    , Space
-                    , Str "many,"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln63" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "had"
-                    , Space
-                    , Str "not"
-                    , Space
-                    , Str "thought"
-                    , Space
-                    , Str "death"
-                    , Space
-                    , Str "had"
-                    , Space
-                    , Str "undone"
-                    , Space
-                    , Str "so"
-                    , Space
-                    , Str "many."
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "63." ]
-                                ( "#wasteland-content.xhtml#ln63" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Inferno,"
-                            , Space
-                            , Str "iii."
-                            , Space
-                            , Str "55-7."
-                            ]
-                        , BlockQuote
-                            [ Para
-                                [ Str "\"si"
-                                , Space
-                                , Str "lunga"
-                                , Space
-                                , Str "tratta"
-                                , LineBreak
-                                , Str "di"
-                                , Space
-                                , Str "gente,"
-                                , Space
-                                , Str "ch'io"
-                                , Space
-                                , Str "non"
-                                , Space
-                                , Str "avrei"
-                                , Space
-                                , Str "mai"
-                                , Space
-                                , Str "creduto"
-                                , LineBreak
-                                , Str "che"
-                                , SoftBreak
-                                , Str "morte"
-                                , Space
-                                , Str "tanta"
-                                , Space
-                                , Str "n'avesse"
-                                , Space
-                                , Str "disfatta.\""
-                                ]
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln64" , [] , [] )
-                [ Plain
-                    [ Str "Sighs,"
-                    , Space
-                    , Str "short"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "infrequent,"
-                    , Space
-                    , Str "were"
-                    , Space
-                    , Str "exhaled,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "64." ]
-                                ( "#wasteland-content.xhtml#ln64" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Inferno,"
-                            , Space
-                            , Str "iv."
-                            , Space
-                            , Str "25-7:"
-                            ]
-                        , BlockQuote
-                            [ Para
-                                [ Str "\"Quivi,"
-                                , Space
-                                , Str "secondo"
-                                , Space
-                                , Str "che"
-                                , Space
-                                , Str "per"
-                                , Space
-                                , Str "ascoltahre,"
-                                , LineBreak
-                                , Str "\"non"
-                                , Space
-                                , Str "avea"
-                                , Space
-                                , Str "pianto,"
-                                , Space
-                                , Str "ma'"
-                                , Space
-                                , Str "che"
-                                , Space
-                                , Str "di"
-                                , SoftBreak
-                                , Str "sospiri,"
-                                , LineBreak
-                                , Str "\"che"
-                                , Space
-                                , Str "l'aura"
-                                , Space
-                                , Str "eterna"
-                                , Space
-                                , Str "facevan"
-                                , Space
-                                , Str "tremare.\""
-                                ]
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "each"
-                    , Space
-                    , Str "man"
-                    , Space
-                    , Str "fixed"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "eyes"
-                    , Space
-                    , Str "before"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "feet."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Flowed"
-                    , Space
-                    , Str "up"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "hill"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "down"
-                    , Space
-                    , Str "King"
-                    , Space
-                    , Str "William"
-                    , Space
-                    , Str "Street,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "To"
-                    , Space
-                    , Str "where"
-                    , Space
-                    , Str "Saint"
-                    , Space
-                    , Str "Mary"
-                    , Space
-                    , Str "Woolnoth"
-                    , Space
-                    , Str "kept"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "hours"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln68" , [] , [] )
-                [ Plain
-                    [ Str "With"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "dead"
-                    , Space
-                    , Str "sound"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "final"
-                    , Space
-                    , Str "stroke"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "nine."
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "68." ]
-                                ( "#wasteland-content.xhtml#ln68" , "" )
-                            , Space
-                            , Str "A"
-                            , Space
-                            , Str "phenomenon"
-                            , Space
-                            , Str "which"
-                            , Space
-                            , Str "I"
-                            , Space
-                            , Str "have"
-                            , Space
-                            , Str "often"
-                            , Space
-                            , Str "noticed."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "There"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "saw"
-                    , Space
-                    , Str "one"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "knew,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "stopped"
-                    , Space
-                    , Str "him,"
-                    , Space
-                    , Str "crying"
-                    , SoftBreak
-                    , Str "\"Stetson!"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"You"
-                    , Space
-                    , Str "who"
-                    , Space
-                    , Str "were"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "ships"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "Mylae!"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "70" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"That"
-                    , Space
-                    , Str "corpse"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "planted"
-                    , Space
-                    , Str "last"
-                    , Space
-                    , Str "year"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "your"
-                    , Space
-                    , Str "garden,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"Has"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "begun"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "sprout?"
-                    , Space
-                    , Str "Will"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "bloom"
-                    , Space
-                    , Str "this"
-                    , Space
-                    , Str "year?"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"Or"
-                    , Space
-                    , Str "has"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "sudden"
-                    , Space
-                    , Str "frost"
-                    , Space
-                    , Str "disturbed"
-                    , Space
-                    , Str "its"
-                    , Space
-                    , Str "bed?"
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "wasteland-content.xhtml#ln74" , [] , [] )
-                [ Plain
-                    [ Str "\"Oh"
-                    , Space
-                    , Str "keep"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "Dog"
-                    , Space
-                    , Str "far"
-                    , Space
-                    , Str "hence,"
-                    , Space
-                    , Str "that's"
-                    , Space
-                    , Str "friend"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "men,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "74." ]
-                                ( "#wasteland-content.xhtml#ln74" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "Dirge"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "Webster's"
-                            , Space
-                            , Str "White"
-                            , Space
-                            , Str "Devil"
-                            , Space
-                            , Str "."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"Or"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "nails"
-                    , Space
-                    , Str "he'll"
-                    , Space
-                    , Str "dig"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "up"
-                    , Space
-                    , Str "again!"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln76" , [] , [] )
-                [ Plain
-                    [ Str "\"You!"
-                    , Space
-                    , Span
-                        ( "" , [] , [ ( "lang" , "fr" ) ] )
-                        [ Str "hypocrite"
-                        , Space
-                        , Str "lecteur!"
-                        , Space
-                        , Str "-"
-                        , Space
-                        , Str "mon"
-                        , Space
-                        , Str "semblable,"
-                        , Space
-                        , Str "-"
-                        , SoftBreak
-                        , Str "mon"
-                        , Space
-                        , Str "frere"
-                        ]
-                    , Space
-                    , Str "!\""
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "76." ]
-                                ( "#wasteland-content.xhtml#ln76" , "" )
-                            , Space
-                            , Str "V."
-                            , Space
-                            , Str "Baudelaire,"
-                            , Space
-                            , Str "Preface"
-                            , Space
-                            , Str "to"
-                            , Space
-                            , Str "Fleurs"
-                            , Space
-                            , Str "du"
-                            , Space
-                            , Str "Mal."
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-        ]
-    , Div
-        ( "wasteland-content.xhtml#ch2" , [ "section" ] , [] )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "II."
-            , Space
-            , Str "A"
-            , Space
-            , Str "GAME"
-            , Space
-            , Str "OF"
-            , Space
-            , Str "CHESS"
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "wasteland-content.xhtml#ln77" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "Chair"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "sat"
-                    , Space
-                    , Str "in,"
-                    , Space
-                    , Str "like"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "burnished"
-                    , Space
-                    , Str "throne,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "77." ]
-                                ( "#wasteland-content.xhtml#ln77" , "" )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Antony"
-                            , Space
-                            , Str "and"
-                            , Space
-                            , Str "Cleopatra,"
-                            , Space
-                            , Str "II."
-                            , Space
-                            , Str "ii.,"
-                            , Space
-                            , Str "l."
-                            , Space
-                            , Str "190."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Glowed"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "marble,"
-                    , Space
-                    , Str "where"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "glass"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Held"
-                    , Space
-                    , Str "up"
-                    , Space
-                    , Str "by"
-                    , Space
-                    , Str "standards"
-                    , Space
-                    , Str "wrought"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "fruited"
-                    , Space
-                    , Str "vines"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "From"
-                    , Space
-                    , Str "which"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "golden"
-                    , Space
-                    , Str "Cupidon"
-                    , Space
-                    , Str "peeped"
-                    , Space
-                    , Str "out"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "80" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "(Another"
-                    , Space
-                    , Str "hid"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "eyes"
-                    , Space
-                    , Str "behind"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "wing)"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Doubled"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "flames"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "sevenbranched"
-                    , Space
-                    , Str "candelabra"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Reflecting"
-                    , Space
-                    , Str "light"
-                    , Space
-                    , Str "upon"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "table"
-                    , Space
-                    , Str "as"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "glitter"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "jewels"
-                    , Space
-                    , Str "rose"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "meet"
-                    , Space
-                    , Str "it,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "From"
-                    , Space
-                    , Str "satin"
-                    , Space
-                    , Str "cases"
-                    , Space
-                    , Str "poured"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "rich"
-                    , Space
-                    , Str "profusion;"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "In"
-                    , Space
-                    , Str "vials"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "ivory"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "coloured"
-                    , Space
-                    , Str "glass"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Unstoppered,"
-                    , Space
-                    , Str "lurked"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "strange"
-                    , Space
-                    , Str "synthetic"
-                    , Space
-                    , Str "perfumes,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Unguent,"
-                    , Space
-                    , Str "powdered,"
-                    , Space
-                    , Str "or"
-                    , Space
-                    , Str "liquid"
-                    , Space
-                    , Str "-"
-                    , Space
-                    , Str "troubled,"
-                    , Space
-                    , Str "confused"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "drowned"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "sense"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "odours;"
-                    , Space
-                    , Str "stirred"
-                    , Space
-                    , Str "by"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "air"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "That"
-                    , Space
-                    , Str "freshened"
-                    , Space
-                    , Str "from"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "window,"
-                    , Space
-                    , Str "these"
-                    , Space
-                    , Str "ascended"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "90" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "In"
-                    , Space
-                    , Str "fattening"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "prolonged"
-                    , Space
-                    , Str "candle-flames,"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln92" , [] , [] )
-                [ Plain
-                    [ Str "Flung"
-                    , Space
-                    , Str "their"
-                    , Space
-                    , Str "smoke"
-                    , Space
-                    , Str "into"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "laquearia,"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "92." ]
-                                ( "#wasteland-content.xhtml#ln92" , "" )
-                            , Space
-                            , Str "Laquearia."
-                            , Space
-                            , Str "V."
-                            , Space
-                            , Str "Aeneid,"
-                            , Space
-                            , Str "I."
-                            , Space
-                            , Str "726:"
-                            ]
-                        , BlockQuote
-                            [ Para
-                                [ Str "dependent"
-                                , Space
-                                , Str "lychni"
-                                , Space
-                                , Str "laquearibus"
-                                , Space
-                                , Str "aureis"
-                                , Space
-                                , Str "incensi,"
-                                , Space
-                                , Str "et"
-                                , Space
-                                , Str "noctem"
-                                , SoftBreak
-                                , Str "flammis"
-                                , LineBreak
-                                , Str "funalia"
-                                , Space
-                                , Str "vincunt."
-                                ]
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Stirring"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "pattern"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "coffered"
-                    , Space
-                    , Str "ceiling."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Huge"
-                    , Space
-                    , Str "sea-wood"
-                    , Space
-                    , Str "fed"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "copper"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Burned"
-                    , Space
-                    , Str "green"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "orange,"
-                    , Space
-                    , Str "framed"
-                    , Space
-                    , Str "by"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "coloured"
-                    , Space
-                    , Str "stone,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "In"
-                    , Space
-                    , Str "which"
-                    , Space
-                    , Str "sad"
-                    , Space
-                    , Str "light"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "carved"
-                    , Space
-                    , Str "dolphin"
-                    , Space
-                    , Str "swam."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Above"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "antique"
-                    , Space
-                    , Str "mantel"
-                    , Space
-                    , Str "was"
-                    , Space
-                    , Str "displayed"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln98" , [] , [] )
-                [ Plain
-                    [ Str "As"
-                    , Space
-                    , Str "though"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "window"
-                    , Space
-                    , Str "gave"
-                    , Space
-                    , Str "upon"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "sylvan"
-                    , Space
-                    , Str "scene"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "98." ]
-                                ( "#wasteland-content.xhtml#ln98" , "" )
-                            , Space
-                            , Str "Sylvan"
-                            , Space
-                            , Str "scene."
-                            , Space
-                            , Str "V."
-                            , Space
-                            , Str "Milton,"
-                            , Space
-                            , Str "Paradise"
-                            , Space
-                            , Str "Lost,"
-                            , Space
-                            , Str "iv."
-                            , Space
-                            , Str "140."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln99" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "change"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "Philomel,"
-                    , Space
-                    , Str "by"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "barbarous"
-                    , Space
-                    , Str "king"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "99." ]
-                                ( "#wasteland-content.xhtml#ln99" , "" )
-                            , Space
-                            , Str "V."
-                            , Space
-                            , Str "Ovid,"
-                            , Space
-                            , Str "Metamorphoses,"
-                            , Space
-                            , Str "vi,"
-                            , Space
-                            , Str "Philomela."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln100" , [] , [] )
-                [ Plain
-                    [ Str "So"
-                    , Space
-                    , Str "rudely"
-                    , Space
-                    , Str "forced;"
-                    , Space
-                    , Str "yet"
-                    , Space
-                    , Str "there"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "nightingale"
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "100." ]
-                                ( "#wasteland-content.xhtml#ln100"
-                                , ""
-                                )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Part"
-                            , Space
-                            , Str "III,"
-                            , Space
-                            , Str "l."
-                            , Space
-                            , Str "204."
-                            ]
-                        ]
-                    , SoftBreak
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "100" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Filled"
-                    , Space
-                    , Str "all"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "desert"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "inviolable"
-                    , Space
-                    , Str "voice"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "still"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "cried,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "still"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "world"
-                    , Space
-                    , Str "pursues,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"Jug"
-                    , Space
-                    , Str "Jug\""
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "dirty"
-                    , Space
-                    , Str "ears."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "other"
-                    , Space
-                    , Str "withered"
-                    , Space
-                    , Str "stumps"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "time"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Were"
-                    , Space
-                    , Str "told"
-                    , Space
-                    , Str "upon"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "walls;"
-                    , Space
-                    , Str "staring"
-                    , Space
-                    , Str "forms"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Leaned"
-                    , Space
-                    , Str "out,"
-                    , Space
-                    , Str "leaning,"
-                    , Space
-                    , Str "hushing"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "room"
-                    , Space
-                    , Str "enclosed."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Footsteps"
-                    , Space
-                    , Str "shuffled"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "stair."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Under"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "firelight,"
-                    , Space
-                    , Str "under"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "brush,"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "hair"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Spread"
-                    , Space
-                    , Str "out"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "fiery"
-                    , Space
-                    , Str "points"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Glowed"
-                    , Space
-                    , Str "into"
-                    , Space
-                    , Str "words,"
-                    , Space
-                    , Str "then"
-                    , Space
-                    , Str "would"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "savagely"
-                    , Space
-                    , Str "still."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "110" ]
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [ "linegroup" ] , [] )
-                [ Div
-                    ( "" , [] , [] )
-                    [ Plain
-                        [ Str "\"My"
-                        , Space
-                        , Str "nerves"
-                        , Space
-                        , Str "are"
-                        , Space
-                        , Str "bad"
-                        , Space
-                        , Str "to-night."
-                        , Space
-                        , Str "Yes,"
-                        , Space
-                        , Str "bad."
-                        , Space
-                        , Str "Stay"
-                        , Space
-                        , Str "with"
-                        , Space
-                        , Str "me."
-                        ]
-                    ]
-                , Div
-                    ( "" , [] , [] )
-                    [ Plain
-                        [ Str "\"Speak"
-                        , Space
-                        , Str "to"
-                        , Space
-                        , Str "me."
-                        , Space
-                        , Str "Why"
-                        , Space
-                        , Str "do"
-                        , Space
-                        , Str "you"
-                        , Space
-                        , Str "never"
-                        , Space
-                        , Str "speak."
-                        , Space
-                        , Str "Speak."
-                        ]
-                    ]
-                , Div
-                    ( "" , [] , [] )
-                    [ Plain
-                        [ Str "\"What"
-                        , Space
-                        , Str "are"
-                        , Space
-                        , Str "you"
-                        , Space
-                        , Str "thinking"
-                        , Space
-                        , Str "of?"
-                        , Space
-                        , Str "What"
-                        , Space
-                        , Str "thinking?"
-                        , Space
-                        , Str "What?"
-                        ]
-                    ]
-                , Div
-                    ( "" , [] , [] )
-                    [ Plain
-                        [ Str "\"I"
-                        , Space
-                        , Str "never"
-                        , Space
-                        , Str "know"
-                        , Space
-                        , Str "what"
-                        , Space
-                        , Str "you"
-                        , Space
-                        , Str "are"
-                        , Space
-                        , Str "thinking."
-                        , Space
-                        , Str "Think.\""
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [ "linegroup" ] , [] )
-                [ Div
-                    ( "wasteland-content.xhtml#ln115" , [] , [] )
-                    [ Plain
-                        [ Str "I"
-                        , Space
-                        , Str "think"
-                        , Space
-                        , Str "we"
-                        , Space
-                        , Str "are"
-                        , Space
-                        , Str "in"
-                        , Space
-                        , Str "rats'"
-                        , Space
-                        , Str "alley"
-                        , Note
-                            [ Para
-                                [ Link
-                                    ( "" , [] , [] )
-                                    [ Str "115." ]
-                                    ( "#wasteland-content.xhtml#ln115"
-                                    , ""
-                                    )
-                                , Space
-                                , Str "Cf."
-                                , Space
-                                , Str "Part"
-                                , Space
-                                , Str "III,"
-                                , Space
-                                , Str "l."
-                                , Space
-                                , Str "195."
-                                ]
-                            ]
-                        ]
-                    ]
-                , Div
-                    ( "" , [] , [] )
-                    [ Plain
-                        [ Str "Where"
-                        , Space
-                        , Str "the"
-                        , Space
-                        , Str "dead"
-                        , Space
-                        , Str "men"
-                        , Space
-                        , Str "lost"
-                        , Space
-                        , Str "their"
-                        , Space
-                        , Str "bones."
-                        ]
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"What"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "noise?\""
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln118" , [ "indent" ] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "wind"
-                    , Space
-                    , Str "under"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "door."
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "118." ]
-                                ( "#wasteland-content.xhtml#ln118"
-                                , ""
-                                )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Webster:"
-                            ]
-                        , BlockQuote
-                            [ Para
-                                [ Str "\"Is"
-                                , Space
-                                , Str "the"
-                                , Space
-                                , Str "wind"
-                                , Space
-                                , Str "in"
-                                , Space
-                                , Str "that"
-                                , Space
-                                , Str "door"
-                                , Space
-                                , Str "still?\""
-                                ]
-                            ]
-                        ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"What"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "noise"
-                    , Space
-                    , Str "now?"
-                    , Space
-                    , Str "What"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "wind"
-                    , Space
-                    , Str "doing?\""
-                    ]
-                ]
-            , Div
-                ( "" , [ "indent" ] , [] )
-                [ Plain
-                    [ Str "Nothing"
-                    , Space
-                    , Str "again"
-                    , Space
-                    , Str "nothing."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "120" ]
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div ( "" , [] , [] ) [ Plain [ Str "\"Do" ] ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"You"
-                    , Space
-                    , Str "know"
-                    , Space
-                    , Str "nothing?"
-                    , Space
-                    , Str "Do"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "see"
-                    , Space
-                    , Str "nothing?"
-                    , Space
-                    , Str "Do"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "remember"
-                    ]
-                ]
-            , Div ( "" , [] , [] ) [ Plain [ Str "\"Nothing?\"" ] ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain [ Str "I" , Space , Str "remember" ] ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Those"
-                    , Space
-                    , Str "are"
-                    , Space
-                    , Str "pearls"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "were"
-                    , Space
-                    , Str "his"
-                    , Space
-                    , Str "eyes."
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln126" , [] , [] )
-                [ Plain
-                    [ Str "\"Are"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "alive,"
-                    , Space
-                    , Str "or"
-                    , Space
-                    , Str "not?"
-                    , Space
-                    , Str "Is"
-                    , Space
-                    , Str "there"
-                    , Space
-                    , Str "nothing"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "your"
-                    , Space
-                    , Str "head?\""
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "126." ]
-                                ( "#wasteland-content.xhtml#ln126"
-                                , ""
-                                )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "Part"
-                            , Space
-                            , Str "I,"
-                            , Space
-                            , Str "l."
-                            , Space
-                            , Str "37,"
-                            , Space
-                            , Str "48."
-                            ]
-                        ]
-                    ]
-                ]
-            , Div ( "" , [] , [] ) [ Plain [ Str "But" ] ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "O"
-                    , Space
-                    , Str "O"
-                    , Space
-                    , Str "O"
-                    , Space
-                    , Str "O"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "Shakespeherian"
-                    , Space
-                    , Str "Rag\8213"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "It's"
-                    , Space
-                    , Str "so"
-                    , Space
-                    , Str "elegant"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "So"
-                    , Space
-                    , Str "intelligent"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "130" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"What"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "do"
-                    , Space
-                    , Str "now?"
-                    , Space
-                    , Str "What"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "do?\""
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "rush"
-                    , Space
-                    , Str "out"
-                    , Space
-                    , Str "as"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "am,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "walk"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "street"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"With"
-                    , Space
-                    , Str "my"
-                    , Space
-                    , Str "hair"
-                    , Space
-                    , Str "down,"
-                    , Space
-                    , Str "so."
-                    , Space
-                    , Str "What"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "do"
-                    , Space
-                    , Str "to-morrow?"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "\"What"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "ever"
-                    , Space
-                    , Str "do?\""
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "hot"
-                    , Space
-                    , Str "water"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "ten."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "rains,"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "closed"
-                    , Space
-                    , Str "car"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "four."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "we"
-                    , Space
-                    , Str "shall"
-                    , Space
-                    , Str "play"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "game"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "chess,"
-                    ]
-                ]
-            , Div
-                ( "wasteland-content.xhtml#ln138" , [] , [] )
-                [ Plain
-                    [ Str "Pressing"
-                    , Space
-                    , Str "lidless"
-                    , Space
-                    , Str "eyes"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "waiting"
-                    , Space
-                    , Str "for"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "knock"
-                    , Space
-                    , Str "upon"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "door."
-                    , Note
-                        [ Para
-                            [ Link
-                                ( "" , [] , [] )
-                                [ Str "138." ]
-                                ( "#wasteland-content.xhtml#ln138"
-                                , ""
-                                )
-                            , Space
-                            , Str "Cf."
-                            , Space
-                            , Str "the"
-                            , Space
-                            , Str "game"
-                            , Space
-                            , Str "of"
-                            , Space
-                            , Str "chess"
-                            , Space
-                            , Str "in"
-                            , Space
-                            , Str "Middleton's"
-                            , Space
-                            , Str "Women"
-                            , Space
-                            , Str "beware"
-                            , Space
-                            , Str "Women."
-                            ]
-                        ]
-                    ]
-                ]
-            ]
-        , Div
-            ( "" , [ "linegroup" ] , [] )
-            [ Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "When"
-                    , Space
-                    , Str "Lil's"
-                    , Space
-                    , Str "husband"
-                    , Space
-                    , Str "got"
-                    , Space
-                    , Str "demobbed,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said"
-                    , Space
-                    , Str "-"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "didn't"
-                    , Space
-                    , Str "mince"
-                    , Space
-                    , Str "my"
-                    , Space
-                    , Str "words,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "myself,"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "140" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "HURRY"
-                    , Space
-                    , Str "UP"
-                    , Space
-                    , Str "PLEASE"
-                    , Space
-                    , Str "ITS"
-                    , Space
-                    , Str "TIME"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Now"
-                    , Space
-                    , Str "Albert's"
-                    , Space
-                    , Str "coming"
-                    , Space
-                    , Str "back,"
-                    , Space
-                    , Str "make"
-                    , Space
-                    , Str "yourself"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "bit"
-                    , Space
-                    , Str "smart."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "He'll"
-                    , Space
-                    , Str "want"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "know"
-                    , Space
-                    , Str "what"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "done"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "money"
-                    , Space
-                    , Str "he"
-                    , Space
-                    , Str "gave"
-                    , SoftBreak
-                    , Str "you"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "To"
-                    , Space
-                    , Str "get"
-                    , Space
-                    , Str "yourself"
-                    , Space
-                    , Str "some"
-                    , Space
-                    , Str "teeth."
-                    , Space
-                    , Str "He"
-                    , Space
-                    , Str "did,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "was"
-                    , Space
-                    , Str "there."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "You"
-                    , Space
-                    , Str "have"
-                    , Space
-                    , Str "them"
-                    , Space
-                    , Str "all"
-                    , Space
-                    , Str "out,"
-                    , Space
-                    , Str "Lil,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "get"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "nice"
-                    , Space
-                    , Str "set,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "He"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "swear,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "can't"
-                    , Space
-                    , Str "bear"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "look"
-                    , Space
-                    , Str "at"
-                    , Space
-                    , Str "you."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "no"
-                    , Space
-                    , Str "more"
-                    , Space
-                    , Str "can't"
-                    , Space
-                    , Str "I,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "think"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "poor"
-                    , Space
-                    , Str "Albert,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "He's"
-                    , Space
-                    , Str "been"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "army"
-                    , Space
-                    , Str "four"
-                    , Space
-                    , Str "years,"
-                    , Space
-                    , Str "he"
-                    , Space
-                    , Str "wants"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "good"
-                    , Space
-                    , Str "time,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "don't"
-                    , Space
-                    , Str "give"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "him,"
-                    , Space
-                    , Str "there's"
-                    , Space
-                    , Str "others"
-                    , Space
-                    , Str "will,"
-                    , Space
-                    , Str "I"
-                    , SoftBreak
-                    , Str "said."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Oh"
-                    , Space
-                    , Str "is"
-                    , Space
-                    , Str "there,"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "said."
-                    , Space
-                    , Str "Something"
-                    , Space
-                    , Str "o'"
-                    , Space
-                    , Str "that,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "150" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Then"
-                    , Space
-                    , Str "I'll"
-                    , Space
-                    , Str "know"
-                    , Space
-                    , Str "who"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "thank,"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "give"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "straight"
-                    , SoftBreak
-                    , Str "look."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "HURRY"
-                    , Space
-                    , Str "UP"
-                    , Space
-                    , Str "PLEASE"
-                    , Space
-                    , Str "ITS"
-                    , Space
-                    , Str "TIME"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "If"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "don't"
-                    , Space
-                    , Str "like"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "can"
-                    , Space
-                    , Str "get"
-                    , Space
-                    , Str "on"
-                    , Space
-                    , Str "with"
-                    , Space
-                    , Str "it,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Others"
-                    , Space
-                    , Str "can"
-                    , Space
-                    , Str "pick"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "choose"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "can't."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "But"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "Albert"
-                    , Space
-                    , Str "makes"
-                    , Space
-                    , Str "off,"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "won't"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "for"
-                    , Space
-                    , Str "lack"
-                    , Space
-                    , Str "of"
-                    , SoftBreak
-                    , Str "telling."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "You"
-                    , Space
-                    , Str "ought"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "ashamed,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "look"
-                    , Space
-                    , Str "so"
-                    , Space
-                    , Str "antique."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "(And"
-                    , Space
-                    , Str "her"
-                    , Space
-                    , Str "only"
-                    , Space
-                    , Str "thirty-one.)"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "I"
-                    , Space
-                    , Str "can't"
-                    , Space
-                    , Str "help"
-                    , Space
-                    , Str "it,"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "said,"
-                    , Space
-                    , Str "pulling"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "long"
-                    , Space
-                    , Str "face,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "It's"
-                    , Space
-                    , Str "them"
-                    , Space
-                    , Str "pills"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "took,"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "bring"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "off,"
-                    , Space
-                    , Str "she"
-                    , Space
-                    , Str "said."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "(She's"
-                    , Space
-                    , Str "had"
-                    , Space
-                    , Str "five"
-                    , Space
-                    , Str "already,"
-                    , Space
-                    , Str "and"
-                    , Space
-                    , Str "nearly"
-                    , Space
-                    , Str "died"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "young"
-                    , Space
-                    , Str "George.)"
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "160" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "The"
-                    , Space
-                    , Str "chemist"
-                    , Space
-                    , Str "said"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "would"
-                    , Space
-                    , Str "be"
-                    , Space
-                    , Str "all"
-                    , Space
-                    , Str "right,"
-                    , Space
-                    , Str "but"
-                    , Space
-                    , Str "I've"
-                    , Space
-                    , Str "never"
-                    , Space
-                    , Str "been"
-                    , Space
-                    , Str "the"
-                    , SoftBreak
-                    , Str "same."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "You"
-                    , Space
-                    , Emph [ Str "are" ]
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "proper"
-                    , Space
-                    , Str "fool,"
-                    , Space
-                    , Str "I"
-                    , Space
-                    , Str "said."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Well,"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "Albert"
-                    , Space
-                    , Str "won't"
-                    , Space
-                    , Str "leave"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "alone,"
-                    , Space
-                    , Str "there"
-                    , Space
-                    , Str "it"
-                    , Space
-                    , Str "is,"
-                    , Space
-                    , Str "I"
-                    , SoftBreak
-                    , Str "said,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "What"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "get"
-                    , Space
-                    , Str "married"
-                    , Space
-                    , Str "for"
-                    , Space
-                    , Str "if"
-                    , Space
-                    , Str "you"
-                    , Space
-                    , Str "don't"
-                    , Space
-                    , Str "want"
-                    , Space
-                    , Str "children?"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "HURRY"
-                    , Space
-                    , Str "UP"
-                    , Space
-                    , Str "PLEASE"
-                    , Space
-                    , Str "ITS"
-                    , Space
-                    , Str "TIME"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Well,"
-                    , Space
-                    , Str "that"
-                    , Space
-                    , Str "Sunday"
-                    , Space
-                    , Str "Albert"
-                    , Space
-                    , Str "was"
-                    , Space
-                    , Str "home,"
-                    , Space
-                    , Str "they"
-                    , Space
-                    , Str "had"
-                    , Space
-                    , Str "a"
-                    , Space
-                    , Str "hot"
-                    , SoftBreak
-                    , Str "gammon,"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "And"
-                    , Space
-                    , Str "they"
-                    , Space
-                    , Str "asked"
-                    , Space
-                    , Str "me"
-                    , Space
-                    , Str "in"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "dinner,"
-                    , Space
-                    , Str "to"
-                    , Space
-                    , Str "get"
-                    , Space
-                    , Str "the"
-                    , Space
-                    , Str "beauty"
-                    , Space
-                    , Str "of"
-                    , Space
-                    , Str "it"
-                    , SoftBreak
-                    , Str "hot\8213"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "HURRY"
-                    , Space
-                    , Str "UP"
-                    , Space
-                    , Str "PLEASE"
-                    , Space
-                    , Str "ITS"
-                    , Space
-                    , Str "TIME"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "HURRY"
-                    , Space
-                    , Str "UP"
-                    , Space
-                    , Str "PLEASE"
-                    , Space
-                    , Str "ITS"
-                    , Space
-                    , Str "TIME"
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Goonight"
-                    , Space
-                    , Str "Bill."
-                    , Space
-                    , Str "Goonight"
-                    , Space
-                    , Str "Lou."
-                    , Space
-                    , Str "Goonight"
-                    , Space
-                    , Str "May."
-                    , Space
-                    , Str "Goonight."
-                    , Span ( "" , [ "lnum" ] , [] ) [ Str "170" ]
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Ta"
-                    , Space
-                    , Str "ta."
-                    , Space
-                    , Str "Goonight."
-                    , Space
-                    , Str "Goonight."
-                    ]
-                ]
-            , Div
-                ( "" , [] , [] )
-                [ Plain
-                    [ Str "Good"
-                    , Space
-                    , Str "night,"
-                    , Space
-                    , Str "ladies,"
-                    , Space
-                    , Str "good"
-                    , Space
-                    , Str "night,"
-                    , Space
-                    , Str "sweet"
-                    , Space
-                    , Str "ladies,"
-                    , Space
-                    , Str "good"
-                    , Space
-                    , Str "night,"
-                    , Space
-                    , Str "good"
-                    , SoftBreak
-                    , Str "night."
-                    ]
-                ]
-            ]
-        ]
-    ]
-, Div
-    ( "wasteland-content.xhtml#backmatter"
-    , [ "section" , "backmatter" ]
-    , []
-    )
-    [ Div
-        ( "wasteland-content.xhtml#rearnotes"
-        , [ "rearnotes" ]
-        , []
-        )
-        [ Header
-            2
-            ( "" , [] , [] )
-            [ Str "NOTES"
-            , Space
-            , Str "ON"
-            , Space
-            , Str "\"THE"
-            , Space
-            , Str "WASTE"
-            , Space
-            , Str "LAND\""
-            ]
-        , Para
-            [ Str "Not"
-            , Space
-            , Str "only"
-            , Space
-            , Str "the"
-            , Space
-            , Str "title,"
-            , Space
-            , Str "but"
-            , Space
-            , Str "the"
-            , Space
-            , Str "plan"
-            , Space
-            , Str "and"
-            , Space
-            , Str "a"
-            , Space
-            , Str "good"
-            , Space
-            , Str "deal"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "incidental"
-            , Space
-            , Str "symbolism"
-            , Space
-            , Str "of"
-            , SoftBreak
-            , Str "the"
-            , Space
-            , Str "poem"
-            , Space
-            , Str "were"
-            , Space
-            , Str "suggested"
-            , Space
-            , Str "by"
-            , Space
-            , Str "Miss"
-            , Space
-            , Str "Jessie"
-            , Space
-            , Str "L."
-            , Space
-            , Str "Weston's"
-            , Space
-            , Str "book"
-            , Space
-            , Str "on"
-            , Space
-            , Str "the"
-            , Space
-            , Str "Grail"
-            , Space
-            , Str "legend:"
-            , SoftBreak
-            , Str "From"
-            , Space
-            , Str "Ritual"
-            , Space
-            , Str "to"
-            , Space
-            , Str "Romance"
-            ]
-        , Para
-            [ Str "Indeed,"
-            , Space
-            , Str "so"
-            , Space
-            , Str "deeply"
-            , Space
-            , Str "am"
-            , Space
-            , Str "I"
-            , Space
-            , Str "indebted,"
-            , Space
-            , Str "Miss"
-            , Space
-            , Str "Weston's"
-            , Space
-            , Str "book"
-            , Space
-            , Str "will"
-            , Space
-            , Str "elucidate"
-            , Space
-            , Str "the"
-            , SoftBreak
-            , Str "difficulties"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "poem"
-            , Space
-            , Str "much"
-            , Space
-            , Str "better"
-            , Space
-            , Str "than"
-            , Space
-            , Str "my"
-            , Space
-            , Str "notes"
-            , Space
-            , Str "can"
-            , Space
-            , Str "do;"
-            , Space
-            , Str "and"
-            , Space
-            , Str "I"
-            , Space
-            , Str "recommend"
-            , Space
-            , Str "it"
-            , SoftBreak
-            , Str "(apart"
-            , Space
-            , Str "from"
-            , Space
-            , Str "the"
-            , Space
-            , Str "great"
-            , Space
-            , Str "interest"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "book"
-            , Space
-            , Str "itself)"
-            , Space
-            , Str "to"
-            , Space
-            , Str "any"
-            , Space
-            , Str "who"
-            , Space
-            , Str "think"
-            , Space
-            , Str "such"
-            , SoftBreak
-            , Str "elucidation"
-            , Space
-            , Str "of"
-            , Space
-            , Str "the"
-            , Space
-            , Str "poem"
-            , Space
-            , Str "worth"
-            , Space
-            , Str "the"
-            , Space
-            , Str "trouble."
-            , Space
-            , Str "To"
-            , Space
-            , Str "another"
-            , Space
-            , Str "work"
-            , Space
-            , Str "of"
-            , Space
-            , Str "anthropology"
-            , Space
-            , Str "I"
-            , Space
-            , Str "am"
-            , SoftBreak
-            , Str "indebted"
-            , Space
-            , Str "in"
-            , Space
-            , Str "general,"
-            , Space
-            , Str "one"
-            , Space
-            , Str "which"
-            , Space
-            , Str "has"
-            , Space
-            , Str "influenced"
-            , Space
-            , Str "our"
-            , Space
-            , Str "generation"
-            , Space
-            , Str "profoundly;"
-            , Space
-            , Str "I"
-            , Space
-            , Str "mean"
-            , SoftBreak
-            , Str "The"
-            , Space
-            , Str "Golden"
-            , Space
-            , Str "Bough;"
-            , Space
-            , Str "I"
-            , Space
-            , Str "have"
-            , Space
-            , Str "used"
-            , Space
-            , Str "especially"
-            , Space
-            , Str "the"
-            , Space
-            , Str "two"
-            , Space
-            , Str "volumes"
-            , Space
-            , Str "Adonis,"
-            , Space
-            , Str "Attis,"
-            , Space
-            , Str "Osiris."
-            , SoftBreak
-            , Str "Anyone"
-            , Space
-            , Str "who"
-            , Space
-            , Str "is"
-            , Space
-            , Str "acquainted"
-            , Space
-            , Str "with"
-            , Space
-            , Str "these"
-            , Space
-            , Str "works"
-            , Space
-            , Str "will"
-            , Space
-            , Str "immediately"
-            , Space
-            , Str "recognise"
-            , Space
-            , Str "in"
-            , Space
-            , Str "the"
-            , Space
-            , Str "poem"
-            , SoftBreak
-            , Str "certain"
-            , Space
-            , Str "references"
-            , Space
-            , Str "to"
-            , Space
-            , Str "vegetation"
-            , Space
-            , Str "ceremonies."
-            ]
-        , Div
-            ( "" , [ "section" ] , [] )
-            [ Header
-                3
-                ( "" , [] , [] )
-                [ Str "I."
-                , Space
-                , Str "THE"
-                , Space
-                , Str "BURIAL"
-                , Space
-                , Str "OF"
-                , Space
-                , Str "THE"
-                , Space
-                , Str "DEAD"
-                ]
-            ]
-        , Div
-            ( "" , [ "section" ] , [] )
-            [ Header
-                3
-                ( "" , [] , [] )
-                [ Str "II."
-                , Space
-                , Str "A"
-                , Space
-                , Str "GAME"
-                , Space
-                , Str "OF"
-                , Space
-                , Str "CHESS"
-                ]
-            ]
-        ]
-    ]
-]
+Pandoc
+  Meta
+    { unMeta =
+        fromList
+          [ ( "author" , MetaInlines [ Str "T.S. Eliot" ] )
+          , ( "date" , MetaInlines [ Str "2011-09-01" ] )
+          , ( "identifier"
+            , MetaInlines
+                [ Str "code.google.com.epub-samples.wasteland-basic" ]
+            )
+          , ( "language" , MetaInlines [ Str "en-US" ] )
+          , ( "rights"
+            , MetaInlines
+                [ Str
+                    "This work is shared with the public using the Attribution-ShareAlike 3.0 Unported (CC BY-SA 3.0) license."
+                ]
+            )
+          , ( "title" , MetaInlines [ Str "The Waste Land" ] )
+          ]
+    }
+  [ Para
+      [ Image ( "" , [] , [] ) [] ( "wasteland-cover.jpg" , "" ) ]
+  , Para [ Span ( "wasteland-content.xhtml" , [] , [] ) [] ]
+  , Div
+      ( "wasteland-content.xhtml_frontmatter"
+      , [ "section" , "frontmatter" ]
+      , []
+      )
+      []
+  , Div
+      ( "wasteland-content.xhtml_bodymatter"
+      , [ "section" , "bodymatter" ]
+      , []
+      )
+      [ Div
+          ( "wasteland-content.xhtml_ch1" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "I."
+              , Space
+              , Str "THE"
+              , Space
+              , Str "BURIAL"
+              , Space
+              , Str "OF"
+              , Space
+              , Str "THE"
+              , Space
+              , Str "DEAD"
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "April"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "cruellest"
+                      , Space
+                      , Str "month,"
+                      , Space
+                      , Str "breeding"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Lilacs"
+                      , Space
+                      , Str "out"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "dead"
+                      , Space
+                      , Str "land,"
+                      , Space
+                      , Str "mixing"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Memory"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "desire,"
+                      , Space
+                      , Str "stirring"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Dull"
+                      , Space
+                      , Str "roots"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "spring"
+                      , Space
+                      , Str "rain."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Winter"
+                      , Space
+                      , Str "kept"
+                      , Space
+                      , Str "us"
+                      , Space
+                      , Str "warm,"
+                      , Space
+                      , Str "covering"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Earth"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "forgetful"
+                      , Space
+                      , Str "snow,"
+                      , Space
+                      , Str "feeding"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "A"
+                      , Space
+                      , Str "little"
+                      , Space
+                      , Str "life"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "dried"
+                      , Space
+                      , Str "tubers."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Summer"
+                      , Space
+                      , Str "surprised"
+                      , Space
+                      , Str "us,"
+                      , Space
+                      , Str "coming"
+                      , Space
+                      , Str "over"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Starnbergersee"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "With"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "shower"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "rain;"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "stopped"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "colonnade,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "went"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "sunlight,"
+                      , Space
+                      , Str "into"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Hofgarten,"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "10" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "drank"
+                      , Space
+                      , Str "coffee,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "talked"
+                      , Space
+                      , Str "for"
+                      , Space
+                      , Str "an"
+                      , Space
+                      , Str "hour."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [ ( "lang" , "de" ) ] )
+                  [ Plain
+                      [ Str "Bin"
+                      , Space
+                      , Str "gar"
+                      , Space
+                      , Str "keine"
+                      , Space
+                      , Str "Russin,"
+                      , Space
+                      , Str "stamm'"
+                      , Space
+                      , Str "aus"
+                      , Space
+                      , Str "Litauen,"
+                      , Space
+                      , Str "echt"
+                      , SoftBreak
+                      , Str "deutsch."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "when"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "were"
+                      , Space
+                      , Str "children,"
+                      , Space
+                      , Str "staying"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "archduke's,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "My"
+                      , Space
+                      , Str "cousin's,"
+                      , Space
+                      , Str "he"
+                      , Space
+                      , Str "took"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "out"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "sled,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "was"
+                      , Space
+                      , Str "frightened."
+                      , Space
+                      , Str "He"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "Marie,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Marie,"
+                      , Space
+                      , Str "hold"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "tight."
+                      , Space
+                      , Str "And"
+                      , Space
+                      , Str "down"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "went."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "In"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "mountains,"
+                      , Space
+                      , Str "there"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "feel"
+                      , Space
+                      , Str "free."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "read,"
+                      , Space
+                      , Str "much"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "night,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "go"
+                      , Space
+                      , Str "south"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "winter."
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "What"
+                      , Space
+                      , Str "are"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "roots"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "clutch,"
+                      , Space
+                      , Str "what"
+                      , Space
+                      , Str "branches"
+                      , Space
+                      , Str "grow"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln20" , [] , [] )
+                  [ Plain
+                      [ Str "Out"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "this"
+                      , Space
+                      , Str "stony"
+                      , Space
+                      , Str "rubbish?"
+                      , Space
+                      , Str "Son"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "man,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "Line" , Space , Str "20." ]
+                                  ( "#wasteland-content.xhtml_ln20"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Ezekiel"
+                              , Space
+                              , Str "2:1."
+                              ]
+                          ]
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "20" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "You"
+                      , Space
+                      , Str "cannot"
+                      , Space
+                      , Str "say,"
+                      , Space
+                      , Str "or"
+                      , Space
+                      , Str "guess,"
+                      , Space
+                      , Str "for"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "know"
+                      , Space
+                      , Str "only"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "A"
+                      , Space
+                      , Str "heap"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "broken"
+                      , Space
+                      , Str "images,"
+                      , Space
+                      , Str "where"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "sun"
+                      , Space
+                      , Str "beats,"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln23" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "dead"
+                      , Space
+                      , Str "tree"
+                      , Space
+                      , Str "gives"
+                      , Space
+                      , Str "no"
+                      , Space
+                      , Str "shelter,"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "cricket"
+                      , Space
+                      , Str "no"
+                      , Space
+                      , Str "relief,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "23." ]
+                                  ( "#wasteland-content.xhtml_ln23"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Ecclesiastes"
+                              , Space
+                              , Str "12:5."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "dry"
+                      , Space
+                      , Str "stone"
+                      , Space
+                      , Str "no"
+                      , Space
+                      , Str "sound"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "water."
+                      , Space
+                      , Str "Only"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "There"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "shadow"
+                      , Space
+                      , Str "under"
+                      , Space
+                      , Str "this"
+                      , Space
+                      , Str "red"
+                      , Space
+                      , Str "rock,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "(Come"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "under"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "shadow"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "this"
+                      , Space
+                      , Str "red"
+                      , Space
+                      , Str "rock),"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "will"
+                      , Space
+                      , Str "show"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "something"
+                      , Space
+                      , Str "different"
+                      , Space
+                      , Str "from"
+                      , Space
+                      , Str "either"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Your"
+                      , Space
+                      , Str "shadow"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "morning"
+                      , Space
+                      , Str "striding"
+                      , Space
+                      , Str "behind"
+                      , Space
+                      , Str "you"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Or"
+                      , Space
+                      , Str "your"
+                      , Space
+                      , Str "shadow"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "evening"
+                      , Space
+                      , Str "rising"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "meet"
+                      , Space
+                      , Str "you;"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "will"
+                      , Space
+                      , Str "show"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "fear"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "handful"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "dust."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "30" ]
+                      ]
+                  ]
+              , BlockQuote
+                  [ Div
+                      ( "" , [] , [] )
+                      [ Div
+                          ( "wasteland-content.xhtml_ln31" , [] , [] )
+                          [ Plain
+                              [ Str "Frisch"
+                              , Space
+                              , Str "weht"
+                              , Space
+                              , Str "der"
+                              , Space
+                              , Str "Wind"
+                              , Note
+                                  [ Para
+                                      [ Link
+                                          ( "" , [] , [] )
+                                          [ Str "31." ]
+                                          ( "#wasteland-content.xhtml_ln31"
+                                          , ""
+                                          )
+                                      , Space
+                                      , Str "V."
+                                      , Space
+                                      , Str "Tristan"
+                                      , Space
+                                      , Str "und"
+                                      , Space
+                                      , Str "Isolde,"
+                                      , Space
+                                      , Str "i,"
+                                      , Space
+                                      , Str "verses"
+                                      , Space
+                                      , Str "5-8."
+                                      ]
+                                  ]
+                              ]
+                          ]
+                      , Div
+                          ( "" , [] , [] )
+                          [ Plain
+                              [ Str "Der"
+                              , Space
+                              , Str "Heimat"
+                              , Space
+                              , Str "zu"
+                              ]
+                          ]
+                      , Div
+                          ( "" , [] , [] )
+                          [ Plain
+                              [ Str "Mein"
+                              , Space
+                              , Str "Irisch"
+                              , Space
+                              , Str "Kind,"
+                              ]
+                          ]
+                      , Div
+                          ( "" , [] , [] )
+                          [ Plain
+                              [ Str "Wo"
+                              , Space
+                              , Str "weilest"
+                              , Space
+                              , Str "du?"
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"You"
+                      , Space
+                      , Str "gave"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "hyacinths"
+                      , Space
+                      , Str "first"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "year"
+                      , Space
+                      , Str "ago;"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"They"
+                      , Space
+                      , Str "called"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "hyacinth"
+                      , Space
+                      , Str "girl.\""
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\8213Yet"
+                      , Space
+                      , Str "when"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "came"
+                      , Space
+                      , Str "back,"
+                      , Space
+                      , Str "late,"
+                      , Space
+                      , Str "from"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Hyacinth"
+                      , SoftBreak
+                      , Str "garden,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Your"
+                      , Space
+                      , Str "arms"
+                      , Space
+                      , Str "full,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "your"
+                      , Space
+                      , Str "hair"
+                      , Space
+                      , Str "wet,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "could"
+                      , Space
+                      , Str "not"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Speak,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "my"
+                      , Space
+                      , Str "eyes"
+                      , Space
+                      , Str "failed,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "was"
+                      , Space
+                      , Str "neither"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Living"
+                      , Space
+                      , Str "nor"
+                      , Space
+                      , Str "dead,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "knew"
+                      , Space
+                      , Str "nothing,"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "40" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Looking"
+                      , Space
+                      , Str "into"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "heart"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "light,"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "silence."
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln42"
+                  , []
+                  , [ ( "lang" , "de" ) ]
+                  )
+                  [ Plain
+                      [ Emph
+                          [ Str "Od'"
+                          , Space
+                          , Str "und"
+                          , Space
+                          , Str "leer"
+                          , Space
+                          , Str "das"
+                          , Space
+                          , Str "Meer"
+                          ]
+                      , Str "."
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "42." ]
+                                  ( "#wasteland-content.xhtml_ln42"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Id."
+                              , Space
+                              , Str "iii,"
+                              , Space
+                              , Str "verse"
+                              , Space
+                              , Str "24."
+                              ]
+                          ]
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Madame"
+                      , Space
+                      , Str "Sosostris,"
+                      , Space
+                      , Str "famous"
+                      , Space
+                      , Str "clairvoyante,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Had"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "bad"
+                      , Space
+                      , Str "cold,"
+                      , Space
+                      , Str "nevertheless"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Is"
+                      , Space
+                      , Str "known"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "wisest"
+                      , Space
+                      , Str "woman"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "Europe,"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln46" , [] , [] )
+                  [ Plain
+                      [ Str "With"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "wicked"
+                      , Space
+                      , Str "pack"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "cards."
+                      , Space
+                      , Str "Here,"
+                      , Space
+                      , Str "said"
+                      , Space
+                      , Str "she,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "46." ]
+                                  ( "#wasteland-content.xhtml_ln46"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "I"
+                              , Space
+                              , Str "am"
+                              , Space
+                              , Str "not"
+                              , Space
+                              , Str "familiar"
+                              , Space
+                              , Str "with"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "exact"
+                              , Space
+                              , Str "constitution"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "Tarot"
+                              , Space
+                              , Str "pack"
+                              , Space
+                              , Str "of"
+                              , SoftBreak
+                              , Str "cards,"
+                              , Space
+                              , Str "from"
+                              , Space
+                              , Str "which"
+                              , Space
+                              , Str "I"
+                              , Space
+                              , Str "have"
+                              , Space
+                              , Str "obviously"
+                              , Space
+                              , Str "departed"
+                              , Space
+                              , Str "to"
+                              , Space
+                              , Str "suit"
+                              , Space
+                              , Str "my"
+                              , Space
+                              , Str "own"
+                              , Space
+                              , Str "convenience."
+                              , SoftBreak
+                              , Str "The"
+                              , Space
+                              , Str "Hanged"
+                              , Space
+                              , Str "Man,"
+                              , Space
+                              , Str "a"
+                              , Space
+                              , Str "member"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "traditional"
+                              , Space
+                              , Str "pack,"
+                              , Space
+                              , Str "fits"
+                              , Space
+                              , Str "my"
+                              , Space
+                              , Str "purpose"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "two"
+                              , SoftBreak
+                              , Str "ways:"
+                              , Space
+                              , Str "because"
+                              , Space
+                              , Str "he"
+                              , Space
+                              , Str "is"
+                              , Space
+                              , Str "associated"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "my"
+                              , Space
+                              , Str "mind"
+                              , Space
+                              , Str "with"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "Hanged"
+                              , Space
+                              , Str "God"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "Frazer,"
+                              , SoftBreak
+                              , Str "and"
+                              , Space
+                              , Str "because"
+                              , Space
+                              , Str "I"
+                              , Space
+                              , Str "associate"
+                              , Space
+                              , Str "him"
+                              , Space
+                              , Str "with"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "hooded"
+                              , Space
+                              , Str "figure"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "passage"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "the"
+                              , SoftBreak
+                              , Str "disciples"
+                              , Space
+                              , Str "to"
+                              , Space
+                              , Str "Emmaus"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "Part"
+                              , Space
+                              , Str "V."
+                              , Space
+                              , Str "The"
+                              , Space
+                              , Str "Phoenician"
+                              , Space
+                              , Str "Sailor"
+                              , Space
+                              , Str "and"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "Merchant"
+                              , SoftBreak
+                              , Str "appear"
+                              , Space
+                              , Str "later;"
+                              , Space
+                              , Str "also"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "\"crowds"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "people,\""
+                              , Space
+                              , Str "and"
+                              , Space
+                              , Str "Death"
+                              , Space
+                              , Str "by"
+                              , Space
+                              , Str "Water"
+                              , Space
+                              , Str "is"
+                              , SoftBreak
+                              , Str "executed"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "Part"
+                              , Space
+                              , Str "IV."
+                              , Space
+                              , Str "The"
+                              , Space
+                              , Str "Man"
+                              , Space
+                              , Str "with"
+                              , Space
+                              , Str "Three"
+                              , Space
+                              , Str "Staves"
+                              , Space
+                              , Str "(an"
+                              , Space
+                              , Str "authentic"
+                              , Space
+                              , Str "member"
+                              , Space
+                              , Str "of"
+                              , SoftBreak
+                              , Str "the"
+                              , Space
+                              , Str "Tarot"
+                              , Space
+                              , Str "pack)"
+                              , Space
+                              , Str "I"
+                              , Space
+                              , Str "associate,"
+                              , Space
+                              , Str "quite"
+                              , Space
+                              , Str "arbitrarily,"
+                              , Space
+                              , Str "with"
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "Fisher"
+                              , Space
+                              , Str "King"
+                              , SoftBreak
+                              , Str "himself."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Is"
+                      , Space
+                      , Str "your"
+                      , Space
+                      , Str "card,"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "drowned"
+                      , Space
+                      , Str "Phoenician"
+                      , Space
+                      , Str "Sailor,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "(Those"
+                      , Space
+                      , Str "are"
+                      , Space
+                      , Str "pearls"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "were"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "eyes."
+                      , Space
+                      , Str "Look!)"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Here"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "Belladonna,"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Lady"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Rocks,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "lady"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "situations."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "50" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Here"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "man"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "three"
+                      , Space
+                      , Str "staves,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "here"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Wheel,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "here"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "one-eyed"
+                      , Space
+                      , Str "merchant,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "this"
+                      , Space
+                      , Str "card,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Which"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "blank,"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "something"
+                      , Space
+                      , Str "he"
+                      , Space
+                      , Str "carries"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "back,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Which"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "am"
+                      , Space
+                      , Str "forbidden"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "see."
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "do"
+                      , Space
+                      , Str "not"
+                      , Space
+                      , Str "find"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "Hanged"
+                      , Space
+                      , Str "Man."
+                      , Space
+                      , Str "Fear"
+                      , Space
+                      , Str "death"
+                      , Space
+                      , Str "by"
+                      , Space
+                      , Str "water."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "see"
+                      , Space
+                      , Str "crowds"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "people,"
+                      , Space
+                      , Str "walking"
+                      , Space
+                      , Str "round"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "ring."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Thank"
+                      , Space
+                      , Str "you."
+                      , Space
+                      , Str "If"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "see"
+                      , Space
+                      , Str "dear"
+                      , Space
+                      , Str "Mrs."
+                      , Space
+                      , Str "Equitone,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Tell"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "bring"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "horoscope"
+                      , Space
+                      , Str "myself:"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "One"
+                      , Space
+                      , Str "must"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "so"
+                      , Space
+                      , Str "careful"
+                      , Space
+                      , Str "these"
+                      , Space
+                      , Str "days."
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "wasteland-content.xhtml_ln60" , [] , [] )
+                  [ Plain
+                      [ Str "Unreal"
+                      , Space
+                      , Str "City,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "60." ]
+                                  ( "#wasteland-content.xhtml_ln60"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Baudelaire:"
+                              ]
+                          , BlockQuote
+                              [ Para
+                                  [ Str "\"Fourmillante"
+                                  , Space
+                                  , Str "cite;,"
+                                  , Space
+                                  , Str "cite;"
+                                  , Space
+                                  , Str "pleine"
+                                  , Space
+                                  , Str "de"
+                                  , Space
+                                  , Str "reves,"
+                                  , LineBreak
+                                  , Str "Ou"
+                                  , Space
+                                  , Str "le"
+                                  , Space
+                                  , Str "spectre"
+                                  , Space
+                                  , Str "en"
+                                  , SoftBreak
+                                  , Str "plein"
+                                  , Space
+                                  , Str "jour"
+                                  , Space
+                                  , Str "raccroche"
+                                  , Space
+                                  , Str "le"
+                                  , Space
+                                  , Str "passant.\""
+                                  ]
+                              ]
+                          ]
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "60" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Under"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "brown"
+                      , Space
+                      , Str "fog"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "winter"
+                      , Space
+                      , Str "dawn,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "A"
+                      , Space
+                      , Str "crowd"
+                      , Space
+                      , Str "flowed"
+                      , Space
+                      , Str "over"
+                      , Space
+                      , Str "London"
+                      , Space
+                      , Str "Bridge,"
+                      , Space
+                      , Str "so"
+                      , Space
+                      , Str "many,"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln63" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "had"
+                      , Space
+                      , Str "not"
+                      , Space
+                      , Str "thought"
+                      , Space
+                      , Str "death"
+                      , Space
+                      , Str "had"
+                      , Space
+                      , Str "undone"
+                      , Space
+                      , Str "so"
+                      , Space
+                      , Str "many."
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "63." ]
+                                  ( "#wasteland-content.xhtml_ln63"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Inferno,"
+                              , Space
+                              , Str "iii."
+                              , Space
+                              , Str "55-7."
+                              ]
+                          , BlockQuote
+                              [ Para
+                                  [ Str "\"si"
+                                  , Space
+                                  , Str "lunga"
+                                  , Space
+                                  , Str "tratta"
+                                  , LineBreak
+                                  , Str "di"
+                                  , Space
+                                  , Str "gente,"
+                                  , Space
+                                  , Str "ch'io"
+                                  , Space
+                                  , Str "non"
+                                  , Space
+                                  , Str "avrei"
+                                  , Space
+                                  , Str "mai"
+                                  , Space
+                                  , Str "creduto"
+                                  , LineBreak
+                                  , Str "che"
+                                  , SoftBreak
+                                  , Str "morte"
+                                  , Space
+                                  , Str "tanta"
+                                  , Space
+                                  , Str "n'avesse"
+                                  , Space
+                                  , Str "disfatta.\""
+                                  ]
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln64" , [] , [] )
+                  [ Plain
+                      [ Str "Sighs,"
+                      , Space
+                      , Str "short"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "infrequent,"
+                      , Space
+                      , Str "were"
+                      , Space
+                      , Str "exhaled,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "64." ]
+                                  ( "#wasteland-content.xhtml_ln64"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Inferno,"
+                              , Space
+                              , Str "iv."
+                              , Space
+                              , Str "25-7:"
+                              ]
+                          , BlockQuote
+                              [ Para
+                                  [ Str "\"Quivi,"
+                                  , Space
+                                  , Str "secondo"
+                                  , Space
+                                  , Str "che"
+                                  , Space
+                                  , Str "per"
+                                  , Space
+                                  , Str "ascoltahre,"
+                                  , LineBreak
+                                  , Str "\"non"
+                                  , Space
+                                  , Str "avea"
+                                  , Space
+                                  , Str "pianto,"
+                                  , Space
+                                  , Str "ma'"
+                                  , Space
+                                  , Str "che"
+                                  , Space
+                                  , Str "di"
+                                  , SoftBreak
+                                  , Str "sospiri,"
+                                  , LineBreak
+                                  , Str "\"che"
+                                  , Space
+                                  , Str "l'aura"
+                                  , Space
+                                  , Str "eterna"
+                                  , Space
+                                  , Str "facevan"
+                                  , Space
+                                  , Str "tremare.\""
+                                  ]
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "each"
+                      , Space
+                      , Str "man"
+                      , Space
+                      , Str "fixed"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "eyes"
+                      , Space
+                      , Str "before"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "feet."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Flowed"
+                      , Space
+                      , Str "up"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "hill"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "down"
+                      , Space
+                      , Str "King"
+                      , Space
+                      , Str "William"
+                      , Space
+                      , Str "Street,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "To"
+                      , Space
+                      , Str "where"
+                      , Space
+                      , Str "Saint"
+                      , Space
+                      , Str "Mary"
+                      , Space
+                      , Str "Woolnoth"
+                      , Space
+                      , Str "kept"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "hours"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln68" , [] , [] )
+                  [ Plain
+                      [ Str "With"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "dead"
+                      , Space
+                      , Str "sound"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "final"
+                      , Space
+                      , Str "stroke"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "nine."
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "68." ]
+                                  ( "#wasteland-content.xhtml_ln68"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "A"
+                              , Space
+                              , Str "phenomenon"
+                              , Space
+                              , Str "which"
+                              , Space
+                              , Str "I"
+                              , Space
+                              , Str "have"
+                              , Space
+                              , Str "often"
+                              , Space
+                              , Str "noticed."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "There"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "saw"
+                      , Space
+                      , Str "one"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "knew,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "stopped"
+                      , Space
+                      , Str "him,"
+                      , Space
+                      , Str "crying"
+                      , SoftBreak
+                      , Str "\"Stetson!"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"You"
+                      , Space
+                      , Str "who"
+                      , Space
+                      , Str "were"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "ships"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "Mylae!"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "70" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"That"
+                      , Space
+                      , Str "corpse"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "planted"
+                      , Space
+                      , Str "last"
+                      , Space
+                      , Str "year"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "your"
+                      , Space
+                      , Str "garden,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"Has"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "begun"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "sprout?"
+                      , Space
+                      , Str "Will"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "bloom"
+                      , Space
+                      , Str "this"
+                      , Space
+                      , Str "year?"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"Or"
+                      , Space
+                      , Str "has"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "sudden"
+                      , Space
+                      , Str "frost"
+                      , Space
+                      , Str "disturbed"
+                      , Space
+                      , Str "its"
+                      , Space
+                      , Str "bed?"
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "wasteland-content.xhtml_ln74" , [] , [] )
+                  [ Plain
+                      [ Str "\"Oh"
+                      , Space
+                      , Str "keep"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "Dog"
+                      , Space
+                      , Str "far"
+                      , Space
+                      , Str "hence,"
+                      , Space
+                      , Str "that's"
+                      , Space
+                      , Str "friend"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "men,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "74." ]
+                                  ( "#wasteland-content.xhtml_ln74"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "Dirge"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "Webster's"
+                              , Space
+                              , Str "White"
+                              , Space
+                              , Str "Devil"
+                              , Space
+                              , Str "."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"Or"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "nails"
+                      , Space
+                      , Str "he'll"
+                      , Space
+                      , Str "dig"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "up"
+                      , Space
+                      , Str "again!"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln76" , [] , [] )
+                  [ Plain
+                      [ Str "\"You!"
+                      , Space
+                      , Span
+                          ( "" , [] , [ ( "lang" , "fr" ) ] )
+                          [ Str "hypocrite"
+                          , Space
+                          , Str "lecteur!"
+                          , Space
+                          , Str "-"
+                          , Space
+                          , Str "mon"
+                          , Space
+                          , Str "semblable,"
+                          , Space
+                          , Str "-"
+                          , SoftBreak
+                          , Str "mon"
+                          , Space
+                          , Str "frere"
+                          ]
+                      , Space
+                      , Str "!\""
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "76." ]
+                                  ( "#wasteland-content.xhtml_ln76"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "V."
+                              , Space
+                              , Str "Baudelaire,"
+                              , Space
+                              , Str "Preface"
+                              , Space
+                              , Str "to"
+                              , Space
+                              , Str "Fleurs"
+                              , Space
+                              , Str "du"
+                              , Space
+                              , Str "Mal."
+                              ]
+                          ]
+                      ]
+                  ]
+              ]
+          ]
+      , Div
+          ( "wasteland-content.xhtml_ch2" , [ "section" ] , [] )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "II."
+              , Space
+              , Str "A"
+              , Space
+              , Str "GAME"
+              , Space
+              , Str "OF"
+              , Space
+              , Str "CHESS"
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "wasteland-content.xhtml_ln77" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "Chair"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "sat"
+                      , Space
+                      , Str "in,"
+                      , Space
+                      , Str "like"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "burnished"
+                      , Space
+                      , Str "throne,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "77." ]
+                                  ( "#wasteland-content.xhtml_ln77"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Antony"
+                              , Space
+                              , Str "and"
+                              , Space
+                              , Str "Cleopatra,"
+                              , Space
+                              , Str "II."
+                              , Space
+                              , Str "ii.,"
+                              , Space
+                              , Str "l."
+                              , Space
+                              , Str "190."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Glowed"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "marble,"
+                      , Space
+                      , Str "where"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "glass"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Held"
+                      , Space
+                      , Str "up"
+                      , Space
+                      , Str "by"
+                      , Space
+                      , Str "standards"
+                      , Space
+                      , Str "wrought"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "fruited"
+                      , Space
+                      , Str "vines"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "From"
+                      , Space
+                      , Str "which"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "golden"
+                      , Space
+                      , Str "Cupidon"
+                      , Space
+                      , Str "peeped"
+                      , Space
+                      , Str "out"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "80" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "(Another"
+                      , Space
+                      , Str "hid"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "eyes"
+                      , Space
+                      , Str "behind"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "wing)"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Doubled"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "flames"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "sevenbranched"
+                      , Space
+                      , Str "candelabra"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Reflecting"
+                      , Space
+                      , Str "light"
+                      , Space
+                      , Str "upon"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "table"
+                      , Space
+                      , Str "as"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "glitter"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "jewels"
+                      , Space
+                      , Str "rose"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "meet"
+                      , Space
+                      , Str "it,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "From"
+                      , Space
+                      , Str "satin"
+                      , Space
+                      , Str "cases"
+                      , Space
+                      , Str "poured"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "rich"
+                      , Space
+                      , Str "profusion;"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "In"
+                      , Space
+                      , Str "vials"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "ivory"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "coloured"
+                      , Space
+                      , Str "glass"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Unstoppered,"
+                      , Space
+                      , Str "lurked"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "strange"
+                      , Space
+                      , Str "synthetic"
+                      , Space
+                      , Str "perfumes,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Unguent,"
+                      , Space
+                      , Str "powdered,"
+                      , Space
+                      , Str "or"
+                      , Space
+                      , Str "liquid"
+                      , Space
+                      , Str "-"
+                      , Space
+                      , Str "troubled,"
+                      , Space
+                      , Str "confused"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "drowned"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "sense"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "odours;"
+                      , Space
+                      , Str "stirred"
+                      , Space
+                      , Str "by"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "air"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "That"
+                      , Space
+                      , Str "freshened"
+                      , Space
+                      , Str "from"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "window,"
+                      , Space
+                      , Str "these"
+                      , Space
+                      , Str "ascended"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "90" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "In"
+                      , Space
+                      , Str "fattening"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "prolonged"
+                      , Space
+                      , Str "candle-flames,"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln92" , [] , [] )
+                  [ Plain
+                      [ Str "Flung"
+                      , Space
+                      , Str "their"
+                      , Space
+                      , Str "smoke"
+                      , Space
+                      , Str "into"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "laquearia,"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "92." ]
+                                  ( "#wasteland-content.xhtml_ln92"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Laquearia."
+                              , Space
+                              , Str "V."
+                              , Space
+                              , Str "Aeneid,"
+                              , Space
+                              , Str "I."
+                              , Space
+                              , Str "726:"
+                              ]
+                          , BlockQuote
+                              [ Para
+                                  [ Str "dependent"
+                                  , Space
+                                  , Str "lychni"
+                                  , Space
+                                  , Str "laquearibus"
+                                  , Space
+                                  , Str "aureis"
+                                  , Space
+                                  , Str "incensi,"
+                                  , Space
+                                  , Str "et"
+                                  , Space
+                                  , Str "noctem"
+                                  , SoftBreak
+                                  , Str "flammis"
+                                  , LineBreak
+                                  , Str "funalia"
+                                  , Space
+                                  , Str "vincunt."
+                                  ]
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Stirring"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "pattern"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "coffered"
+                      , Space
+                      , Str "ceiling."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Huge"
+                      , Space
+                      , Str "sea-wood"
+                      , Space
+                      , Str "fed"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "copper"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Burned"
+                      , Space
+                      , Str "green"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "orange,"
+                      , Space
+                      , Str "framed"
+                      , Space
+                      , Str "by"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "coloured"
+                      , Space
+                      , Str "stone,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "In"
+                      , Space
+                      , Str "which"
+                      , Space
+                      , Str "sad"
+                      , Space
+                      , Str "light"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "carved"
+                      , Space
+                      , Str "dolphin"
+                      , Space
+                      , Str "swam."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Above"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "antique"
+                      , Space
+                      , Str "mantel"
+                      , Space
+                      , Str "was"
+                      , Space
+                      , Str "displayed"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln98" , [] , [] )
+                  [ Plain
+                      [ Str "As"
+                      , Space
+                      , Str "though"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "window"
+                      , Space
+                      , Str "gave"
+                      , Space
+                      , Str "upon"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "sylvan"
+                      , Space
+                      , Str "scene"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "98." ]
+                                  ( "#wasteland-content.xhtml_ln98"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Sylvan"
+                              , Space
+                              , Str "scene."
+                              , Space
+                              , Str "V."
+                              , Space
+                              , Str "Milton,"
+                              , Space
+                              , Str "Paradise"
+                              , Space
+                              , Str "Lost,"
+                              , Space
+                              , Str "iv."
+                              , Space
+                              , Str "140."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln99" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "change"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "Philomel,"
+                      , Space
+                      , Str "by"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "barbarous"
+                      , Space
+                      , Str "king"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "99." ]
+                                  ( "#wasteland-content.xhtml_ln99"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "V."
+                              , Space
+                              , Str "Ovid,"
+                              , Space
+                              , Str "Metamorphoses,"
+                              , Space
+                              , Str "vi,"
+                              , Space
+                              , Str "Philomela."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln100" , [] , [] )
+                  [ Plain
+                      [ Str "So"
+                      , Space
+                      , Str "rudely"
+                      , Space
+                      , Str "forced;"
+                      , Space
+                      , Str "yet"
+                      , Space
+                      , Str "there"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "nightingale"
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "100." ]
+                                  ( "#wasteland-content.xhtml_ln100"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Part"
+                              , Space
+                              , Str "III,"
+                              , Space
+                              , Str "l."
+                              , Space
+                              , Str "204."
+                              ]
+                          ]
+                      , SoftBreak
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "100" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Filled"
+                      , Space
+                      , Str "all"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "desert"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "inviolable"
+                      , Space
+                      , Str "voice"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "still"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "cried,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "still"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "world"
+                      , Space
+                      , Str "pursues,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"Jug"
+                      , Space
+                      , Str "Jug\""
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "dirty"
+                      , Space
+                      , Str "ears."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "other"
+                      , Space
+                      , Str "withered"
+                      , Space
+                      , Str "stumps"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "time"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Were"
+                      , Space
+                      , Str "told"
+                      , Space
+                      , Str "upon"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "walls;"
+                      , Space
+                      , Str "staring"
+                      , Space
+                      , Str "forms"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Leaned"
+                      , Space
+                      , Str "out,"
+                      , Space
+                      , Str "leaning,"
+                      , Space
+                      , Str "hushing"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "room"
+                      , Space
+                      , Str "enclosed."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Footsteps"
+                      , Space
+                      , Str "shuffled"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "stair."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Under"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "firelight,"
+                      , Space
+                      , Str "under"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "brush,"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "hair"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Spread"
+                      , Space
+                      , Str "out"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "fiery"
+                      , Space
+                      , Str "points"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Glowed"
+                      , Space
+                      , Str "into"
+                      , Space
+                      , Str "words,"
+                      , Space
+                      , Str "then"
+                      , Space
+                      , Str "would"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "savagely"
+                      , Space
+                      , Str "still."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "110" ]
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [ "linegroup" ] , [] )
+                  [ Div
+                      ( "" , [] , [] )
+                      [ Plain
+                          [ Str "\"My"
+                          , Space
+                          , Str "nerves"
+                          , Space
+                          , Str "are"
+                          , Space
+                          , Str "bad"
+                          , Space
+                          , Str "to-night."
+                          , Space
+                          , Str "Yes,"
+                          , Space
+                          , Str "bad."
+                          , Space
+                          , Str "Stay"
+                          , Space
+                          , Str "with"
+                          , Space
+                          , Str "me."
+                          ]
+                      ]
+                  , Div
+                      ( "" , [] , [] )
+                      [ Plain
+                          [ Str "\"Speak"
+                          , Space
+                          , Str "to"
+                          , Space
+                          , Str "me."
+                          , Space
+                          , Str "Why"
+                          , Space
+                          , Str "do"
+                          , Space
+                          , Str "you"
+                          , Space
+                          , Str "never"
+                          , Space
+                          , Str "speak."
+                          , Space
+                          , Str "Speak."
+                          ]
+                      ]
+                  , Div
+                      ( "" , [] , [] )
+                      [ Plain
+                          [ Str "\"What"
+                          , Space
+                          , Str "are"
+                          , Space
+                          , Str "you"
+                          , Space
+                          , Str "thinking"
+                          , Space
+                          , Str "of?"
+                          , Space
+                          , Str "What"
+                          , Space
+                          , Str "thinking?"
+                          , Space
+                          , Str "What?"
+                          ]
+                      ]
+                  , Div
+                      ( "" , [] , [] )
+                      [ Plain
+                          [ Str "\"I"
+                          , Space
+                          , Str "never"
+                          , Space
+                          , Str "know"
+                          , Space
+                          , Str "what"
+                          , Space
+                          , Str "you"
+                          , Space
+                          , Str "are"
+                          , Space
+                          , Str "thinking."
+                          , Space
+                          , Str "Think.\""
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [ "linegroup" ] , [] )
+                  [ Div
+                      ( "wasteland-content.xhtml_ln115" , [] , [] )
+                      [ Plain
+                          [ Str "I"
+                          , Space
+                          , Str "think"
+                          , Space
+                          , Str "we"
+                          , Space
+                          , Str "are"
+                          , Space
+                          , Str "in"
+                          , Space
+                          , Str "rats'"
+                          , Space
+                          , Str "alley"
+                          , Note
+                              [ Para
+                                  [ Link
+                                      ( "" , [] , [] )
+                                      [ Str "115." ]
+                                      ( "#wasteland-content.xhtml_ln115"
+                                      , ""
+                                      )
+                                  , Space
+                                  , Str "Cf."
+                                  , Space
+                                  , Str "Part"
+                                  , Space
+                                  , Str "III,"
+                                  , Space
+                                  , Str "l."
+                                  , Space
+                                  , Str "195."
+                                  ]
+                              ]
+                          ]
+                      ]
+                  , Div
+                      ( "" , [] , [] )
+                      [ Plain
+                          [ Str "Where"
+                          , Space
+                          , Str "the"
+                          , Space
+                          , Str "dead"
+                          , Space
+                          , Str "men"
+                          , Space
+                          , Str "lost"
+                          , Space
+                          , Str "their"
+                          , Space
+                          , Str "bones."
+                          ]
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"What"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "noise?\""
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln118"
+                  , [ "indent" ]
+                  , []
+                  )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "wind"
+                      , Space
+                      , Str "under"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "door."
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "118." ]
+                                  ( "#wasteland-content.xhtml_ln118"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Webster:"
+                              ]
+                          , BlockQuote
+                              [ Para
+                                  [ Str "\"Is"
+                                  , Space
+                                  , Str "the"
+                                  , Space
+                                  , Str "wind"
+                                  , Space
+                                  , Str "in"
+                                  , Space
+                                  , Str "that"
+                                  , Space
+                                  , Str "door"
+                                  , Space
+                                  , Str "still?\""
+                                  ]
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"What"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "noise"
+                      , Space
+                      , Str "now?"
+                      , Space
+                      , Str "What"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "wind"
+                      , Space
+                      , Str "doing?\""
+                      ]
+                  ]
+              , Div
+                  ( "" , [ "indent" ] , [] )
+                  [ Plain
+                      [ Str "Nothing"
+                      , Space
+                      , Str "again"
+                      , Space
+                      , Str "nothing."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "120" ]
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div ( "" , [] , [] ) [ Plain [ Str "\"Do" ] ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"You"
+                      , Space
+                      , Str "know"
+                      , Space
+                      , Str "nothing?"
+                      , Space
+                      , Str "Do"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "see"
+                      , Space
+                      , Str "nothing?"
+                      , Space
+                      , Str "Do"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "remember"
+                      ]
+                  ]
+              , Div ( "" , [] , [] ) [ Plain [ Str "\"Nothing?\"" ] ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain [ Str "I" , Space , Str "remember" ] ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Those"
+                      , Space
+                      , Str "are"
+                      , Space
+                      , Str "pearls"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "were"
+                      , Space
+                      , Str "his"
+                      , Space
+                      , Str "eyes."
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln126" , [] , [] )
+                  [ Plain
+                      [ Str "\"Are"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "alive,"
+                      , Space
+                      , Str "or"
+                      , Space
+                      , Str "not?"
+                      , Space
+                      , Str "Is"
+                      , Space
+                      , Str "there"
+                      , Space
+                      , Str "nothing"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "your"
+                      , Space
+                      , Str "head?\""
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "126." ]
+                                  ( "#wasteland-content.xhtml_ln126"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "Part"
+                              , Space
+                              , Str "I,"
+                              , Space
+                              , Str "l."
+                              , Space
+                              , Str "37,"
+                              , Space
+                              , Str "48."
+                              ]
+                          ]
+                      ]
+                  ]
+              , Div ( "" , [] , [] ) [ Plain [ Str "But" ] ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "O"
+                      , Space
+                      , Str "O"
+                      , Space
+                      , Str "O"
+                      , Space
+                      , Str "O"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "Shakespeherian"
+                      , Space
+                      , Str "Rag\8213"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "It's"
+                      , Space
+                      , Str "so"
+                      , Space
+                      , Str "elegant"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "So"
+                      , Space
+                      , Str "intelligent"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "130" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"What"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "do"
+                      , Space
+                      , Str "now?"
+                      , Space
+                      , Str "What"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "do?\""
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "rush"
+                      , Space
+                      , Str "out"
+                      , Space
+                      , Str "as"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "am,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "walk"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "street"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"With"
+                      , Space
+                      , Str "my"
+                      , Space
+                      , Str "hair"
+                      , Space
+                      , Str "down,"
+                      , Space
+                      , Str "so."
+                      , Space
+                      , Str "What"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "do"
+                      , Space
+                      , Str "to-morrow?"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "\"What"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "ever"
+                      , Space
+                      , Str "do?\""
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "hot"
+                      , Space
+                      , Str "water"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "ten."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "rains,"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "closed"
+                      , Space
+                      , Str "car"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "four."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "we"
+                      , Space
+                      , Str "shall"
+                      , Space
+                      , Str "play"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "game"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "chess,"
+                      ]
+                  ]
+              , Div
+                  ( "wasteland-content.xhtml_ln138" , [] , [] )
+                  [ Plain
+                      [ Str "Pressing"
+                      , Space
+                      , Str "lidless"
+                      , Space
+                      , Str "eyes"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "waiting"
+                      , Space
+                      , Str "for"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "knock"
+                      , Space
+                      , Str "upon"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "door."
+                      , Note
+                          [ Para
+                              [ Link
+                                  ( "" , [] , [] )
+                                  [ Str "138." ]
+                                  ( "#wasteland-content.xhtml_ln138"
+                                  , ""
+                                  )
+                              , Space
+                              , Str "Cf."
+                              , Space
+                              , Str "the"
+                              , Space
+                              , Str "game"
+                              , Space
+                              , Str "of"
+                              , Space
+                              , Str "chess"
+                              , Space
+                              , Str "in"
+                              , Space
+                              , Str "Middleton's"
+                              , Space
+                              , Str "Women"
+                              , Space
+                              , Str "beware"
+                              , Space
+                              , Str "Women."
+                              ]
+                          ]
+                      ]
+                  ]
+              ]
+          , Div
+              ( "" , [ "linegroup" ] , [] )
+              [ Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "When"
+                      , Space
+                      , Str "Lil's"
+                      , Space
+                      , Str "husband"
+                      , Space
+                      , Str "got"
+                      , Space
+                      , Str "demobbed,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said"
+                      , Space
+                      , Str "-"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "didn't"
+                      , Space
+                      , Str "mince"
+                      , Space
+                      , Str "my"
+                      , Space
+                      , Str "words,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "myself,"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "140" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "HURRY"
+                      , Space
+                      , Str "UP"
+                      , Space
+                      , Str "PLEASE"
+                      , Space
+                      , Str "ITS"
+                      , Space
+                      , Str "TIME"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Now"
+                      , Space
+                      , Str "Albert's"
+                      , Space
+                      , Str "coming"
+                      , Space
+                      , Str "back,"
+                      , Space
+                      , Str "make"
+                      , Space
+                      , Str "yourself"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "bit"
+                      , Space
+                      , Str "smart."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "He'll"
+                      , Space
+                      , Str "want"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "know"
+                      , Space
+                      , Str "what"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "done"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "money"
+                      , Space
+                      , Str "he"
+                      , Space
+                      , Str "gave"
+                      , SoftBreak
+                      , Str "you"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "To"
+                      , Space
+                      , Str "get"
+                      , Space
+                      , Str "yourself"
+                      , Space
+                      , Str "some"
+                      , Space
+                      , Str "teeth."
+                      , Space
+                      , Str "He"
+                      , Space
+                      , Str "did,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "was"
+                      , Space
+                      , Str "there."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "You"
+                      , Space
+                      , Str "have"
+                      , Space
+                      , Str "them"
+                      , Space
+                      , Str "all"
+                      , Space
+                      , Str "out,"
+                      , Space
+                      , Str "Lil,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "get"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "nice"
+                      , Space
+                      , Str "set,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "He"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "swear,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "can't"
+                      , Space
+                      , Str "bear"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "look"
+                      , Space
+                      , Str "at"
+                      , Space
+                      , Str "you."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "no"
+                      , Space
+                      , Str "more"
+                      , Space
+                      , Str "can't"
+                      , Space
+                      , Str "I,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "think"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "poor"
+                      , Space
+                      , Str "Albert,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "He's"
+                      , Space
+                      , Str "been"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "army"
+                      , Space
+                      , Str "four"
+                      , Space
+                      , Str "years,"
+                      , Space
+                      , Str "he"
+                      , Space
+                      , Str "wants"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "good"
+                      , Space
+                      , Str "time,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "don't"
+                      , Space
+                      , Str "give"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "him,"
+                      , Space
+                      , Str "there's"
+                      , Space
+                      , Str "others"
+                      , Space
+                      , Str "will,"
+                      , Space
+                      , Str "I"
+                      , SoftBreak
+                      , Str "said."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Oh"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "there,"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "said."
+                      , Space
+                      , Str "Something"
+                      , Space
+                      , Str "o'"
+                      , Space
+                      , Str "that,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "150" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Then"
+                      , Space
+                      , Str "I'll"
+                      , Space
+                      , Str "know"
+                      , Space
+                      , Str "who"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "thank,"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "give"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "straight"
+                      , SoftBreak
+                      , Str "look."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "HURRY"
+                      , Space
+                      , Str "UP"
+                      , Space
+                      , Str "PLEASE"
+                      , Space
+                      , Str "ITS"
+                      , Space
+                      , Str "TIME"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "If"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "don't"
+                      , Space
+                      , Str "like"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "can"
+                      , Space
+                      , Str "get"
+                      , Space
+                      , Str "on"
+                      , Space
+                      , Str "with"
+                      , Space
+                      , Str "it,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Others"
+                      , Space
+                      , Str "can"
+                      , Space
+                      , Str "pick"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "choose"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "can't."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "But"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "Albert"
+                      , Space
+                      , Str "makes"
+                      , Space
+                      , Str "off,"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "won't"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "for"
+                      , Space
+                      , Str "lack"
+                      , Space
+                      , Str "of"
+                      , SoftBreak
+                      , Str "telling."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "You"
+                      , Space
+                      , Str "ought"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "ashamed,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "look"
+                      , Space
+                      , Str "so"
+                      , Space
+                      , Str "antique."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "(And"
+                      , Space
+                      , Str "her"
+                      , Space
+                      , Str "only"
+                      , Space
+                      , Str "thirty-one.)"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "I"
+                      , Space
+                      , Str "can't"
+                      , Space
+                      , Str "help"
+                      , Space
+                      , Str "it,"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "said,"
+                      , Space
+                      , Str "pulling"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "long"
+                      , Space
+                      , Str "face,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "It's"
+                      , Space
+                      , Str "them"
+                      , Space
+                      , Str "pills"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "took,"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "bring"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "off,"
+                      , Space
+                      , Str "she"
+                      , Space
+                      , Str "said."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "(She's"
+                      , Space
+                      , Str "had"
+                      , Space
+                      , Str "five"
+                      , Space
+                      , Str "already,"
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Str "nearly"
+                      , Space
+                      , Str "died"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "young"
+                      , Space
+                      , Str "George.)"
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "160" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "The"
+                      , Space
+                      , Str "chemist"
+                      , Space
+                      , Str "said"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "would"
+                      , Space
+                      , Str "be"
+                      , Space
+                      , Str "all"
+                      , Space
+                      , Str "right,"
+                      , Space
+                      , Str "but"
+                      , Space
+                      , Str "I've"
+                      , Space
+                      , Str "never"
+                      , Space
+                      , Str "been"
+                      , Space
+                      , Str "the"
+                      , SoftBreak
+                      , Str "same."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "You"
+                      , Space
+                      , Emph [ Str "are" ]
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "proper"
+                      , Space
+                      , Str "fool,"
+                      , Space
+                      , Str "I"
+                      , Space
+                      , Str "said."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Well,"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "Albert"
+                      , Space
+                      , Str "won't"
+                      , Space
+                      , Str "leave"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "alone,"
+                      , Space
+                      , Str "there"
+                      , Space
+                      , Str "it"
+                      , Space
+                      , Str "is,"
+                      , Space
+                      , Str "I"
+                      , SoftBreak
+                      , Str "said,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "What"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "get"
+                      , Space
+                      , Str "married"
+                      , Space
+                      , Str "for"
+                      , Space
+                      , Str "if"
+                      , Space
+                      , Str "you"
+                      , Space
+                      , Str "don't"
+                      , Space
+                      , Str "want"
+                      , Space
+                      , Str "children?"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "HURRY"
+                      , Space
+                      , Str "UP"
+                      , Space
+                      , Str "PLEASE"
+                      , Space
+                      , Str "ITS"
+                      , Space
+                      , Str "TIME"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Well,"
+                      , Space
+                      , Str "that"
+                      , Space
+                      , Str "Sunday"
+                      , Space
+                      , Str "Albert"
+                      , Space
+                      , Str "was"
+                      , Space
+                      , Str "home,"
+                      , Space
+                      , Str "they"
+                      , Space
+                      , Str "had"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "hot"
+                      , SoftBreak
+                      , Str "gammon,"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "And"
+                      , Space
+                      , Str "they"
+                      , Space
+                      , Str "asked"
+                      , Space
+                      , Str "me"
+                      , Space
+                      , Str "in"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "dinner,"
+                      , Space
+                      , Str "to"
+                      , Space
+                      , Str "get"
+                      , Space
+                      , Str "the"
+                      , Space
+                      , Str "beauty"
+                      , Space
+                      , Str "of"
+                      , Space
+                      , Str "it"
+                      , SoftBreak
+                      , Str "hot\8213"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "HURRY"
+                      , Space
+                      , Str "UP"
+                      , Space
+                      , Str "PLEASE"
+                      , Space
+                      , Str "ITS"
+                      , Space
+                      , Str "TIME"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "HURRY"
+                      , Space
+                      , Str "UP"
+                      , Space
+                      , Str "PLEASE"
+                      , Space
+                      , Str "ITS"
+                      , Space
+                      , Str "TIME"
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Goonight"
+                      , Space
+                      , Str "Bill."
+                      , Space
+                      , Str "Goonight"
+                      , Space
+                      , Str "Lou."
+                      , Space
+                      , Str "Goonight"
+                      , Space
+                      , Str "May."
+                      , Space
+                      , Str "Goonight."
+                      , Span ( "" , [ "lnum" ] , [] ) [ Str "170" ]
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Ta"
+                      , Space
+                      , Str "ta."
+                      , Space
+                      , Str "Goonight."
+                      , Space
+                      , Str "Goonight."
+                      ]
+                  ]
+              , Div
+                  ( "" , [] , [] )
+                  [ Plain
+                      [ Str "Good"
+                      , Space
+                      , Str "night,"
+                      , Space
+                      , Str "ladies,"
+                      , Space
+                      , Str "good"
+                      , Space
+                      , Str "night,"
+                      , Space
+                      , Str "sweet"
+                      , Space
+                      , Str "ladies,"
+                      , Space
+                      , Str "good"
+                      , Space
+                      , Str "night,"
+                      , Space
+                      , Str "good"
+                      , SoftBreak
+                      , Str "night."
+                      ]
+                  ]
+              ]
+          ]
+      ]
+  , Div
+      ( "wasteland-content.xhtml_backmatter"
+      , [ "section" , "backmatter" ]
+      , []
+      )
+      [ Div
+          ( "wasteland-content.xhtml_rearnotes"
+          , [ "rearnotes" ]
+          , []
+          )
+          [ Header
+              2
+              ( "" , [] , [] )
+              [ Str "NOTES"
+              , Space
+              , Str "ON"
+              , Space
+              , Str "\"THE"
+              , Space
+              , Str "WASTE"
+              , Space
+              , Str "LAND\""
+              ]
+          , Para
+              [ Str "Not"
+              , Space
+              , Str "only"
+              , Space
+              , Str "the"
+              , Space
+              , Str "title,"
+              , Space
+              , Str "but"
+              , Space
+              , Str "the"
+              , Space
+              , Str "plan"
+              , Space
+              , Str "and"
+              , Space
+              , Str "a"
+              , Space
+              , Str "good"
+              , Space
+              , Str "deal"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "incidental"
+              , Space
+              , Str "symbolism"
+              , Space
+              , Str "of"
+              , SoftBreak
+              , Str "the"
+              , Space
+              , Str "poem"
+              , Space
+              , Str "were"
+              , Space
+              , Str "suggested"
+              , Space
+              , Str "by"
+              , Space
+              , Str "Miss"
+              , Space
+              , Str "Jessie"
+              , Space
+              , Str "L."
+              , Space
+              , Str "Weston's"
+              , Space
+              , Str "book"
+              , Space
+              , Str "on"
+              , Space
+              , Str "the"
+              , Space
+              , Str "Grail"
+              , Space
+              , Str "legend:"
+              , SoftBreak
+              , Str "From"
+              , Space
+              , Str "Ritual"
+              , Space
+              , Str "to"
+              , Space
+              , Str "Romance"
+              ]
+          , Para
+              [ Str "Indeed,"
+              , Space
+              , Str "so"
+              , Space
+              , Str "deeply"
+              , Space
+              , Str "am"
+              , Space
+              , Str "I"
+              , Space
+              , Str "indebted,"
+              , Space
+              , Str "Miss"
+              , Space
+              , Str "Weston's"
+              , Space
+              , Str "book"
+              , Space
+              , Str "will"
+              , Space
+              , Str "elucidate"
+              , Space
+              , Str "the"
+              , SoftBreak
+              , Str "difficulties"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "poem"
+              , Space
+              , Str "much"
+              , Space
+              , Str "better"
+              , Space
+              , Str "than"
+              , Space
+              , Str "my"
+              , Space
+              , Str "notes"
+              , Space
+              , Str "can"
+              , Space
+              , Str "do;"
+              , Space
+              , Str "and"
+              , Space
+              , Str "I"
+              , Space
+              , Str "recommend"
+              , Space
+              , Str "it"
+              , SoftBreak
+              , Str "(apart"
+              , Space
+              , Str "from"
+              , Space
+              , Str "the"
+              , Space
+              , Str "great"
+              , Space
+              , Str "interest"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "book"
+              , Space
+              , Str "itself)"
+              , Space
+              , Str "to"
+              , Space
+              , Str "any"
+              , Space
+              , Str "who"
+              , Space
+              , Str "think"
+              , Space
+              , Str "such"
+              , SoftBreak
+              , Str "elucidation"
+              , Space
+              , Str "of"
+              , Space
+              , Str "the"
+              , Space
+              , Str "poem"
+              , Space
+              , Str "worth"
+              , Space
+              , Str "the"
+              , Space
+              , Str "trouble."
+              , Space
+              , Str "To"
+              , Space
+              , Str "another"
+              , Space
+              , Str "work"
+              , Space
+              , Str "of"
+              , Space
+              , Str "anthropology"
+              , Space
+              , Str "I"
+              , Space
+              , Str "am"
+              , SoftBreak
+              , Str "indebted"
+              , Space
+              , Str "in"
+              , Space
+              , Str "general,"
+              , Space
+              , Str "one"
+              , Space
+              , Str "which"
+              , Space
+              , Str "has"
+              , Space
+              , Str "influenced"
+              , Space
+              , Str "our"
+              , Space
+              , Str "generation"
+              , Space
+              , Str "profoundly;"
+              , Space
+              , Str "I"
+              , Space
+              , Str "mean"
+              , SoftBreak
+              , Str "The"
+              , Space
+              , Str "Golden"
+              , Space
+              , Str "Bough;"
+              , Space
+              , Str "I"
+              , Space
+              , Str "have"
+              , Space
+              , Str "used"
+              , Space
+              , Str "especially"
+              , Space
+              , Str "the"
+              , Space
+              , Str "two"
+              , Space
+              , Str "volumes"
+              , Space
+              , Str "Adonis,"
+              , Space
+              , Str "Attis,"
+              , Space
+              , Str "Osiris."
+              , SoftBreak
+              , Str "Anyone"
+              , Space
+              , Str "who"
+              , Space
+              , Str "is"
+              , Space
+              , Str "acquainted"
+              , Space
+              , Str "with"
+              , Space
+              , Str "these"
+              , Space
+              , Str "works"
+              , Space
+              , Str "will"
+              , Space
+              , Str "immediately"
+              , Space
+              , Str "recognise"
+              , Space
+              , Str "in"
+              , Space
+              , Str "the"
+              , Space
+              , Str "poem"
+              , SoftBreak
+              , Str "certain"
+              , Space
+              , Str "references"
+              , Space
+              , Str "to"
+              , Space
+              , Str "vegetation"
+              , Space
+              , Str "ceremonies."
+              ]
+          , Div
+              ( "" , [ "section" ] , [] )
+              [ Header
+                  3
+                  ( "" , [] , [] )
+                  [ Str "I."
+                  , Space
+                  , Str "THE"
+                  , Space
+                  , Str "BURIAL"
+                  , Space
+                  , Str "OF"
+                  , Space
+                  , Str "THE"
+                  , Space
+                  , Str "DEAD"
+                  ]
+              ]
+          , Div
+              ( "" , [ "section" ] , [] )
+              [ Header
+                  3
+                  ( "" , [] , [] )
+                  [ Str "II."
+                  , Space
+                  , Str "A"
+                  , Space
+                  , Str "GAME"
+                  , Space
+                  , Str "OF"
+                  , Space
+                  , Str "CHESS"
+                  ]
+              ]
+          ]
+      ]
+  ]
diff --git a/test/pptx/comparison/both-columns/templated.pptx b/test/pptx/comparison/both-columns/templated.pptx
Binary files a/test/pptx/comparison/both-columns/templated.pptx and b/test/pptx/comparison/both-columns/templated.pptx differ
diff --git a/test/pptx/comparison/extra-image/templated.pptx b/test/pptx/comparison/extra-image/templated.pptx
Binary files a/test/pptx/comparison/extra-image/templated.pptx and b/test/pptx/comparison/extra-image/templated.pptx differ
diff --git a/test/pptx/comparison/extra-text/templated.pptx b/test/pptx/comparison/extra-text/templated.pptx
Binary files a/test/pptx/comparison/extra-text/templated.pptx and b/test/pptx/comparison/extra-text/templated.pptx differ
diff --git a/test/pptx/comparison/non-text-first/templated.pptx b/test/pptx/comparison/non-text-first/templated.pptx
Binary files a/test/pptx/comparison/non-text-first/templated.pptx and b/test/pptx/comparison/non-text-first/templated.pptx differ
diff --git a/test/pptx/comparison/one-column/templated.pptx b/test/pptx/comparison/one-column/templated.pptx
Binary files a/test/pptx/comparison/one-column/templated.pptx and b/test/pptx/comparison/one-column/templated.pptx differ
diff --git a/test/pptx/footer/basic/output.pptx b/test/pptx/footer/basic/output.pptx
Binary files a/test/pptx/footer/basic/output.pptx and b/test/pptx/footer/basic/output.pptx differ
diff --git a/test/pptx/footer/fixed-date/output.pptx b/test/pptx/footer/fixed-date/output.pptx
Binary files a/test/pptx/footer/fixed-date/output.pptx and b/test/pptx/footer/fixed-date/output.pptx differ
diff --git a/test/pptx/footer/higher-slide-number/output.pptx b/test/pptx/footer/higher-slide-number/output.pptx
Binary files a/test/pptx/footer/higher-slide-number/output.pptx and b/test/pptx/footer/higher-slide-number/output.pptx differ
diff --git a/test/pptx/footer/no-title-slide/output.pptx b/test/pptx/footer/no-title-slide/output.pptx
Binary files a/test/pptx/footer/no-title-slide/output.pptx and b/test/pptx/footer/no-title-slide/output.pptx differ
diff --git a/test/tables.djot b/test/tables.djot
new file mode 100644
--- /dev/null
+++ b/test/tables.djot
@@ -0,0 +1,54 @@
+Simple table with caption:
+
+| Right | Left | Center | Default |
+|------:|:-----|:------:|-------|
+|    12 | 12   |   12   | 12      |
+|   123 | 123  |  123   | 123     |
+|     1 | 1    |   1    | 1       |
+
+^ Demonstration of simple table syntax.
+
+Simple table without caption:
+
+| Right | Left | Center | Default |
+|------:|:-----|:------:|-------|
+|    12 | 12   |   12   | 12      |
+|   123 | 123  |  123   | 123     |
+|     1 | 1    |   1    | 1       |
+
+Simple table indented two spaces:
+
+| Right | Left | Center | Default |
+|------:|:-----|:------:|-------|
+|    12 | 12   |   12   | 12      |
+|   123 | 123  |  123   | 123     |
+|     1 | 1    |   1    | 1       |
+
+^ Demonstration of simple table syntax.
+
+Multiline table with caption:
+
+| Centered Header | Left Aligned | Right Aligned | Default aligned                                       |
+|:---------------:|:-------------|--------------:|:------------------------------------------------------|
+|      First      | row          |          12.0 | Example of a row that spans multiple lines.           |
+|     Second      | row          |           5.0 | Here's another one. Note the blank line between rows. |
+
+^ Here's the caption. It may span multiple lines.
+
+Multiline table without caption:
+
+| Centered Header | Left Aligned | Right Aligned | Default aligned                                       |
+|:---------------:|:-------------|--------------:|:------------------------------------------------------|
+|      First      | row          |          12.0 | Example of a row that spans multiple lines.           |
+|     Second      | row          |           5.0 | Here's another one. Note the blank line between rows. |
+
+Table without column headers:
+
+|  12 | 12  | 12  |  12 |
+| 123 | 123 | 123 | 123 |
+|   1 | 1   |  1  |   1 |
+
+Multiline table without column headers:
+
+| First  | row | 12.0 | Example of a row that spans multiple lines.           |
+| Second | row |  5.0 | Here's another one. Note the blank line between rows. |
diff --git a/test/typst-reader.native b/test/typst-reader.native
--- a/test/typst-reader.native
+++ b/test/typst-reader.native
@@ -1674,7 +1674,7 @@
           , Space
           , Str "or"
           , Space
-          , Math InlineMath "\\underset{\175}{A}"
+          , Math InlineMath "\\overline{A}"
           , Space
           , Str "with"
           , Space
@@ -1847,8 +1847,7 @@
                           [ Para
                               [ Span
                                   ( "" , [ "box" ] , [] )
-                                  [ Math
-                                      InlineMath "\\overset{\\cdot}{a}"
+                                  [ Math InlineMath "\\dot{a}"
                                   , Str "\8192"
                                   , Code ( "" , [] , [] ) "dot(a)"
                                   ]
@@ -1862,8 +1861,7 @@
                           [ Para
                               [ Span
                                   ( "" , [ "box" ] , [] )
-                                  [ Math
-                                      InlineMath "\\overset{\\sim}{a}"
+                                  [ Math InlineMath "\\widetilde{a}"
                                   , Str "\8192"
                                   , Code ( "" , [] , [] ) "tilde(a)"
                                   ]
@@ -1895,7 +1893,7 @@
                           [ Para
                               [ Span
                                   ( "" , [ "box" ] , [] )
-                                  [ Math InlineMath "\\overset{\168}{a}"
+                                  [ Math InlineMath "\\ddot{a}"
                                   , Str "\8192"
                                   , Code ( "" , [] , [] ) "diaer(a)"
                                   ]
@@ -2042,7 +2040,7 @@
           , Space
           , Str "produces"
           , Space
-          , Math InlineMath "\\underset{\175}{x + y}"
+          , Math InlineMath "\\overline{x + y}"
           , Str ","
           , Space
           , Str "and"
@@ -4045,7 +4043,7 @@
                                   ( "" , [ "box" ] , [] )
                                   [ Math
                                       InlineMath
-                                      "\\left. \\parallel{} \\right.\\parallel"
+                                      "\\left\\| {} \\right\\|"
                                   , Str "\8192"
                                   , Code ( "" , [] , [] ) "norm(\"\")"
                                   ]
diff --git a/test/writer.djot b/test/writer.djot
new file mode 100644
--- /dev/null
+++ b/test/writer.djot
@@ -0,0 +1,749 @@
+# Pandoc Test Suite
+
+John MacFarlane
+Anonymous
+
+July 17, 2006
+
+This is a set of tests for pandoc. Most of them are adapted from John Gruber's
+markdown test suite.
+
+* * * *
+
+{#headers}
+# Headers
+
+{#level-2-with-an-embedded-link}
+## Level 2 with an [embedded link](/url)
+
+{#level-3-with-emphasis}
+### Level 3 with _emphasis_
+
+{#level-4}
+#### Level 4
+
+{#level-5}
+##### Level 5
+
+{#level-1}
+# Level 1
+
+{#level-2-with-emphasis}
+## Level 2 with _emphasis_
+
+{#level-3}
+### Level 3
+
+with no blank line
+
+{#level-2}
+## Level 2
+
+with no blank line
+
+* * * *
+
+{#paragraphs}
+# Paragraphs
+
+Here's a regular paragraph.
+
+In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item.
+Because a hard-wrapped line in the middle of a paragraph looked like a list
+item.
+
+Here's one with a bullet. \* criminey.
+
+There should be a hard line break\
+here.
+
+* * * *
+
+{#block-quotes}
+# Block Quotes
+
+E-mail style:
+
+> This is a block quote. It is pretty short.
+
+> Code in a block quote:
+>
+> ```
+> sub status {
+>     print "working";
+> }
+> ```
+>
+> A list:
+>
+> 1. item one
+> 2. item two
+>
+> Nested block quotes:
+>
+> > nested
+>
+> > nested
+
+This should not be a block quote: 2 \> 1.
+
+And a following paragraph.
+
+* * * *
+
+{#code-blocks}
+# Code Blocks
+
+Code:
+
+```
+---- (should be four hyphens)
+
+sub status {
+    print "working";
+}
+
+this code block is indented by one tab
+```
+
+And:
+
+```
+    this code block is indented by two tabs
+
+These should not be escaped:  \$ \\ \> \[ \{
+```
+
+* * * *
+
+{#lists}
+# Lists
+
+{#unordered}
+## Unordered
+
+Asterisks tight:
+
+- asterisk 1
+- asterisk 2
+- asterisk 3
+
+Asterisks loose:
+
+- asterisk 1
+
+- asterisk 2
+
+- asterisk 3
+
+Pluses tight:
+
+- Plus 1
+- Plus 2
+- Plus 3
+
+Pluses loose:
+
+- Plus 1
+
+- Plus 2
+
+- Plus 3
+
+Minuses tight:
+
+- Minus 1
+- Minus 2
+- Minus 3
+
+Minuses loose:
+
+- Minus 1
+
+- Minus 2
+
+- Minus 3
+
+{#ordered}
+## Ordered
+
+Tight:
+
+1. First
+2. Second
+3. Third
+
+and:
+
+1. One
+2. Two
+3. Three
+
+Loose using tabs:
+
+1. First
+
+2. Second
+
+3. Third
+
+and using spaces:
+
+1. One
+
+2. Two
+
+3. Three
+
+Multiple paragraphs:
+
+1. Item 1, graf one.
+
+   Item 1. graf two. The quick brown fox jumped over the lazy dog's back.
+
+2. Item 2.
+
+3. Item 3.
+
+{#nested}
+## Nested
+
+- Tab
+
+  - Tab
+
+    - Tab
+
+Here's another:
+
+1. First
+2. Second:
+
+   - Fee
+   - Fie
+   - Foe
+3. Third
+
+Same thing but with paragraphs:
+
+1. First
+
+2. Second:
+
+   - Fee
+   - Fie
+   - Foe
+
+3. Third
+
+{#tabs-and-spaces}
+## Tabs and spaces
+
+- this is a list item indented with tabs
+
+- this is a list item indented with spaces
+
+  - this is an example list item indented with tabs
+
+  - this is an example list item indented with spaces
+
+{#fancy-list-markers}
+## Fancy list markers
+
+(2) begins with 2
+
+(3) and now 3
+
+    with a continuation
+
+    iv. sublist with roman numerals, starting with 4
+    v. more items
+
+       (A) a subsublist
+       (B) a subsublist
+
+Nesting:
+
+A. Upper Alpha
+
+   I. Upper Roman.
+
+      (6) Decimal start with 6
+
+          c) Lower alpha with paren
+
+Autonumbering:
+
+1. Autonumber.
+2. More.
+
+   1. Nested.
+
+Should not be a list item:
+
+M.A. 2007
+
+B. Williams
+
+* * * *
+
+{#definition-lists}
+# Definition Lists
+
+Tight using spaces:
+
+: apple
+
+  red fruit
+: orange
+
+  orange fruit
+: banana
+
+  yellow fruit
+
+Tight using tabs:
+
+: apple
+
+  red fruit
+: orange
+
+  orange fruit
+: banana
+
+  yellow fruit
+
+Loose:
+
+: apple
+
+  red fruit
+
+: orange
+
+  orange fruit
+
+: banana
+
+  yellow fruit
+
+Multiple blocks with italics:
+
+: _apple_
+
+  red fruit
+
+  contains seeds, crisp, pleasant to taste
+
+: _orange_
+
+  orange fruit
+
+  ```
+  { orange code block }
+  ```
+
+  > orange block quote
+
+Multiple definitions, tight:
+
+: apple
+
+  red fruit
+
+  computer
+: orange
+
+  orange fruit
+
+  bank
+
+Multiple definitions, loose:
+
+: apple
+
+  red fruit
+
+  computer
+
+: orange
+
+  orange fruit
+
+  bank
+
+Blank line after term, indented marker, alternate markers:
+
+: apple
+
+  red fruit
+
+  computer
+
+: orange
+
+  orange fruit
+
+  1. sublist
+  2. sublist
+
+{#html-blocks}
+# HTML Blocks
+
+Simple block on one line:
+
+:::
+foo
+
+:::
+
+And nested without indentation:
+
+::::::
+::::
+:::
+foo
+
+:::
+
+::::
+
+:::
+bar
+
+:::
+
+::::::
+
+Interpreted markdown in a table:
+
+This is _emphasized_
+
+And this is *strong*
+
+Here's a simple block:
+
+:::
+foo
+
+:::
+
+This should be a code block, though:
+
+```
+<div>
+    foo
+</div>
+```
+
+As should this:
+
+```
+<div>foo</div>
+```
+
+Now, nested:
+
+:::::
+::::
+:::
+foo
+
+:::
+
+::::
+
+:::::
+
+This should just be an HTML comment:
+
+Multiline:
+
+Code block:
+
+```
+<!-- Comment -->
+```
+
+Just plain comment, with trailing spaces on the line:
+
+Code:
+
+```
+<hr />
+```
+
+Hr's:
+
+* * * *
+
+{#inline-markup}
+# Inline Markup
+
+This is _emphasized_, and so _is this_.
+
+This is *strong*, and so *is this*.
+
+An _[emphasized link](/url)_.
+
+*_This is strong and em._*
+
+So is *_this_* word.
+
+*_This is strong and em._*
+
+So is *_this_* word.
+
+This is code: `>`, `$`, `\`, `\$`, `<html>`.
+
+{-This is _strikeout_.-}
+
+Superscripts: a^bc^d a^_hello_^ a^hello there^.
+
+Subscripts: H~2~O, H~23~O, H~many of them~O.
+
+These should not be superscripts or subscripts, because of the unescaped spaces:
+a\^b c\^d, a\~b c\~d.
+
+* * * *
+
+{#smart-quotes-ellipses-dashes}
+# Smart quotes, ellipses, dashes
+
+"Hello," said the spider. "'Shelob' is my name."
+
+'A', 'B', and 'C' are letters.
+
+'Oak,' 'elm,' and 'beech' are names of trees. So is 'pine.'
+
+'He said, "I want to go."' Were you alive in the 70's?
+
+Here is some quoted '`code`' and a "[quoted
+link](http://example.com/?foo=1&bar=2)".
+
+Some dashes: one---two --- three---four --- five.
+
+Dashes between numbers: 5--7, 255--66, 1987--1999.
+
+Ellipses...and...and....
+
+* * * *
+
+{#latex}
+# LaTeX
+
+- 
+- $`2+2=4`
+- $`x \in y`
+- $`\alpha \wedge \omega`
+- $`223`
+- $`p`-Tree
+- Here's some display math:
+  $$`\frac{d}{dx}f(x)=\lim_{h\to 0}\frac{f(x+h)-f(x)}{h}`
+- Here's one that has a line break in it: $`\alpha + \omega \times x^2`.
+
+These shouldn't be math:
+
+- To get the famous equation, write `$e = mc^2$`.
+- $22,000 is a _lot_ of money. So is $34,000. (It worked if "lot" is
+  emphasized.)
+- Shoes ($20) and socks ($5).
+- Escaped `$`\: $73 _this should be emphasized_ 23$.
+
+Here's a LaTeX table:
+
+* * * *
+
+{#special-characters}
+# Special Characters
+
+Here is some unicode:
+
+- I hat: Î
+- o umlaut: ö
+- section: §
+- set membership: ∈
+- copyright: ©
+
+AT&T has an ampersand in their name.
+
+AT&T is another way to write it.
+
+This & that.
+
+4 \< 5.
+
+6 \> 5.
+
+Backslash: \\
+
+Backtick: \`
+
+Asterisk: \*
+
+Underscore: \_
+
+Left brace: \{
+
+Right brace: \}
+
+Left bracket: \[
+
+Right bracket: \]
+
+Left paren: (
+
+Right paren: )
+
+Greater-than: \>
+
+Hash: #
+
+Period: .
+
+Bang: \!
+
+Plus: +
+
+Minus: -
+
+* * * *
+
+{#links}
+# Links
+
+{#explicit}
+## Explicit
+
+Just a [URL](/url/).
+
+[URL and title](/url/){title="title"}.
+
+[URL and title](/url/){title="title preceded by two spaces"}.
+
+[URL and title](/url/){title="title preceded by a tab"}.
+
+[URL and title](/url/){title="title with \"quotes\" in it"}
+
+[URL and title](/url/){title="title with single quotes"}
+
+[with\_underscore](/url/with_underscore)
+
+[Email link](mailto:nobody@nowhere.net)
+
+[Empty]().
+
+{#reference}
+## Reference
+
+Foo [bar](/url/).
+
+With [embedded \[brackets\]](/url/).
+
+[b](/url/) by itself should be a link.
+
+Indented [once](/url).
+
+Indented [twice](/url).
+
+Indented [thrice](/url).
+
+This should \[not\]\[\] be a link.
+
+```
+[not]: /url
+```
+
+Foo [bar](/url/){title="Title with \"quotes\" inside"}.
+
+Foo [biz](/url/){title="Title with \"quote\" inside"}.
+
+{#with-ampersands}
+## With ampersands
+
+Here's a [link with an ampersand in the URL](http://example.com/?foo=1&bar=2).
+
+Here's a link with an amersand in the link text:
+[AT&T](http://att.com/){title="AT&T"}.
+
+Here's an [inline link](/script?foo=1&bar=2).
+
+Here's an [inline link in pointy braces](/script?foo=1&bar=2).
+
+{#autolinks}
+## Autolinks
+
+With an ampersand: <http://example.com/?foo=1&bar=2>
+
+- In a list?
+- <http://example.com/>
+- It should.
+
+An e-mail address: <nobody@nowhere.net>
+
+> Blockquoted: <http://example.com/>
+
+Auto-links should not occur here: `<http://example.com/>`
+
+```
+or here: <http://example.com/>
+```
+
+* * * *
+
+{#images}
+# Images
+
+From "Voyage dans la Lune" by Georges Melies (1902):
+
+::::
+![lalune](lalune.jpg){title="Voyage dans la Lune"}
+
+{.caption}
+:::
+lalune
+
+:::
+
+::::
+
+Here is a movie ![movie](movie.jpg) icon.
+
+* * * *
+
+{#footnotes}
+# Footnotes
+
+Here is a footnote reference,[^1] and another.[^2] This should _not_ be a
+footnote reference, because it contains a space.\[\^my note\] Here is an inline
+note.[^3]
+
+> Notes can go in quotes.[^4]
+
+1. And in list items.[^5]
+
+This paragraph should not be part of the note, as it is not indented.
+
+[^1]: Here is the footnote. It can go anywhere after the footnote reference. It
+    need not be placed at the end of the document.
+
+[^2]: Here's the long note. This one contains multiple blocks.
+
+    Subsequent blocks are indented to show that they belong to the footnote (as
+    with list items).
+
+    ```
+      { <code> }
+    ```
+
+    If you want, you can indent every line, but you can also be lazy and just
+    indent the first line of each block.
+
+[^3]: This is _easier_ to type. Inline notes may contain
+    [links](http://google.com) and `]` verbatim characters, as well as
+    \[bracketed text\].
+
+[^4]: In quote.
+
+[^5]: In list.
diff --git a/test/writer.typst b/test/writer.typst
--- a/test/writer.typst
+++ b/test/writer.typst
@@ -634,9 +634,9 @@
 These shouldn’t be math:
 
 - To get the famous equation, write `$e = mc^2$`.
-- \$22,000 is a #emph[lot] of money. So is \$34,000. \(It worked if "lot" is
+- \$22,000 is a #emph[lot] of money. So is \$34,000. (It worked if "lot" is
   emphasized.)
-- Shoes \(\$20) and socks \(\$5).
+- Shoes (\$20) and socks (\$5).
 - Escaped `$`: \$73 #emph[this should be emphasized] 23\$.
 
 Here’s a LaTeX table:
@@ -679,7 +679,7 @@
 
 Right bracket: \]
 
-Left paren: \(
+Left paren: (
 
 Right paren: )
 
@@ -778,7 +778,7 @@
 
 = Images
 <images>
-From "Voyage dans la Lune" by Georges Melies \(1902):
+From "Voyage dans la Lune" by Georges Melies (1902):
 
 #figure([#box(width: 150.0pt, image("lalune.jpg"));],
   caption: [
@@ -796,8 +796,8 @@
 after the footnote reference. It need not be placed at the end of the document.]
 and another.#footnote[Here’s the long note. This one contains multiple blocks.
 
-Subsequent blocks are indented to show that they belong to the footnote \(as
-with list items).
+Subsequent blocks are indented to show that they belong to the footnote (as with
+list items).
 
 ```
   { <code> }