Switch from pretty-simple to pretty-show for native output.

Update tests.

Reason:  it turns out that the native output generated by
pretty-simple isn't always readable by the native reader.
According to https://github.com/cdepillabout/pretty-simple/issues/99
it is not a design goal of the library that the rendered values
be readable using 'read'.  This makes it unsuitable for our
purposes.

pretty-show is a bit slower and it uses 4-space indents
(non-configurable), but it doesn't have this serious drawback.

1 files changed, 890 insertions, 912 deletions

diff --git a/test/creole-reader.native b/test/creole-reader.native
index 0c8fc3677..5590a14d1 100644
--- a/test/creole-reader.native
+++ b/test/creole-reader.native
@@ -1,992 +1,970 @@
 Pandoc
-  ( Meta { unMeta = fromList [] } )
-  [ Header 1
-    ( "", [], [] )
-    [ Str "Top-level heading (1)" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "This a test for creole 0.1 (2)" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "This is a Subheading (3)" ]
-  , Header 4
-    ( "", [], [] )
-    [ Str "Subsub (4)" ]
-  , Header 5
-    ( "", [], [] )
-    [ Str "Subsubsub (5)" ]
+  Meta { unMeta = fromList [] }
+  [ Header 1 ( "" , [] , [] ) [ Str "Top-level heading (1)" ]
+  , Header
+      2 ( "" , [] , [] ) [ Str "This a test for creole 0.1 (2)" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "This is a Subheading (3)" ]
+  , Header 4 ( "" , [] , [] ) [ Str "Subsub (4)" ]
+  , Header 5 ( "" , [] , [] ) [ Str "Subsubsub (5)" ]
   , Para
-    [ Str "The"
-    , Space
-    , Str "ending"
-    , Space
-    , Str "equal"
-    , Space
-    , Str "signs"
-    , Space
-    , Str "should"
-    , Space
-    , Str "not"
-    , Space
-    , Str "be"
-    , Space
-    , Str "displayed:"
-    ]
-  , Header 1
-    ( "", [], [] )
-    [ Str "Top-level heading (1)" ]
-  , Header 2
-    ( "", [], [] )
-    [ Str "This a test for creole 0.1 (2)" ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "This is a Subheading (3)" ]
-  , Header 4
-    ( "", [], [] )
-    [ Str "Subsub (4)" ]
-  , Header 5
-    ( "", [], [] )
-    [ Str "Subsubsub (5)" ]
-  , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "make"
-    , Space
-    , Str "things"
-    , Space
-    , Strong
-      [ Str "bold" ]
-    , Space
-    , Str "or"
-    , Space
-    , Emph
-      [ Str "italic" ]
-    , Space
-    , Str "or"
-    , Space
-    , Strong
-      [ Emph [ Str "both" ] ]
-    , Space
-    , Str "or"
-    , Space
-    , Emph
-      [ Strong [ Str "both" ] ]
-    , Str "."
-    ]
+      [ Str "The"
+      , Space
+      , Str "ending"
+      , Space
+      , Str "equal"
+      , Space
+      , Str "signs"
+      , Space
+      , Str "should"
+      , Space
+      , Str "not"
+      , Space
+      , Str "be"
+      , Space
+      , Str "displayed:"
+      ]
+  , Header 1 ( "" , [] , [] ) [ Str "Top-level heading (1)" ]
+  , Header
+      2 ( "" , [] , [] ) [ Str "This a test for creole 0.1 (2)" ]
+  , Header
+      3 ( "" , [] , [] ) [ Str "This is a Subheading (3)" ]
+  , Header 4 ( "" , [] , [] ) [ Str "Subsub (4)" ]
+  , Header 5 ( "" , [] , [] ) [ Str "Subsubsub (5)" ]
   , Para
-    [ Str "Character"
-    , Space
-    , Str "formatting"
-    , Space
-    , Str "extends"
-    , Space
-    , Str "across"
-    , Space
-    , Str "line"
-    , Space
-    , Str "breaks:"
-    , Space
-    , Strong
-      [ Str "bold,"
+      [ Str "You"
       , Space
-      , Str "this"
+      , Str "can"
       , Space
-      , Str "is"
+      , Str "make"
       , Space
-      , Str "still"
+      , Str "things"
       , Space
-      , Str "bold."
+      , Strong [ Str "bold" ]
       , Space
-      , Str "This"
+      , Str "or"
+      , Space
+      , Emph [ Str "italic" ]
+      , Space
+      , Str "or"
+      , Space
+      , Strong [ Emph [ Str "both" ] ]
+      , Space
+      , Str "or"
+      , Space
+      , Emph [ Strong [ Str "both" ] ]
+      , Str "."
+      ]
+  , Para
+      [ Str "Character"
+      , Space
+      , Str "formatting"
+      , Space
+      , Str "extends"
+      , Space
+      , Str "across"
       , Space
       , Str "line"
       , Space
-      , Str "deliberately"
+      , Str "breaks:"
+      , Space
+      , Strong
+          [ Str "bold,"
+          , Space
+          , Str "this"
+          , Space
+          , Str "is"
+          , Space
+          , Str "still"
+          , Space
+          , Str "bold."
+          , Space
+          , Str "This"
+          , Space
+          , Str "line"
+          , Space
+          , Str "deliberately"
+          , Space
+          , Str "does"
+          , Space
+          , Str "not"
+          , Space
+          , Str "end"
+          , Space
+          , Str "in"
+          , Space
+          , Str "star-star."
+          ]
+      ]
+  , Para
+      [ Str "Not"
+      , Space
+      , Str "bold."
+      , Space
+      , Str "Character"
+      , Space
+      , Str "formatting"
       , Space
       , Str "does"
       , Space
       , Str "not"
       , Space
-      , Str "end"
+      , Str "cross"
       , Space
-      , Str "in"
+      , Str "paragraph"
       , Space
-      , Str "star-star."
+      , Str "boundaries."
       ]
-    ]
-  , Para
-    [ Str "Not"
-    , Space
-    , Str "bold."
-    , Space
-    , Str "Character"
-    , Space
-    , Str "formatting"
-    , Space
-    , Str "does"
-    , Space
-    , Str "not"
-    , Space
-    , Str "cross"
-    , Space
-    , Str "paragraph"
-    , Space
-    , Str "boundaries."
-    ]
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "use"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "internal links" ]
-      ( "internal links", "" )
-    , Space
-    , Str "or"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "external links" ]
-      ( "http://www.wikicreole.org", "" )
-    , Str ","
-    , Space
-    , Str "give"
-    , Space
-    , Str "the"
-    , Space
-    , Str "link"
-    , Space
-    , Str "a"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "different" ]
-      ( "internal links", "" )
-    , Space
-    , Str "name."
-    ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "use"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "internal links" ]
+          ( "internal links" , "" )
+      , Space
+      , Str "or"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "external links" ]
+          ( "http://www.wikicreole.org" , "" )
+      , Str ","
+      , Space
+      , Str "give"
+      , Space
+      , Str "the"
+      , Space
+      , Str "link"
+      , Space
+      , Str "a"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "different" ]
+          ( "internal links" , "" )
+      , Space
+      , Str "name."
+      ]
   , Para
