Pandoc
  Meta { unMeta = fromList [] }
  [ Para [ Str "This is some code:" ]
  , CodeBlock
      ( "" , [] , [] )
      "readDocx :: ReaderOptions\n         -> B.ByteString\n         -> Pandoc"
  , Para [ Str "from the beginning of the docx reader." ]
  ]