Pandoc (Meta {unMeta = fromList []})
[Div ("",["epigraph"],[])
 [Para [Str "Body",Space,Str "epigraph"]]
,Div ("",["section"],[])
 [Div ("",["epigraph"],[])
  [Para [Str "Section",Space,Str "epigraph"]]
 ,Div ("",["section"],[])
  [Div ("",["epigraph"],[])
   [Para [Str "Subsection",Space,Str "epigraph"]]]]]