-    [ Str "Here's"
-    , Space
-    , Str "another"
-    , Space
-    , Str "sentence:"
-    , Space
-    , Str "This"
-    , Space
-    , Str "wisdom"
-    , Space
-    , Str "is"
-    , Space
-    , Str "taken"
-    , Space
-    , Str "from"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "Ward Cunningham's" ]
-      ( "Ward Cunningham's", "" )
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "Presentation at the Wikisym 06" ]
-      ( "http://www.c2.com/doc/wikisym/WikiSym2006.pdf", "" )
-    , Str "."
-    ]
+      [ Str "Here's"
+      , Space
+      , Str "another"
+      , Space
+      , Str "sentence:"
+      , Space
+      , Str "This"
+      , Space
+      , Str "wisdom"
+      , Space
+      , Str "is"
+      , Space
+      , Str "taken"
+      , Space
+      , Str "from"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "Ward Cunningham's" ]
+          ( "Ward Cunningham's" , "" )
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "Presentation at the Wikisym 06" ]
+          ( "http://www.c2.com/doc/wikisym/WikiSym2006.pdf" , "" )
+      , Str "."
+      ]
   , Para
-    [ Str "Here's"
-    , Space
-    , Str "a"
-    , Space
-    , Str "external"
-    , Space
-    , Str "link"
-    , Space
-    , Str "without"
-    , Space
-    , Str "a"
-    , Space
-    , Str "description:"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://www.wikicreole.org" ]
-      ( "http://www.wikicreole.org", "" )
-    ]
+      [ Str "Here's"
+      , Space
+      , Str "a"
+      , Space
+      , Str "external"
+      , Space
+      , Str "link"
+      , Space
+      , Str "without"
+      , Space
+      , Str "a"
+      , Space
+      , Str "description:"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://www.wikicreole.org" ]
+          ( "http://www.wikicreole.org" , "" )
+      ]
   , Para
