Pandoc (Meta {unMeta = fromList []})
[Div ("",["section"],[])
 [Header 2 ("",[],[]) [Str "Poem",Space,Str "title"]
 ,Div ("",["epigraph"],[])
  [Para [Str "Poem",Space,Str "epigraph"]]
 ,Header 2 ("",["unnumbered"],[]) [Str "Subtitle"]
 ,Header 2 ("",[],[]) [Str "First",Space,Str "stanza",Space,Str "title"]
 ,LineBlock
  [[Str "Verse"]
  ,[Emph [Str "More"],Space,Str "verse"]]
 ,LineBlock
  [[Str "One",Space,Str "more",Space,Str "stanza"]]
 ,Para [Str "Author"]
 ,Para [Str "April",Space,Str "2018"]]]