Pandoc
  Meta
    { unMeta =
        fromList
          [ ( "author"
            , MetaList
                [ MetaInlines [ Str "John MacFarlane" ]
                , MetaInlines [ Str "Anonymous" ]
                ]
            )
          , ( "date" , MetaInlines [ Str "July 17, 2006" ] )
          , ( "title" , MetaInlines [ Str "Pandoc Test Suite" ] )
          ]
    }
  [ Para
      [ Str
          "This is a set of tests for pandoc. Most of them are adapted from"
      , SoftBreak
      , Str "John Gruber\8217s markdown test suite."
      ]
  , HorizontalRule
  , Header 1 ( "headers" , [] , [] ) [ Str "Headers" ]
  , Header
      2
      ( "level-2-with-an-embedded-link" , [] , [] )
      [ Str "Level 2 with an "
      , Link ( "" , [] , [] ) [ Str "embedded link" ] ( "/url" , "" )
      ]
  , Header
      3
      ( "level-3-with-emphasis" , [] , [] )
      [ Str "Level 3 with " , Emph [ Str "emphasis" ] ]
  , Header 4 ( "level-4" , [] , [] ) [ Str "Level 4" ]
  , Header 5 ( "level-5" , [] , [] ) [ Str "Level 5" ]
  , Header 1 ( "level-1" , [] , [] ) [ Str "Level 1" ]
  , Header
      2
      ( "level-2-with-emphasis" , [] , [] )
      [ Str "Level 2 with " , Emph [ Str "emphasis" ] ]
  , Header 3 ( "level-3" , [] , [] ) [ Str "Level 3" ]
  , Para [ Str "with no blank line" ]
  , Header 2 ( "level-2" , [] , [] ) [ Str "Level 2" ]
  , Para [ Str "with no blank line" ]
  , HorizontalRule
  , Header 1 ( "paragraphs" , [] , [] ) [ Str "Paragraphs" ]
  , Para [ Str "Here\8217s a regular paragraph." ]
  , Para
      [ Str "In Markdown 1.0.0 and earlier. Version"
      , SoftBreak
      , Str "8. This line turns into a list item."
      , SoftBreak
      , Str "Because a hard-wrapped line in the"
      , SoftBreak
      , Str "middle of a paragraph looked like a"
      , SoftBreak
      , Str "list item."
      ]
  , Para
      [ Str "Here\8217s one with a bullet."
      , SoftBreak
      , Str "* criminey."
      ]
  , Para
      [ Str "There should be a hard line break"
      , LineBreak
      , Str "here."
      ]
  , HorizontalRule
  , Header
      1 ( "block-quotes" , [] , [] ) [ Str "Block Quotes" ]
  , Para [ Str "E-mail style:" ]
  , BlockQuote
      [ Para
          [ Str "This is a block quote."
          , SoftBreak
          , Str "It is pretty short."
          ]
      ]
  , BlockQuote
      [ Para [ Str "Code in a block quote:" ]
      , CodeBlock
          ( "" , [] , [] ) "sub status {\n    print \"working\";\n}"
      , Para [ Str "A list:" ]
      , OrderedList
          ( 1 , Decimal , Period )
          [ [ Plain [ Str "item one" ] ]
          , [ Plain [ Str "item two" ] ]
          ]
      , Para [ Str "Nested block quotes:" ]
      , BlockQuote [ Para [ Str "nested" ] ]
      , BlockQuote [ Para [ Str "nested" ] ]
      ]
  , Para
      [ Str "This should not be a block quote: 2"
      , SoftBreak
      , Str "> 1."
      ]
  , Para [ Str "And a following paragraph." ]
  , HorizontalRule
  , Header 1 ( "code-blocks" , [] , [] ) [ Str "Code Blocks" ]
  , Para [ Str "Code:" ]
  , CodeBlock
      ( "" , [] , [] )
      "---- (should be four hyphens)\n\nsub status {\n    print \"working\";\n}\n\nthis code block is indented by one tab"
  , Para [ Str "And:" ]
  , CodeBlock
      ( "" , [] , [] )
      "    this code block is indented by two tabs\n\nThese should not be escaped:  \\$ \\\\ \\> \\[ \\{"
  , HorizontalRule
  , Header 1 ( "lists" , [] , [] ) [ Str "Lists" ]
  , Header 2 ( "unordered" , [] , [] ) [ Str "Unordered" ]
  , Para [ Str "Asterisks tight:" ]
  , BulletList
      [ [ Plain [ Str "asterisk 1" ] ]
      , [ Plain [ Str "asterisk 2" ] ]
      , [ Plain [ Str "asterisk 3" ] ]
      ]
  , Para [ Str "Asterisks loose:" ]
  , BulletList
      [ [ Para [ Str "asterisk 1" ] ]
      , [ Para [ Str "asterisk 2" ] ]
      , [ Para [ Str "asterisk 3" ] ]
      ]
  , Para [ Str "Pluses tight:" ]
  , BulletList
      [ [ Plain [ Str "Plus 1" ] ]
      , [ Plain [ Str "Plus 2" ] ]
      , [ Plain [ Str "Plus 3" ] ]
      ]
  , Para [ Str "Pluses loose:" ]
  , BulletList
      [ [ Para [ Str "Plus 1" ] ]
      , [ Para [ Str "Plus 2" ] ]
      , [ Para [ Str "Plus 3" ] ]
      ]
  , Para [ Str "Minuses tight:" ]
  , BulletList
      [ [ Plain [ Str "Minus 1" ] ]
      , [ Plain [ Str "Minus 2" ] ]
      , [ Plain [ Str "Minus 3" ] ]
      ]
  , Para [ Str "Minuses loose:" ]
  , BulletList
      [ [ Para [ Str "Minus 1" ] ]
      , [ Para [ Str "Minus 2" ] ]
      , [ Para [ Str "Minus 3" ] ]
      ]
  , Header 2 ( "ordered" , [] , [] ) [ Str "Ordered" ]
  , Para [ Str "Tight:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Plain [ Str "First" ] ]
      , [ Plain [ Str "Second" ] ]
      , [ Plain [ Str "Third" ] ]
      ]
  , Para [ Str "and:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Plain [ Str "One" ] ]
      , [ Plain [ Str "Two" ] ]
      , [ Plain [ Str "Three" ] ]
      ]
  , Para [ Str "Loose using tabs:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Para [ Str "First" ] ]
      , [ Para [ Str "Second" ] ]
      , [ Para [ Str "Third" ] ]
      ]
  , Para [ Str "and using spaces:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Para [ Str "One" ] ]
      , [ Para [ Str "Two" ] ]
      , [ Para [ Str "Three" ] ]
      ]
  , Para [ Str "Multiple paragraphs:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Para [ Str "Item 1, graf one." ]
        , Para
            [ Str
                "Item 1. graf two. The quick brown fox jumped over the lazy dog\8217s"
            , SoftBreak
            , Str "back."
            ]
        ]
      , [ Para [ Str "Item 2." ] ]
      , [ Para [ Str "Item 3." ] ]
      ]
  , Header 2 ( "nested" , [] , [] ) [ Str "Nested" ]
  , BulletList
      [ [ Plain [ Str "Tab" ]
        , BulletList
            [ [ Plain [ Str "Tab" ] , BulletList [ [ Plain [ Str "Tab" ] ] ] ]
            ]
        ]
      ]
  , Para [ Str "Here\8217s another:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Plain [ Str "First" ] ]
      , [ Plain [ Str "Second:" ]
        , BulletList
            [ [ Plain [ Str "Fee" ] ]
            , [ Plain [ Str "Fie" ] ]
            , [ Plain [ Str "Foe" ] ]
            ]
        ]
      , [ Plain [ Str "Third" ] ]
      ]
  , Para [ Str "Same thing but with paragraphs:" ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Para [ Str "First" ] ]
      , [ Para [ Str "Second:" ]
        , BulletList
            [ [ Plain [ Str "Fee" ] ]
            , [ Plain [ Str "Fie" ] ]
            , [ Plain [ Str "Foe" ] ]
            ]
        ]
      , [ Para [ Str "Third" ] ]
      ]
  , Header
      2 ( "tabs-and-spaces" , [] , [] ) [ Str "Tabs and spaces" ]
  , BulletList
      [ [ Para
            [ Str "this is a list item"
            , SoftBreak
            , Str "indented with tabs"
            ]
        ]
      , [ Para
            [ Str "this is a list item"
            , SoftBreak
            , Str "indented with spaces"
            ]
        , BulletList
            [ [ Para
                  [ Str "this is an example list item"
                  , SoftBreak
                  , Str "indented with tabs"
                  ]
              ]
            , [ Para
                  [ Str "this is an example list item"
                  , SoftBreak
                  , Str "indented with spaces"
                  ]
              ]
            ]
        ]
      ]
  , Header
      2
      ( "fancy-list-markers" , [] , [] )
      [ Str "Fancy list markers" ]
  , OrderedList
      ( 2 , Decimal , TwoParens )
      [ [ Para [ Str "begins with 2" ] ]
      , [ Para [ Str "and now 3" ]
        , Para [ Str "with a continuation" ]
        , OrderedList
            ( 4 , LowerRoman , Period )
            [ [ Plain
                  [ Str "sublist with roman numerals,"
                  , SoftBreak
                  , Str "starting with 4"
                  ]
              ]
            , [ Plain [ Str "more items" ]
              , OrderedList
                  ( 1 , UpperAlpha , TwoParens )
                  [ [ Plain [ Str "a subsublist" ] ]
                  , [ Plain [ Str "a subsublist" ] ]
                  ]
              ]
            ]
        ]
      ]
  , Para [ Str "Nesting:" ]
  , OrderedList
      ( 1 , UpperAlpha , Period )
      [ [ Plain [ Str "Upper Alpha" ]
        , OrderedList
            ( 1 , UpperRoman , Period )
            [ [ Plain [ Str "Upper Roman." ]
              , OrderedList
                  ( 6 , Decimal , TwoParens )
                  [ [ Plain [ Str "Decimal start with 6" ]
                    , OrderedList
                        ( 3 , LowerAlpha , OneParen )
                        [ [ Plain [ Str "Lower alpha with paren" ] ] ]
                    ]
                  ]
              ]
            ]
        ]
      ]
  , Para [ Str "Autonumbering:" ]
  , OrderedList
      ( 1 , DefaultStyle , DefaultDelim )
      [ [ Plain [ Str "Autonumber." ] ]
      , [ Plain [ Str "More." ]
        , OrderedList
            ( 1 , DefaultStyle , DefaultDelim )
            [ [ Plain [ Str "Nested." ] ] ]
        ]
      ]
  , Para [ Str "Should not be a list item:" ]
  , Para [ Str "M.A.\160\&2007" ]
  , Para [ Str "B. Williams" ]
  , HorizontalRule
  , Header 1 ( "definition-lists" , [] , [] ) [ Str "Definition Lists" ]
  , Para [ Str "Tight using spaces:" ]
  , DefinitionList
      [ ( [ Str "apple" ] , [ [ Plain [ Str "red fruit" ] ] ] )
      , ( [ Str "orange" ]
        , [ [ Plain [ Str "orange fruit" ] ] ]
        )
      , ( [ Str "banana" ] , [ [ Plain [ Str "yellow fruit" ] ] ])
      ]
  , Para [ Str "Tight using tabs:" ]
  , DefinitionList
      [ ( [ Str "apple" ] , [ [ Plain [ Str "red fruit" ] ] ] )
      , ( [ Str "orange" ] , [ [ Plain [ Str "orange fruit" ] ] ] )
      , ( [ Str "banana" ] , [ [ Plain [ Str "yellow fruit" ] ] ] )
      ]
  , Para [ Str "Loose:" ]
  , DefinitionList
      [ ( [ Str "apple" ] , [ [ Para [ Str "red fruit" ] ] ] )
      , ( [ Str "orange" ] , [ [ Para [ Str "orange fruit" ] ] ] )
      , ( [ Str "banana" ] , [ [ Para [ Str "yellow fruit" ] ] ] )
      ]
  , Para [ Str "Multiple blocks with italics:" ]
  , DefinitionList
      [ ( [ Emph [ Str "apple" ] ]
        , [ [ Para [ Str "red fruit" ]
            , Para
                [ Str "contains seeds,"
                , SoftBreak
                , Str "crisp, pleasant to taste"
                ]
            ]
          ]
        )
      , ( [ Emph [ Str "orange" ] ]
        , [ [ Para [ Str "orange fruit" ]
            , CodeBlock ( "" , [] , [] ) "{ orange code block }"
            , BlockQuote [ Para [ Str "orange block quote" ] ]
            ]
          ]
        )
      ]
  , Para [ Str "Multiple definitions, tight:" ]
  , DefinitionList
      [ ( [ Str "apple" ]
        , [ [ Plain [ Str "red fruit" ] ]
          , [ Plain [ Str "computer" ] ]
          ]
        )
      , ( [ Str "orange" ]
        , [ [ Plain [ Str "orange fruit" ] ]
          , [ Plain [ Str "bank" ] ]
          ]
        )
      ]
  , Para [ Str "Multiple definitions, loose:" ]
  , DefinitionList
      [ ( [ Str "apple" ]
        , [ [ Para [ Str "red fruit" ] ]
          , [ Para [ Str "computer" ] ]
          ]
        )
      , ( [ Str "orange" ]
        , [ [ Para [ Str "orange fruit" ] ]
          , [ Para [ Str "bank" ] ]
          ]
        )
      ]
  , Para
      [ Str
          "Blank line after term, indented marker, alternate markers:"
      ]
  , DefinitionList
      [ ( [ Str "apple" ]
        , [ [ Para [ Str "red fruit" ] ]
          , [ Para [ Str "computer" ] ]
          ]
        )
      , ( [ Str "orange" ]
        , [ [ Para [ Str "orange fruit" ]
            , OrderedList
                ( 1 , Decimal , Period )
                [ [ Plain [ Str "sublist" ] ]
                , [ Plain [ Str "sublist" ] ]
                ]
            ]
          ]
        )
      ]
  , Header 1 ( "html-blocks" , [] , [] ) [ Str "HTML Blocks" ]
  , Para [ Str "Simple block on one line:" ]
  , Div ( "" , [] , [] ) [ Plain [ Str "foo" ] ]
  , Para [ Str "And nested without indentation:" ]
  , Div
      ( "" , [] , [] )
      [ Div
          ( "" , [] , [] )
          [ Div ( "" , [] , [] ) [ Para [ Str "foo" ] ] ]
      , Div ( "" , [] , [] ) [ Plain [ Str "bar" ] ]
      ]
  , Para [ Str "Interpreted markdown in a table:" ]
  , RawBlock (Format "html") "<table>"
  , RawBlock (Format "html") "<tr>"
  , RawBlock (Format "html") "<td>"
  , Plain [ Str "This is " , Emph [ Str "emphasized" ] ]
  , RawBlock (Format "html") "</td>"
  , RawBlock (Format "html") "<td>"
  , Plain [ Str "And this is " , Strong [ Str "strong" ] ]
  , RawBlock (Format "html") "</td>"
  , RawBlock (Format "html") "</tr>"
  , RawBlock (Format "html") "</table>"
  , RawBlock
      (Format "html")
      "<script type=\"text/javascript\">document.write('This *should not* be interpreted as markdown');</script>"
  , Para [ Str "Here\8217s a simple block:" ]
  , Div ( "" , [] , [] ) [ Para [ Str "foo" ] ]
  , Para [ Str "This should be a code block, though:" ]
  , CodeBlock ( "" , [] , [] ) "<div>\n    foo\n</div>"
  , Para [ Str "As should this:" ]
  , CodeBlock ( "" , [] , [] ) "<div>foo</div>"
  , Para [ Str "Now, nested:" ]
  , Div
      ( "" , [] , [] )
      [ Div
          ( "" , [] , [] )
          [ Div ( "" , [] , [] ) [ Plain [ Str "foo" ] ] ]
      ]
  , Para [ Str "This should just be an HTML comment:" ]
  , RawBlock (Format "html") "<!-- Comment -->"
  , Para [ Str "Multiline:" ]
  , RawBlock (Format "html") "<!--\nBlah\nBlah\n-->"
  , RawBlock
      (Format "html") "<!--\n    This is another comment.\n-->"
  , Para [ Str "Code block:" ]
  , CodeBlock ( "" , [] , [] ) "<!-- Comment -->"
  , Para
      [ Str
          "Just plain comment, with trailing spaces on the line:"
      ]
  , RawBlock (Format "html") "<!-- foo -->"
  , Para [ Str "Code:" ]
  , CodeBlock ( "" , [] , [] ) "<hr />"
  , Para [ Str "Hr\8217s:" ]
  , RawBlock (Format "html") "<hr>"
  , RawBlock (Format "html") "<hr />"
  , RawBlock (Format "html") "<hr />"
  , RawBlock (Format "html") "<hr>"
  , RawBlock (Format "html") "<hr />"
  , RawBlock (Format "html") "<hr />"
  , RawBlock (Format "html") "<hr class=\"foo\" id=\"bar\" />"
  , RawBlock (Format "html") "<hr class=\"foo\" id=\"bar\" />"
  , RawBlock (Format "html") "<hr class=\"foo\" id=\"bar\">"
  , HorizontalRule
  , Header 1 ( "inline-markup" , [] , [] ) [ Str "Inline Markup" ]
  , Para
      [ Str "This is "
      , Emph [ Str "emphasized" ]
      , Str ", and so "
      , Emph [ Str "is this" ]
      , Str "."
      ]
  , Para
      [ Str "This is "
      , Strong [ Str "strong" ]
      , Str ", and so "
      , Strong [ Str "is this" ]
      , Str "."
      ]
  , Para
      [ Str "An "
      , Emph
          [ Link ( "" , [] , [] ) [ Str "emphasized link" ] ( "/url" , "" ) ]
      , Str "."
      ]
  , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
  , Para
      [ Str "So is "
      , Strong [ Emph [ Str "this" ] ]
      , Str " word."
      ]
  , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
  , Para
      [ Str "So is "
      , Strong [ Emph [ Str "this" ] ]
      , Str " word."
      ]
  , Para
      [ Str "This is code: "
      , Code ( "" , [] , [] ) ">"
      , Str ", "
      , Code ( "" , [] , [] ) "$"
      , Str ", "
      , Code ( "" , [] , [] ) "\\"
      , Str ", "
      , Code ( "" , [] , [] ) "\\$"
      , Str ", "
      , Code ( "" , [] , [] ) "<html>"
      , Str "."
      ]
  , Para
      [ Strikeout
          [ Str "This is " , Emph [ Str "strikeout" ] , Str "." ]
      ]
  , Para
      [ Str "Superscripts: a"
      , Superscript [ Str "bc" ]
      , Str "d a"
      , Superscript [ Emph [ Str "hello" ] ]
      , Str " a"
      , Superscript [ Str "hello\160there" ]
      , Str "."
      ]
  , Para
      [ Str "Subscripts: H"
      , Subscript [ Str "2" ]
      , Str "O, H"
      , Subscript [ Str "23" ]
      , Str "O, H"
      , Subscript [ Str "many\160of\160them" ]
      , Str "O."
      ]
  , Para
      [ Str "These should not be superscripts or subscripts,"
      , SoftBreak
      , Str "because of the unescaped spaces: a^b c^d, a~b c~d."
      ]
  , HorizontalRule
  , Header
      1
      ( "smart-quotes-ellipses-dashes" , [] , [] )
      [ Str "Smart quotes, ellipses, dashes" ]
  , Para
      [ Quoted DoubleQuote [ Str "Hello," ]
      , Str " said the spider. "
      , Quoted
          DoubleQuote
          [ Quoted SingleQuote [ Str "Shelob" ] , Str " is my name." ]
      ]
  , Para
      [ Quoted SingleQuote [ Str "A" ]
      , Str ", "
      , Quoted SingleQuote [ Str "B" ]
      , Str ", and "
      , Quoted SingleQuote [ Str "C" ]
      , Str " are letters."
      ]
  , Para
      [ Quoted SingleQuote [ Str "Oak," ]
      , Str " "
      , Quoted SingleQuote [ Str "elm," ]
      , Str " and "
      , Quoted SingleQuote [ Str "beech" ]
      , Str " are names of trees."
      , SoftBreak
      , Str "So is "
      , Quoted SingleQuote [ Str "pine." ]
      ]
  , Para
      [ Quoted
          SingleQuote
          [ Str "He said, " , Quoted DoubleQuote [ Str "I want to go." ] ]
      , Str " Were you alive in the"
      , SoftBreak
      , Str "70\8217s?"
      ]
  , Para
      [ Str "Here is some quoted "
      , Quoted SingleQuote [ Code ( "" , [] , [] ) "code" ]
      , Str " and a "
      , Quoted
          DoubleQuote
          [ Link
              ( "" , [] , [] )
              [ Str "quoted link" ]
              ( "http://example.com/?foo=1&bar=2" , "" )
          ]
      , Str "."
      ]
  , Para
      [ Str
          "Some dashes: one\8212two \8212 three\8212four \8212 five."
      ]
  , Para
      [ Str
          "Dashes between numbers: 5\8211\&7, 255\8211\&66, 1987\8211\&1999."
      ]
  , Para [ Str "Ellipses\8230and\8230and\8230." ]
  , HorizontalRule
  , Header 1 ( "latex" , [] , [] ) [ Str "LaTeX" ]
  , BulletList
      [ [ Plain
            [ RawInline (Format "tex") "\\cite[22-23]{smith.1899}" ]
        ]
      , [ Plain [ Math InlineMath "2+2=4" ] ]
      , [ Plain [ Math InlineMath "x \\in y" ] ]
      , [ Plain [ Math InlineMath "\\alpha \\wedge \\omega" ] ]
      , [ Plain [ Math InlineMath "223" ] ]
      , [ Plain [ Math InlineMath "p" , Str "-Tree" ] ]
      , [ Plain
            [ Str "Here\8217s some display math:"
            , SoftBreak
            , Math
                DisplayMath
                "\\frac{d}{dx}f(x)=\\lim_{h\\to 0}\\frac{f(x+h)-f(x)}{h}"
            ]
        ]
      , [ Plain
            [ Str "Here\8217s one that has a line break in it: "
            , Math InlineMath "\\alpha + \\omega \\times x^2"
            , Str "."
            ]
        ]
      ]
  , Para [ Str "These shouldn\8217t be math:" ]
  , BulletList
      [ [ Plain
            [ Str "To get the famous equation, write "
            , Code ( "" , [] , [] ) "$e = mc^2$"
            , Str "."
            ]
        ]
      , [ Plain
            [ Str "$22,000 is a "
            , Emph [ Str "lot" ]
            , Str " of money. So is $34,000."
            , SoftBreak
            , Str "(It worked if "
            , Quoted DoubleQuote [ Str "lot" ]
            , Str " is emphasized.)"
            ]
        ]
      , [ Plain [ Str "Shoes ($20) and socks ($5)." ] ]
      , [ Plain
            [ Str "Escaped "
            , Code ( "" , [] , [] ) "$"
            , Str ": $73 "
            , Emph [ Str "this should be emphasized" ]
            , Str " 23$."
            ]
        ]
      ]
  , Para [ Str "Here\8217s a LaTeX table:" ]
  , RawBlock
      (Format "tex")
      "\\begin{tabular}{|l|l|}\\hline\nAnimal & Number \\\\ \\hline\nDog    & 2      \\\\\nCat    & 1      \\\\ \\hline\n\\end{tabular}"
  , HorizontalRule
  , Header
      1
      ( "special-characters" , [] , [] )
      [ Str "Special Characters" ]
  , Para [ Str "Here is some unicode:" ]
  , BulletList
      [ [ Plain [ Str "I hat: \206" ] ]
      , [ Plain [ Str "o umlaut: \246" ] ]
      , [ Plain [ Str "section: \167" ] ]
      , [ Plain [ Str "set membership: \8712" ] ]
      , [ Plain [ Str "copyright: \169" ] ]
      ]
  , Para [ Str "AT&T has an ampersand in their name." ]
  , Para [ Str "AT&T is another way to write it." ]
  , Para [ Str "This & that." ]
  , Para [ Str "4 < 5." ]
  , Para [ Str "6 > 5." ]
  , Para [ Str "Backslash: \\" ]
  , Para [ Str "Backtick: `" ]
  , Para [ Str "Asterisk: *" ]
  , Para [ Str "Underscore: _" ]
  , Para [ Str "Left brace: {" ]
  , Para [ Str "Right brace: }" ]
  , Para [ Str "Left bracket: [" ]
  , Para [ Str "Right bracket: ]" ]
  , Para [ Str "Left paren: (" ]
  , Para [ Str "Right paren: )" ]
  , Para [ Str "Greater-than: >" ]
  , Para [ Str "Hash: #" ]
  , Para [ Str "Period: ." ]
  , Para [ Str "Bang: !" ]
  , Para [ Str "Plus: +" ]
  , Para [ Str "Minus: -" ]
  , HorizontalRule
  , Header 1 ( "links" , [] , [] ) [ Str "Links" ]
  , Header 2 ( "explicit" , [] , [] ) [ Str "Explicit" ]
  , Para
      [ Str "Just a "
      , Link ( "" , [] , [] ) [ Str "URL" ] ( "/url/" , "" )
      , Str "."
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "URL and title" ]
          ( "/url/" , "title" )
      , Str "."
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "URL and title" ]
          ( "/url/" , "title preceded by two spaces" )
      , Str "."
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "URL and title" ]
          ( "/url/" , "title preceded by a tab" )
      , Str "."
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "URL and title" ]
          ( "/url/" , "title with \"quotes\" in it" )
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "URL and title" ]
          ( "/url/" , "title with single quotes" )
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "with_underscore" ]
          ( "/url/with_underscore" , "" )
      ]
  , Para
      [ Link
          ( "" , [] , [] )
          [ Str "Email link" ]
          ( "mailto:nobody@nowhere.net" , "" )
      ]
  , Para
      [ Link ( "" , [] , [] ) [ Str "Empty" ] ( "" , "" )
      , Str "."
      ]
  , Header 2 ( "reference" , [] , [] ) [ Str "Reference" ]
  , Para
      [ Str "Foo "
      , Link ( "" , [] , [] ) [ Str "bar" ] ( "/url/" , "" )
      , Str "."
      ]
  , Para
      [ Str "With "
      , Link
          ( "" , [] , [] )
          [ Str "embedded [brackets]" ]
          ( "/url/" , "" )
      , Str "."
      ]
  , Para
      [ Link ( "" , [] , [] ) [ Str "b" ] ( "/url/" , "" )
      , Str " by itself should be a link."
      ]
  , Para
      [ Str "Indented "
      , Link ( "" , [] , [] ) [ Str "once" ] ( "/url" , "" )
      , Str "."
      ]
  , Para
      [ Str "Indented "
      , Link ( "" , [] , [] ) [ Str "twice" ] ( "/url" , "" )
      , Str "."
      ]
  , Para
      [ Str "Indented "
      , Link ( "" , [] , [] ) [ Str "thrice" ] ( "/url" , "" )
      , Str "."
      ]
  , Para [ Str "This should [not][] be a link." ]
  , CodeBlock ( "" , [] , [] ) "[not]: /url"
  , Para
      [ Str "Foo "
      , Link
          ( "" , [] , [] )
          [ Str "bar" ]
          ( "/url/" , "Title with \"quotes\" inside" )
      , Str "."
      ]
  , Para
      [ Str "Foo "
      , Link
          ( "" , [] , [] )
          [ Str "biz" ]
          ( "/url/" , "Title with \"quote\" inside" )
      , Str "."
      ]
  , Header
      2 ( "with-ampersands" , [] , [] ) [ Str "With ampersands" ]
  , Para
      [ Str "Here\8217s a "
      , Link
          ( "" , [] , [] )
          [ Str "link with an ampersand in the URL" ]
          ( "http://example.com/?foo=1&bar=2" , "" )
      , Str "."
      ]
  , Para
      [ Str
          "Here\8217s a link with an amersand in the link text: "
      , Link
          ( "" , [] , [] )
          [ Str "AT&T" ]
          ( "http://att.com/" , "AT&T" )
      , Str "."
      ]
  , Para
      [ Str "Here\8217s an "
      , Link
          ( "" , [] , [] )
          [ Str "inline link" ]
          ( "/script?foo=1&bar=2" , "" )
      , Str "."
      ]
  , Para
      [ Str "Here\8217s an "
      , Link
          ( "" , [] , [] )
          [ Str "inline link in pointy braces" ]
          ( "/script?foo=1&bar=2" , "" )
      , Str "."
      ]
  , Header 2 ( "autolinks" , [] , [] ) [ Str "Autolinks" ]
  , Para
      [ Str "With an ampersand: "
      , Link
          ( "" , [ "uri" ] , [] )
          [ Str "http://example.com/?foo=1&bar=2" ]
          ( "http://example.com/?foo=1&bar=2" , "" )
      ]
  , BulletList
      [ [ Plain [ Str "In a list?" ] ]
      , [ Plain
            [ Link
                ( "" , [ "uri" ] , [] )
                [ Str "http://example.com/" ]
                ( "http://example.com/" , "" )
            ]
        ]
      , [ Plain [ Str "It should." ] ]
      ]
  , Para
      [ Str "An e-mail address: "
      , Link
          ( "" , [ "email" ] , [] )
          [ Str "nobody@nowhere.net" ]
          ( "mailto:nobody@nowhere.net" , "" )
      ]
  , BlockQuote
      [ Para
          [ Str "Blockquoted: "
          , Link
              ( "" , [ "uri" ] , [] )
              [ Str "http://example.com/" ]
              ( "http://example.com/" , "" )
          ]
      ]
  , Para
      [ Str "Auto-links should not occur here: "
      , Code ( "" , [] , [] ) "<http://example.com/>"
      ]
  , CodeBlock
      ( "" , [] , [] ) "or here: <http://example.com/>"
  , HorizontalRule
  , Header 1 ( "images" , [] , [] ) [ Str "Images" ]
  , Para
      [ Str "From "
      , Quoted DoubleQuote [ Str "Voyage dans la Lune" ]
      , Str " by Georges Melies (1902):"
      ]
  , Para
      [ Image
          ( "" , [] , [] )
          [ Str "lalune" ]
          ( "lalune.jpg" , "fig:Voyage dans la Lune" )
      ]
  , Para
      [ Str "Here is a movie "
      , Image
          ( "" , [] , [] ) [ Str "movie" ] ( "movie.jpg" , "" )
      , Str " icon."
      ]
  , HorizontalRule
  , Header 1 ( "footnotes" , [] , [] ) [ Str "Footnotes" ]
  , Para
      [ Str "Here is a footnote reference,"
      , Note
          [ Para
              [ Str
                  "Here is the footnote. It can go anywhere after the footnote"
              , SoftBreak
              , Str
                  "reference. It need not be placed at the end of the document."
              ]
          ]
      , Str " and another."
      , Note
          [ Para
              [ Str
                  "Here\8217s the long note. This one contains multiple"
              , SoftBreak
              , Str "blocks."
              ]
          , Para
              [ Str
                  "Subsequent blocks are indented to show that they belong to the"
              , SoftBreak
              , Str "footnote (as with list items)."
              ]
          , CodeBlock ( "" , [] , [] ) "  { <code> }"
          , Para
              [ Str
                  "If you want, you can indent every line, but you can also be"
              , SoftBreak
              , Str "lazy and just indent the first line of each block."
              ]
          ]
      , SoftBreak
      , Str "This should "
      , Emph [ Str "not" ]
      , Str " be a footnote reference, because it"
      , SoftBreak
      , Str "contains a space.[^my note] Here is an inline note."
      , Note
          [ Para
              [ Str "This"
              , SoftBreak
              , Str "is "
              , Emph [ Str "easier" ]
              , Str " to type. Inline notes may contain"
              , SoftBreak
              , Link
                  ( "" , [] , [] )
                  [ Str "links" ]
                  ( "http://google.com" , "" )
              , Str " and "
              , Code ( "" , [] , [] ) "]"
              , Str " verbatim characters,"
              , SoftBreak
              , Str "as well as [bracketed text]."
              ]
          ]
      ]
  , BlockQuote
      [ Para
          [ Str "Notes can go in quotes."
          , Note [ Para [ Str "In quote." ] ]
          ]
      ]
  , OrderedList
      ( 1 , Decimal , Period )
      [ [ Plain
            [ Str "And in list items." , Note [ Para [ Str "In list." ] ] ]
        ]
      ]
  , Para
      [ Str
          "This paragraph should not be part of the note, as it is not indented."
      ]
  ]