-    [ Str "Be"
-    , Space
-    , Str "careful"
-    , Space
-    , Str "that"
-    , Space
-    , Str "italic"
-    , Space
-    , Str "links"
-    , Space
-    , Str "are"
-    , Space
-    , Str "rendered"
-    , Space
-    , Str "properly:"
-    , Space
-    , Emph
-      [ Link
-        ( "", [], [] )
-        [ Str "My Book Title" ]
-        ( "http://my.book.example/", "" )
-      ]
-    ]
+      [ Str "Be"
+      , Space
+      , Str "careful"
+      , Space
+      , Str "that"
+      , Space
+      , Str "italic"
+      , Space
+      , Str "links"
+      , Space
+      , Str "are"
+      , Space
+      , Str "rendered"
+      , Space
+      , Str "properly:"
+      , Space
+      , Emph
+          [ Link
+              ( "" , [] , [] )
+              [ Str "My Book Title" ]
+              ( "http://my.book.example/" , "" )
+          ]
+      ]
   , Para
-    [ Str "Free"
-    , Space
-    , Str "links"
-    , Space
-    , Str "without"
-    , Space
-    , Str "braces"
-    , Space
-    , Str "should"
-    , Space
-    , Str "be"
-    , Space
-    , Str "rendered"
-    , Space
-    , Str "as"
-    , Space
-    , Str "well,"
-    , Space
-    , Str "like"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://www.wikicreole.org/" ]
-      ( "http://www.wikicreole.org/", "" )
-    , Space
-    , Str "and"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://www.wikicreole.org/users/~example" ]
-      ( "http://www.wikicreole.org/users/~example", "" )
-    , Str "."
-    ]
+      [ Str "Free"
+      , Space
+      , Str "links"
+      , Space
+      , Str "without"
+      , Space
+      , Str "braces"
+      , Space
+      , Str "should"
+      , Space
+      , Str "be"
+      , Space
+      , Str "rendered"
+      , Space
+      , Str "as"
+      , Space
+      , Str "well,"
+      , Space
+      , Str "like"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://www.wikicreole.org/" ]
+          ( "http://www.wikicreole.org/" , "" )
+      , Space
+      , Str "and"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://www.wikicreole.org/users/~example" ]
+          ( "http://www.wikicreole.org/users/~example" , "" )
+      , Str "."
+      ]
   , Para
-    [ Str "Creole1.0"
-    , Space
-    , Str "specifies"
-    , Space
-    , Str "that"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://bar" ]
-      ( "http://bar", "" )
-    , Space
-    , Str "and"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "ftp://bar" ]
-      ( "ftp://bar", "" )
-    , Space
-    , Str "should"
-    , Space
-    , Str "not"
-    , Space
-    , Str "render"
-    , Space
-    , Str "italic,"
-    , Space
-    , Str "something"
-    , Space
-    , Str "like"
-    , Space
-    , Str "foo:"
-    , Emph
-      [ Str "bar"
+      [ Str "Creole1.0"
+      , Space
+      , Str "specifies"
+      , Space
+      , Str "that"
+      , Space
+      , Link
+          ( "" , [] , [] ) [ Str "http://bar" ] ( "http://bar" , "" )
+      , Space
+      , Str "and"
+      , Space
+      , Link
+          ( "" , [] , [] ) [ Str "ftp://bar" ] ( "ftp://bar" , "" )
       , Space
       , Str "should"
       , Space
+      , Str "not"
+      , Space
       , Str "render"
       , Space
-      , Str "as"
+      , Str "italic,"
       , Space
-      , Str "italic."
+      , Str "something"
+      , Space
+      , Str "like"
+      , Space
+      , Str "foo:"
+      , Emph
+          [ Str "bar"
+          , Space
+          , Str "should"
+          , Space
+          , Str "render"
+          , Space
+          , Str "as"
+          , Space
+          , Str "italic."
+          ]
       ]
-    ]
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "use"
-    , Space
-    , Str "this"
-    , Space
-    , Str "to"
-    , Space
-    , Str "draw"
-    , Space
-    , Str "a"
-    , Space
-    , Str "line"
-    , Space
-    , Str "to"
-    , Space
-    , Str "separate"
-    , Space
-    , Str "the"
-    , Space
-    , Str "page:"
-    ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "use"
+      , Space
+      , Str "this"
+      , Space
+      , Str "to"
+      , Space
+      , Str "draw"
+      , Space
+      , Str "a"
+      , Space
+      , Str "line"
+      , Space
+      , Str "to"
+      , Space
+      , Str "separate"
+      , Space
+      , Str "the"
+      , Space
+      , Str "page:"
+      ]
   , HorizontalRule
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "use"
-    , Space
-    , Str "lists,"
-    , Space
-    , Str "start"
-    , Space
-    , Str "it"
-    , Space
-    , Str "at"
-    , Space
-    , Str "the"
-    , Space
-    , Str "first"
-    , Space
-    , Str "column"
-    , Space
-    , Str "for"
-    , Space
-    , Str "now,"
-    , Space
-    , Str "please..."
-    ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "use"
+      , Space
+      , Str "lists,"
+      , Space
+      , Str "start"
+      , Space
+      , Str "it"
+      , Space
+      , Str "at"
+      , Space
+      , Str "the"
+      , Space
+      , Str "first"
+      , Space
+      , Str "column"
+      , Space
+      , Str "for"
+      , Space
+      , Str "now,"
+      , Space
+      , Str "please..."
+      ]
   , Para
