Pandoc
  ( Meta { unMeta = fromList [] } )
  [ Para
    [ Str "This"
    , Space
    , Str "file"
    , Space
    , Str "tests"
    , Space
    , Str "the"
    , Space
    , Str "Pandoc"
    , Space
    , Str "reader"
    , Space
    , Str "for"
    , Space
    , Str "Haddock."
    , SoftBreak
    , Str "We've"
    , Space
    , Str "borrowed"
    , Space
    , Str "examples"
    , Space
    , Str "from"
    , Space
    , Str "Haddock's"
    , Space
    , Str "documentation:"
    , Space
    , Link
      ( "", [], [] )
      [ Str "http://www.haskell.org/haddock/doc/html/ch03s08.html" ]
      ( "http://www.haskell.org/haddock/doc/html/ch03s08.html"
      , "http://www.haskell.org/haddock/doc/html/ch03s08.html"
      )
    , Str "."
    ]
  , Para
    [ Str "The"
    , Space
    , Str "following"
    , Space
    , Str "characters"
    , Space
    , Str "have"
    , Space
    , Str "special"
    , Space
    , Str "meanings"
    , Space
    , Str "in"
    , Space
    , Str "Haddock,"
    , Space
    , Str "/,"
    , Space
    , Str "',"
    , Space
    , Str "`,"
    , Space
    , Str "\","
    , Space
    , Str "@,"
    , Space
    , Str "<,"
    , Space
    , Str "so"
    , Space
    , Str "they"
    , Space
    , Str "must"
    , Space
    , Str "be"
    , Space
    , Str "escaped."
    ]
  , Para
    [ Str "*"
    , Space
    , Str "This"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "paragraph,"
    , Space
    , Str "not"
    , Space
    , Str "a"
    , Space
    , Str "list"
    , Space
    , Str "item."
    , SoftBreak
    , Str ">"
    , Space
    , Str "This"
    , Space
    , Str "sentence"
    , Space
    , Str "is"
    , Space
    , Str "not"
    , Space
    , Str "code."
    , SoftBreak
    , Str ">>>"
    , Space
    , Str "This"
    , Space
    , Str "is"
    , Space
    , Str "not"
    , Space
    , Str "an"
    , Space
    , Str "example."
    ]
  , Para
    [ Str "The"
    , Space
    , Str "references"
    , Space
    , Str "\955,"
    , Space
    , Str "\955"
    , Space
    , Str "and"
    , Space
    , Str "\955"
    , Space
    , Str "all"
    , Space
    , Str "represent"
    , Space
    , Str "the"
    , Space
    , Str "lower-case"
    , Space
    , Str "letter"
    , Space
    , Str "lambda."
    ]
  , Para
    [ Str "This"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "code"
    , Space
    , Str "block:"
    ]
  , CodeBlock
    ( ""
    , []
    , []
    ) "map :: (a -> b) -> [a] -> [b]\nmap _ []     = []\nmap f (x:xs) = f x : map f xs"
  , Para
    [ Str "This"
    , Space
    , Str "is"
    , Space
    , Str "another"
    , Space
    , Str "code"
    , Space
    , Str "block:"
    ]
  , Para
    [ Code
      ( "", [], [] ) "f x = x + x."
    , LineBreak
    , Code
      ( "", [], [] ) "The @...@ code block "
    , Emph
      [ Code ( "", [], [] ) "interprets markup normally" ]
    , Code
      ( "", [], [] ) "."
    , Code
      ( "", [ "haskell", "module" ], [] ) "Module.Foo"
    , Code
      ( "", [], [] ) ""
    , LineBreak
    , Code
      ( "", [], [] ) "\"Hello World\""
    ]
  , Para
    [ Str "Haddock"
    , Space
    , Str "supports"
    , Space
    , Str "REPL"
    , Space
    , Str "examples:"
    ]
  , Para
    [ Code
      ( "", [ "prompt" ], [] ) ">>>"
    , Space
    , Code
      ( "", [ "haskell", "expr" ], [] ) "fib 10"
    , LineBreak
    , Code
      ( "", [ "result" ], [] ) "55"
    ]
  , Para
    [ Code
      ( "", [ "prompt" ], [] ) ">>>"
    , Space
    , Code
      ( "", [ "haskell", "expr" ], [] ) "putStrLn \"foo\\nbar\""
    , LineBreak
    , Code
      ( "", [ "result" ], [] ) "foo"
    , LineBreak
    , Code
      ( "", [ "result" ], [] ) "bar"
    ]
  , Para
    [ Str "That"
    , Space
    , Str "was"
    , Space
    , Emph
      [ Str "really", Space, Str "cool" ]
    , Str "!"
    , SoftBreak
    , Str "I"
    , Space
    , Str "had"
    , Space
    , Str "no"
    , Space
    , Str "idea"
    , Space
    , Code
      ( "", [], [] ) "fib 10 = 55"
    , Str "."
    ]
  , Para
    [ Str "This"
    , Space
    , Str "module"
    , Space
    , Str "defines"
    , Space
    , Str "the"
    , Space
    , Str "type"
    , Space
    , Code
      ( "", [ "haskell", "identifier" ], [] ) "T"
    , Str "."
    , SoftBreak
    , Str "The"
    , Space
    , Str "identifier"
    , Space
    , Code
      ( "", [ "haskell", "identifier" ], [] ) "M.T"
    , Space
    , Str "is"
    , Space
    , Str "not"
    , Space
    , Str "in"
    , Space
    , Str "scope"
    , SoftBreak
    , Str "I"
    , Space
    , Str "don't"
    , Space
    , Str "have"
    , Space
    , Str "to"
    , Space
    , Str "escape"
    , Space
    , Str "my"
    , Space
    , Str "apostrophes;"
    , Space
    , Str "great,"
    , Space
    , Str "isn't"
    , Space
    , Str "it?"
    , SoftBreak
    , Str "This"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "reference"
    , Space
    , Str "to"
    , Space
    , Str "the"
    , Space
    , Code
      ( "", [ "haskell", "module" ], [] ) "Foo"
    , Space
    , Str "module."
    ]
  , Para
    [ Str "This"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "bulleted"
    , Space
    , Str "list:"
    ]
  , BulletList
    [
      [ Para [ Str "first", Space, Str "item" ] ]
    ,
      [ Para [ Str "second", Space, Str "item" ] ]
    ]
  , Para
    [ Str "This"
    , Space
    , Str "is"
    , Space
    , Str "an"
    , Space
    , Str "enumerated"
    , Space
    , Str "list:"
    ]
  , OrderedList
    ( 1, DefaultStyle, DefaultDelim )
    [
      [ Para [ Str "first", Space, Str "item" ] ]
    ,
      [ Para [ Str "second", Space, Str "item" ] ]
    ]
  , Para
    [ Str "This"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "definition"
    , Space
    , Str "list:"
    ]
  , DefinitionList
    [
      (
        [ Code ( "", [], [] ) "foo" ]
      ,
        [
          [ Para
            [ Str "The"
            , Space
            , Str "description"
            , Space
            , Str "of"
            , Space
            , Code
              ( "", [], [] ) "foo"
            , Str "."
            ]
          ]
        ]
      )
    ,
      (
        [ Code ( "", [], [] ) "bar" ]
      ,
        [
          [ Para
            [ Str "The"
            , Space
            , Str "description"
            , Space
            , Str "of"
            , Space
            , Code
              ( "", [], [] ) "bar"
            , Str "."
            ]
          ]
        ]
      )
    ]
  , Para
    [ Str "Here"
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "link:"
    , Space
    , Link
      ( "", [], [] )
      [ Str "http://haskell.org" ]
      ( "http://haskell.org", "http://haskell.org" )
    ]
  , Para
    [ Link
      ( "", [], [] )
      [ Str "Haskell" ]
      ( "http://haskell.org", "http://haskell.org" )
    , Space
    , Str "is"
    , Space
    , Str "a"
    , Space
    , Str "fun"
    , Space
    , Str "language!"
    ]
  , Para
    [ Link
      ( "", [], [] )
      [ Str "Click", Space, Str "Here!" ]
      ( "http://example.com", "http://example.com" )
    ]
  ]