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