-    [ Str "unnumbered"
-    , Space
-    , Str "lists"
-    , Space
-    , Str "are"
-    , Space
-    , Str "like"
-    ]
+      [ Str "unnumbered"
+      , Space
+      , Str "lists"
+      , Space
+      , Str "are"
+      , Space
+      , Str "like"
+      ]
   , BulletList
-    [
-      [ Plain [ Str "item", Space, Str "a" ] ]
-    ,
-      [ Plain [ Str "item", Space, Str "b" ] ]
-    ,
-      [ Plain
-        [ Strong [ Str "bold", Space, Str "item", Space, Str "c" ] ]
-      ]
-    ]
+      [ [ Plain [ Str "item" , Space , Str "a" ] ]
+      , [ Plain [ Str "item" , Space , Str "b" ] ]
+      , [ Plain
+            [ Strong
+                [ Str "bold" , Space , Str "item" , Space , Str "c" ]
+            ]
+        ]
+      ]
   , Para
-    [ Str "blank"
-    , Space
-    , Str "space"
-    , Space
-    , Str "is"
-    , Space
-    , Str "also"
-    , Space
-    , Str "permitted"
-    , Space
-    , Str "before"
-    , Space
-    , Str "lists"
-    , Space
-    , Str "like:"
-    ]
+      [ Str "blank"
+      , Space
+      , Str "space"
+      , Space
+      , Str "is"
+      , Space
+      , Str "also"
+      , Space
+      , Str "permitted"
+      , Space
+      , Str "before"
+      , Space
+      , Str "lists"
+      , Space
+      , Str "like:"
+      ]
   , BulletList
-    [
-      [ Plain [ Str "item", Space, Str "a" ] ]
-    ,
-      [ Plain [ Str "item", Space, Str "b" ] ]
-    ,
-      [ Plain
-        [ Str "item", Space, Str "c" ]
-      , BulletList
-        [ [ Plain [ Str "item", Space, Str "c.a" ] ] ]
-      ]
-    ]
+      [ [ Plain [ Str "item" , Space , Str "a" ] ]
+      , [ Plain [ Str "item" , Space , Str "b" ] ]
+      , [ Plain [ Str "item" , Space , Str "c" ]
+        , BulletList
+            [ [ Plain [ Str "item" , Space , Str "c.a" ] ] ]
+        ]
+      ]
   , Para
