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" ] ]
      ]
    ]
  ]