-    [ Str "or"
-    , Space
-    , Str "you"
-    , Space
-    , Str "can"
-    , Space
-    , Str "number"
-    , Space
-    , Str "them"
-    ]
+      [ Str "or"
+      , Space
+      , Str "you"
+      , Space
+      , Str "can"
+      , Space
+      , Str "number"
+      , Space
+      , Str "them"
+      ]
   , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [
-      [ Plain
-        [ Link ( "", [], [] ) [ Str "item 1" ] ( "item 1", "" ) ]
-      ]
-    ,
-      [ Plain [ Str "item", Space, Str "2" ] ]
-    ,
-      [ Plain
-        [ Emph
-          [ Space
-          , Str "italic"
-          , Space
-          , Str "item"
-          , Space
-          , Str "3"
-          , Space
-          ]
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Plain
+            [ Link ( "" , [] , [] ) [ Str "item 1" ] ( "item 1" , "" ) ]
         ]
-      , OrderedList
-        ( 1, DefaultStyle, DefaultDelim )
-        [
-          [ Plain [ Str "item", Space, Str "3.1" ] ]
-        ,
-          [ Plain [ Str "item", Space, Str "3.2" ] ]
+      , [ Plain [ Str "item" , Space , Str "2" ] ]
+      , [ Plain
+            [ Emph
+                [ Space
+                , Str "italic"
+                , Space
+                , Str "item"
+                , Space
+                , Str "3"
+                , Space
+                ]
+            ]
+        , OrderedList
+            ( 1 , DefaultStyle , DefaultDelim )
+            [ [ Plain [ Str "item" , Space , Str "3.1" ] ]
+            , [ Plain [ Str "item" , Space , Str "3.2" ] ]
+            ]
         ]
       ]
-    ]
   , Para
-    [ Str "up"
-    , Space
-    , Str "to"
-    , Space
-    , Str "five"
-    , Space
-    , Str "levels"
-    ]
+      [ Str "up"
+      , Space
+      , Str "to"
+      , Space
+      , Str "five"
+      , Space
+      , Str "levels"
+      ]
   , BulletList
-    [
-      [ Plain
-        [ Str "1" ]
-      , BulletList
-        [
-          [ Plain
-            [ Str "2" ]
-          , BulletList
-            [
-              [ Plain
-                [ Str "3" ]
+      [ [ Plain [ Str "1" ]
+        , BulletList
+            [ [ Plain [ Str "2" ]
               , BulletList
-                [
-                  [ Plain
-                    [ Str "4" ]
-                  , BulletList
-                    [ [ Plain [ Str "5" ] ] ]
+                  [ [ Plain [ Str "3" ]
+                    , BulletList
+                        [ [ Plain [ Str "4" ]
+                          , BulletList [ [ Plain [ Str "5" ] ] ]
+                          ]
+                        ]
+                    ]
                   ]
-                ]
               ]
             ]
-          ]
         ]
       ]
-    ]
   , BulletList
-    [
-      [ Plain
-        [ Str "You"
-        , Space
-        , Str "can"
-        , Space
-        , Str "have"
-        , Space
-        , Str "multiline"
-        , Space
-        , Str "list"
-        , Space
-        , Str "items"
+      [ [ Plain
+            [ Str "You"
+            , Space
+            , Str "can"
+            , Space
+            , Str "have"
+            , Space
+            , Str "multiline"
+            , Space
+            , Str "list"
+            , Space
+            , Str "items"
+            ]
         ]
-      ]
-    ,
-      [ Plain
-        [ Str "this"
-        , Space
-        , Str "is"
-        , Space
-        , Str "a"
-        , Space
-        , Str "second"
-        , Space
-        , Str "multiline"
-        , Space
-        , Str "list"
-        , Space
-        , Str "item"
+      , [ Plain
+            [ Str "this"
+            , Space
+            , Str "is"
+            , Space
+            , Str "a"
+            , Space
+            , Str "second"
+            , Space
+            , Str "multiline"
+            , Space
+            , Str "list"
+            , Space
+            , Str "item"
+            ]
         ]
       ]
-    ]
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "use"
-    , Space
-    , Str "nowiki"
-    , Space
-    , Str "syntax"
-    , Space
-    , Str "if"
-    , Space
-    , Str "you"
-    , Space
-    , Str "would"
-    , Space
-    , Str "like"
-    , Space
-    , Str "do"
-    , Space
-    , Str "stuff"
-    , Space
-    , Str "like"
-    , Space
-    , Str "this:"
-    ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "use"
+      , Space
+      , Str "nowiki"
+      , Space
+      , Str "syntax"
+      , Space
+      , Str "if"
+      , Space
+      , Str "you"
+      , Space
+      , Str "would"
+      , Space
+      , Str "like"
+      , Space
+      , Str "do"
+      , Space
+      , Str "stuff"
+      , Space
+      , Str "like"
+      , Space
+      , Str "this:"
+      ]
   , CodeBlock
-    ( ""
-    , []
-    , []
-    ) "Guitar Chord C:\n\n||---|---|---|\n||-0-|---|---|\n||---|---|---|\n||---|-0-|---|\n||---|---|-0-|\n||---|---|---|"
+      ( "" , [] , [] )
+      "Guitar Chord C:\n\n||---|---|---|\n||-0-|---|---|\n||---|---|---|\n||---|-0-|---|\n||---|---|-0-|\n||---|---|---|"
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "also"
-    , Space
-    , Str "use"
-    , Space
-    , Str "it"
-    , Space
-    , Str "inline"
-    , Space
-    , Str "nowiki"
-    , Space
-    , Code
-      ( "", [], [] ) " in a sentence "
-    , Space
-    , Str "like"
-    , Space
-    , Str "this."
-    ]
-  , Header 1
-    ( "", [], [] )
-    [ Str "Escapes" ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "also"
+      , Space
+      , Str "use"
+      , Space
+      , Str "it"
+      , Space
+      , Str "inline"
+      , Space
+      , Str "nowiki"
+      , Space
+      , Code ( "" , [] , [] ) " in a sentence "
+      , Space
+      , Str "like"
+      , Space
+      , Str "this."
+      ]
+  , Header 1 ( "" , [] , [] ) [ Str "Escapes" ]
   , Para
-    [ Str "Normal"
-    , Space
-    , Str "Link:"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://wikicreole.org/" ]
-      ( "http://wikicreole.org/", "" )
-    , Space
-    , Str "-"
-    , Space
-    , Str "now"
-    , Space
-    , Str "same"
-    , Space
-    , Str "link,"
-    , Space
-    , Str "but"
-    , Space
-    , Str "escaped:"
-    , Space
-    , Str "http://wikicreole.org/"
-    ]
+      [ Str "Normal"
+      , Space
+      , Str "Link:"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://wikicreole.org/" ]
+          ( "http://wikicreole.org/" , "" )
+      , Space
+      , Str "-"
+      , Space
+      , Str "now"
+      , Space
+      , Str "same"
+      , Space
+      , Str "link,"
+      , Space
+      , Str "but"
+      , Space
+      , Str "escaped:"
+      , Space
+      , Str "http://wikicreole.org/"
+      ]
   , Para
-    [ Str "Normal"
-    , Space
-    , Str "asterisks:"
-    , Space
-    , Str "**not"
-    , Space
-    , Str "bold**"
-    ]
+      [ Str "Normal"
+      , Space
+      , Str "asterisks:"
+      , Space
+      , Str "**not"
+      , Space
+      , Str "bold**"
+      ]
   , Para
-    [ Str "a", Space, Str "tilde", Space, Str "alone:", Space, Str "~" ]
+      [ Str "a"
+      , Space
+      , Str "tilde"
+      , Space
+      , Str "alone:"
+      , Space
+      , Str "~"
+      ]
   , Para
-    [ Str "a"
-    , Space
-    , Str "tilde"
-    , Space
-    , Str "escapes"
-    , Space
-    , Str "itself:"
-    , Space
-    , Str "~xxx"
-    ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Creole 0.2" ]
+      [ Str "a"
+      , Space
+      , Str "tilde"
+      , Space
+      , Str "escapes"
+      , Space
+      , Str "itself:"
+      , Space
+      , Str "~xxx"
+      ]
+  , Header 3 ( "" , [] , [] ) [ Str "Creole 0.2" ]
   , Para
-    [ Str "This"
-    , Space
-    , Str "should"
-    , Space
-    , Str "be"
-    , Space
-    , Str "a"
-    , Space
-    , Str "flower"
-    , Space
-    , Str "with"
-    , Space
-    , Str "the"
-    , Space
-    , Str "ALT"
-    , Space
-    , Str "text"
-    , Space
-    , Str "\"this"
-    , Space
-    , Str "is"
-    , Space
-    , Str "a"
-    , Space
-    , Str "flower\""
-    , Space
-    , Str "if"
-    , Space
-    , Str "your"
-    , Space
-    , Str "wiki"
-    , Space
-    , Str "supports"
-    , Space
-    , Str "ALT"
-    , Space
-    , Str "text"
-    , Space
-    , Str "on"
-    , Space
-    , Str "images:"
-    ]
+      [ Str "This"
+      , Space
+      , Str "should"
+      , Space
+      , Str "be"
+      , Space
+      , Str "a"
+      , Space
+      , Str "flower"
+      , Space
+      , Str "with"
+      , Space
+      , Str "the"
+      , Space
+      , Str "ALT"
+      , Space
+      , Str "text"
+      , Space
+      , Str "\"this"
+      , Space
+      , Str "is"
+      , Space
+      , Str "a"
+      , Space
+      , Str "flower\""
+      , Space
+      , Str "if"
+      , Space
+      , Str "your"
+      , Space
+      , Str "wiki"
+      , Space
+      , Str "supports"
+      , Space
+      , Str "ALT"
+      , Space
+      , Str "text"
+      , Space
+      , Str "on"
+      , Space
+      , Str "images:"
+      ]
   , Para
-    [ Image
-      ( "", [], [] )
-      [ Str "here is a red flower" ]
-      ( "Red-Flower.jpg", "" )
-    ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Creole 0.4" ]
+      [ Image
+          ( "" , [] , [] )
+          [ Str "here is a red flower" ]
+          ( "Red-Flower.jpg" , "" )
+      ]
+  , Header 3 ( "" , [] , [] ) [ Str "Creole 0.4" ]
   , Para
-    [ Str "Tables"
-    , Space
-    , Str "are"
-    , Space
-    , Str "done"
-    , Space
-    , Str "like"
-    , Space
-    , Str "this:"
-    ]
+      [ Str "Tables"
+      , Space
+      , Str "are"
+      , Space
+      , Str "done"
+      , Space
+      , Str "like"
+      , Space
+      , Str "this:"
+      ]
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "header", Space, Str "col1" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "header", Space, Str "col2" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "col1" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "col2" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "you" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "can" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "also" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "align", LineBreak, Str "it." ] ]
-        ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "header" , Space , Str "col1" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "header" , Space , Str "col2" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "col1" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "col2" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "you" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "can" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "also" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "align" , LineBreak , Str "it." ] ]
+              ]
+          ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+      (TableFoot ( "" , [] , [] ) [])
   , Para
-    [ Str "You"
-    , Space
-    , Str "can"
-    , Space
-    , Str "format"
-    , Space
-    , Str "an"
-    , Space
-    , Str "address"
-    , Space
-    , Str "by"
-    , Space
-    , Str "simply"
-    , Space
-    , Str "forcing"
-    , Space
-    , Str "linebreaks:"
-    ]
+      [ Str "You"
+      , Space
+      , Str "can"
+      , Space
+      , Str "format"
+      , Space
+      , Str "an"
+      , Space
+      , Str "address"
+      , Space
+      , Str "by"
+      , Space
+      , Str "simply"
+      , Space
+      , Str "forcing"
+      , Space
+      , Str "linebreaks:"
+      ]
   , Para
-    [ Str "My"
-    , Space
-    , Str "contact"
-    , Space
-    , Str "dates:"
-    , LineBreak
-    , Str "Pone:"
-    , Space
-    , Str "xyz"
-    , LineBreak
-    , Str "Fax:"
-    , Space
-    , Str "+45"
-    , LineBreak
-    , Str "Mobile:"
-    , Space
-    , Str "abc"
-    ]
-  , Header 3
-    ( "", [], [] )
-    [ Str "Creole 0.5" ]
+      [ Str "My"
+      , Space
+      , Str "contact"
+      , Space
+      , Str "dates:"
+      , LineBreak
+      , Str "Pone:"
+      , Space
+      , Str "xyz"
+      , LineBreak
+      , Str "Fax:"
+      , Space
+      , Str "+45"
+      , LineBreak
+      , Str "Mobile:"
+      , Space
+      , Str "abc"
+      ]
+  , Header 3 ( "" , [] , [] ) [ Str "Creole 0.5" ]
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Header", Space, Str "title" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain
-            [ Str "Another", Space, Str "header", Space, Str "title" ]
-          ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Code ( "", [], [] ) " //not italic text// " ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Code ( "", [], [] ) " **not bold text** " ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Emph [ Str "italic", Space, Str "text" ] ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain
-            [ Strong [ Space, Str "bold", Space, Str "text", Space ] ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "Header" , Space , Str "title" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain
+                     [ Str "Another"
+                     , Space
+                     , Str "header"
+                     , Space
+                     , Str "title"
+                     ]
+                 ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Code ( "" , [] , [] ) " //not italic text// " ]
+                  ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Code ( "" , [] , [] ) " **not bold text** " ]
+                  ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Emph [ Str "italic" , Space , Str "text" ] ]
+                  ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Strong
+                          [ Space
+                          , Str "bold"
+                          , Space
+                          , Str "text"
+                          , Space
+                          ]
+                      ]
+                  ]
+              ]
           ]
-        ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
-  , Header 3
-    ( "", [], [] )
-    [ Str "Creole 1.0" ]
+      (TableFoot ( "" , [] , [] ) [])
+  , Header 3 ( "" , [] , [] ) [ Str "Creole 1.0" ]
   , Para
-    [ Str "If"
-    , Space
-    , Str "interwiki"
-    , Space
-    , Str "links"
-    , Space
-    , Str "are"
-    , Space
-    , Str "setup"
-    , Space
-    , Str "in"
-    , Space
-    , Str "your"
-    , Space
-    , Str "wiki,"
-    , Space
-    , Str "this"
-    , Space
-    , Str "links"
-    , Space
-    , Str "to"
-    , Space
-    , Str "the"
-    , Space
-    , Str "WikiCreole"
-    , Space
-    , Str "page"
-    , Space
-    , Str "about"
-    , Space
-    , Str "Creole"
-    , Space
-    , Str "1.0"
-    , Space
-    , Str "test"
-    , Space
-    , Str "cases:"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "WikiCreole:Creole1.0TestCases" ]
-      ( "WikiCreole:Creole1.0TestCases", "" )
-    , Str "."
-    ]
+      [ Str "If"
+      , Space
+      , Str "interwiki"
+      , Space
+      , Str "links"
+      , Space
+      , Str "are"
+      , Space
+      , Str "setup"
+      , Space
+      , Str "in"
+      , Space
+      , Str "your"
+      , Space
+      , Str "wiki,"
+      , Space
+      , Str "this"
+      , Space
+      , Str "links"
+      , Space
+      , Str "to"
+      , Space
+      , Str "the"
+      , Space
+      , Str "WikiCreole"
+      , Space
+      , Str "page"
+      , Space
+      , Str "about"
+      , Space
+      , Str "Creole"
+      , Space
+      , Str "1.0"
+      , Space
+      , Str "test"
+      , Space
+      , Str "cases:"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "WikiCreole:Creole1.0TestCases" ]
+          ( "WikiCreole:Creole1.0TestCases" , "" )
+      , Str "."
+      ]
   , HorizontalRule
   , Para
-    [ Str "The"
-    , Space
-    , Str "above"
-    , Space
-    , Str "test"
-    , Space
-    , Str "document"
-    , Space
-    , Str "was"
-    , Space
-    , Str "found"
-    , Space
-    , Str "on"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://www.wikicreole.org/wiki/Creole1.0TestCases" ]
-      ( "http://www.wikicreole.org/wiki/Creole1.0TestCases", "" )
-    , Space
-    , Str "and"
-    , Space
-    , Str "downloaded"
-    , Space
-    , Str "from"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt" ]
-      ( "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt"
-      , ""
-      )
-    , Str "."
-    ]
+      [ Str "The"
+      , Space
+      , Str "above"
+      , Space
+      , Str "test"
+      , Space
+      , Str "document"
+      , Space
+      , Str "was"
+      , Space
+      , Str "found"
+      , Space
+      , Str "on"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://www.wikicreole.org/wiki/Creole1.0TestCases" ]
+          ( "http://www.wikicreole.org/wiki/Creole1.0TestCases" , "" )
+      , Space
+      , Str "and"
+      , Space
+      , Str "downloaded"
+      , Space
+      , Str "from"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str
+              "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt"
+          ]
+          ( "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt"
+          , ""
+          )
+      , Str "."
+      ]
   , Para
-    [ Str "The"
-    , Space
-    , Str "Creole"
-    , Space
-    , Str "Wiki"
-    , Space
-    , Str "is"
-    , Space
-    , Str "licensed:"
-    , Space
-    , Str "Copyright"
-    , Space
-    , Str "(C)"
-    , Space
-    , Str "by"
-    , Space
-    , Str "the"
-    , Space
-    , Str "contributors."
-    , Space
-    , Str "Some"
-    , Space
-    , Str "rights"
-    , Space
-    , Str "reserved,"
-    , Space
-    , Str "license"
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "https://creativecommons.org/licenses/by-sa/1.0/" ]
-      ( "BY-SA", "" )
-    , Str "."
-    ]
+      [ Str "The"
+      , Space
+      , Str "Creole"
+      , Space
+      , Str "Wiki"
+      , Space
+      , Str "is"
+      , Space
+      , Str "licensed:"
+      , Space
+      , Str "Copyright"
+      , Space
+      , Str "(C)"
+      , Space
+      , Str "by"
+      , Space
+      , Str "the"
+      , Space
+      , Str "contributors."
+      , Space
+      , Str "Some"
+      , Space
+      , Str "rights"
+      , Space
+      , Str "reserved,"
+      , Space
+      , Str "license"
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "https://creativecommons.org/licenses/by-sa/1.0/" ]
+          ( "BY-SA" , "" )
+      , Str "."
+      ]
   ]