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, 694 insertions, 680 deletions

diff --git a/test/tikiwiki-reader.native b/test/tikiwiki-reader.native
index eb10421da..3a3f1038f 100644
--- a/test/tikiwiki-reader.native
+++ b/test/tikiwiki-reader.native
@@ -1,761 +1,775 @@
 Pandoc
-  ( Meta { unMeta = fromList [] } )
-  [ Header 1
-    ( "header", [], [] )
-    [ Str "header" ]
-  , Header 2
-    ( "header-level-two", [], [] )
-    [ Str "header", Space, Str "level", Space, Str "two" ]
-  , Header 3
-    ( "header-level-3", [], [] )
-    [ Str "header", Space, Str "level", Space, Str "3" ]
-  , Header 4
-    ( "header-_level_-four", [], [] )
-    [ Str "header", Space, Str "_level_", Space, Str "four" ]
-  , Header 5
-    ( "header-level-5", [], [] )
-    [ Str "header", Space, Str "level", Space, Str "5" ]
-  , Header 6
-    ( "header-level-6", [], [] )
-    [ Str "header", Space, Str "level", Space, Str "6" ]
-  , Para
-    [ Str "!!!!!!!"
-    , Space
-    , Str "not"
-    , Space
-    , Str "a"
-    , Space
-    , Str "header"
-    ]
-  , Para
-    [ Str "--++"
-    , Space
-    , Str "not"
-    , Space
-    , Str "a"
-    , Space
-    , Str "header"
-    ]
-  , Header 1
-    ( "emph-and-strong", [], [] )
-    [ Str "emph", Space, Str "and", Space, Str "strong" ]
+  Meta { unMeta = fromList [] }
+  [ Header 1 ( "header" , [] , [] ) [ Str "header" ]
+  , Header
+      2
+      ( "header-level-two" , [] , [] )
+      [ Str "header" , Space , Str "level" , Space , Str "two" ]
+  , Header
+      3
+      ( "header-level-3" , [] , [] )
+      [ Str "header" , Space , Str "level" , Space , Str "3" ]
+  , Header
+      4
+      ( "header-_level_-four" , [] , [] )
+      [ Str "header"
+      , Space
+      , Str "_level_"
+      , Space
+      , Str "four"
+      ]
+  , Header
+      5
+      ( "header-level-5" , [] , [] )
+      [ Str "header" , Space , Str "level" , Space , Str "5" ]
+  , Header
+      6
+      ( "header-level-6" , [] , [] )
+      [ Str "header" , Space , Str "level" , Space , Str "6" ]
   , Para
-    [ Emph [ Str "emph" ], Space, Strong [ Str "strong" ] ]
+      [ Str "!!!!!!!"
+      , Space
+      , Str "not"
+      , Space
+      , Str "a"
+      , Space
+      , Str "header"
+      ]
   , Para
-    [ Emph
-      [ Strong
-        [ Str "strong"
-        , Space
-        , Str "and"
-        , Space
-        , Str "emph"
-        , Space
-        , Str "1"
-        ]
+      [ Str "--++"
+      , Space
+      , Str "not"
+      , Space
+      , Str "a"
+      , Space
+      , Str "header"
       ]
-    ]
+  , Header
+      1
+      ( "emph-and-strong" , [] , [] )
+      [ Str "emph" , Space , Str "and" , Space , Str "strong" ]
+  , Para
+      [ Emph [ Str "emph" ] , Space , Strong [ Str "strong" ] ]
   , Para
-    [ Strong
       [ Emph
-        [ Str "strong"
-        , Space
-        , Str "and"
-        , Space
-        , Str "emph"
-        , Space
-        , Str "2"
-        ]
+          [ Strong
+              [ Str "strong"
+              , Space
+              , Str "and"
+              , Space
+              , Str "emph"
+              , Space
+              , Str "1"
+              ]
+          ]
       ]
-    ]
   , Para
-    [ Strong
-      [ Emph [ Str "emph", Space, Str "inside" ], Space, Str "strong" ]
-    ]
+      [ Strong
+          [ Emph
+              [ Str "strong"
+              , Space
+              , Str "and"
+              , Space
+              , Str "emph"
+              , Space
+              , Str "2"
+              ]
+          ]
+      ]
   , Para
-    [ Strong
-      [ Str "strong", Space, Str "with", Space, Emph [ Str "emph" ] ]
-    ]
+      [ Strong
+          [ Emph [ Str "emph" , Space , Str "inside" ]
+          , Space
+          , Str "strong"
+          ]
+      ]
   , Para
-    [ Emph
       [ Strong
-        [ Str "strong", Space, Str "inside" ]
-      , Space
-      , Str "emph"
+          [ Str "strong"
+          , Space
+          , Str "with"
+          , Space
+          , Emph [ Str "emph" ]
+          ]
       ]
-    ]
-  , Header 1
-    ( "horizontal-rule", [], [] )
-    [ Str "horizontal", Space, Str "rule" ]
   , Para
-    [ Str "top" ]
+      [ Emph
+          [ Strong [ Str "strong" , Space , Str "inside" ]
+          , Space
+          , Str "emph"
+          ]
+      ]
+  , Header
+      1
+      ( "horizontal-rule" , [] , [] )
+      [ Str "horizontal" , Space , Str "rule" ]
+  , Para [ Str "top" ]
   , HorizontalRule
-  , Para
-    [ Str "bottom" ]
+  , Para [ Str "bottom" ]
   , HorizontalRule
-  , Header 1
-    ( "nop", [], [] )
-    [ Str "nop" ]
-  , Para
-    [ Str "__not emph__" ]
-  , Header 1
-    ( "entities", [], [] )
-    [ Str "entities" ]
-  , Para
-    [ Str "hi", Space, Str "&", Space, Str "low" ]
-  , Para
-    [ Str "hi", Space, Str "&", Space, Str "low" ]
-  , Para
-    [ Str "G\246del" ]
-  , Para
-    [ Str "\777\2730" ]
-  , Header 1
-    ( "linebreaks", [], [] )
-    [ Str "linebreaks" ]
-  , Para
-    [ Str "hi", LineBreak, Str "there" ]
-  , Para
-    [ Str "hi", LineBreak, Str "there" ]
-  , Header 1
-    ( "inline-code", [], [] )
-    [ Str "inline", Space, Str "code" ]
-  , Para
-    [ Code
-      ( "", [], [] ) "*\8594*"
-    , Space
-    , Code
-      ( "", [], [] ) "typed"
-    , Space
-    , Code
-      ( "", [], [] ) ">>="
-    ]
-  , Header 1
-    ( "code-blocks", [], [] )
-    [ Str "code", Space, Str "blocks" ]
-  , CodeBlock
-    ( ""
-    , []
-    , []
-    ) "\ncase xs of\n     (_:_) -> reverse xs\n     []    -> ['*']\n"
-  , CodeBlock
-    ( ""
-    , [ "haskell" ]
-    ,
-      [ ( "colors", "haskell" ), ( "ln", "0" ) ]
-    ) "\ncase xs of\n     (_:_) -> reverse xs\n     []    -> ['*']\n"
-  , Header 1
-    ( "external-links", [], [] )
-    [ Str "external", Space, Str "links" ]
+  , Header 1 ( "nop" , [] , [] ) [ Str "nop" ]
+  , Para [ Str "__not emph__" ]
+  , Header 1 ( "entities" , [] , [] ) [ Str "entities" ]
+  , Para [ Str "hi" , Space , Str "&" , Space , Str "low" ]
+  , Para [ Str "hi" , Space , Str "&" , Space , Str "low" ]
+  , Para [ Str "G\246del" ]
+  , Para [ Str "\777\2730" ]
+  , Header 1 ( "linebreaks" , [] , [] ) [ Str "linebreaks" ]
+  , Para [ Str "hi" , LineBreak , Str "there" ]
+  , Para [ Str "hi" , LineBreak , Str "there" ]
+  , Header
+      1
+      ( "inline-code" , [] , [] )
+      [ Str "inline" , Space , Str "code" ]
   , Para
-    [ Link
-      ( "", [], [] )
-      [ Emph
-        [ Str "Google" ]
+      [ Code ( "" , [] , [] ) "*\8594*"
       , Space
-      , Str "search"
+      , Code ( "" , [] , [] ) "typed"
       , Space
-      , Str "engine"
+      , Code ( "" , [] , [] ) ">>="
       ]
-      ( "http://google.com", "" )
-    ]
-  , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "http://pandoc.org" ]
-      ( "http://pandoc.org", "" )
-    ]
+  , Header
+      1
+      ( "code-blocks" , [] , [] )
+      [ Str "code" , Space , Str "blocks" ]
+  , CodeBlock
+      ( "" , [] , [] )
+      "\ncase xs of\n     (_:_) -> reverse xs\n     []    -> ['*']\n"
+  , CodeBlock
+      ( ""
+      , [ "haskell" ]
+      , [ ( "colors" , "haskell" ) , ( "ln" , "0" ) ]
+      )
+      "\ncase xs of\n     (_:_) -> reverse xs\n     []    -> ['*']\n"
+  , Header
+      1
+      ( "external-links" , [] , [] )
+      [ Str "external" , Space , Str "links" ]
   , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "http://google.com" ]
-      ( "http://google.com", "" )
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://yahoo.com" ]
-      ( "http://yahoo.com", "" )
-    ]
+      [ Link
+          ( "" , [] , [] )
+          [ Emph [ Str "Google" ]
+          , Space
+          , Str "search"
+          , Space
+          , Str "engine"
+          ]
+          ( "http://google.com" , "" )
+      ]
   , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "email", Space, Str "me" ]
-      ( "mailto:info@example.org", "" )
-    ]
+      [ Link
+          ( "" , [] , [] )
+          [ Str "http://pandoc.org" ]
+          ( "http://pandoc.org" , "" )
+      ]
   , Para
-    [ Str "http://google.com" ]
+      [ Link
+          ( "" , [] , [] )
+          [ Str "http://google.com" ]
+          ( "http://google.com" , "" )
+      , Space
+      , Link
+          ( "" , [] , [] )
+          [ Str "http://yahoo.com" ]
+          ( "http://yahoo.com" , "" )
+      ]
   , Para
-    [ Str "info@example.org" ]
-  , Header 1
-    ( "lists", [], [] )
-    [ Str "lists" ]
+      [ Link
+          ( "" , [] , [] )
+          [ Str "email" , Space , Str "me" ]
+          ( "mailto:info@example.org" , "" )
+      ]
+  , Para [ Str "http://google.com" ]
+  , Para [ Str "info@example.org" ]
+  , Header 1 ( "lists" , [] , [] ) [ Str "lists" ]
   , BulletList
-    [
-      [ Plain [ Str "Start", Space, Str "each", Space, Str "line" ] ]
-    ,
-      [ Plain
-        [ Str "with"
-        , Space
-        , Str "an"
-        , Space
-        , Str "asterisk"
-        , Space
-        , Str "(*)."
+      [ [ Plain
+            [ Str "Start" , Space , Str "each" , Space , Str "line" ]
         ]
-      , BulletList
-        [
-          [ Plain
-            [ Str "More"
+      , [ Plain
+            [ Str "with"
             , Space
-            , Str "asterisks"
+            , Str "an"
             , Space
-            , Str "gives"
+            , Str "asterisk"
             , Space
-            , Str "deeper"
+            , Str "(*)."
             ]
-          , BulletList
-            [
-              [ Plain
-                [ Str "and", Space, Str "deeper", Space, Str "levels." ]
+        , BulletList
+            [ [ Plain
+                  [ Str "More"
+                  , Space
+                  , Str "asterisks"
+                  , Space
+                  , Str "gives"
+                  , Space
+                  , Str "deeper"
+                  ]
+              , BulletList
+                  [ [ Plain
+                        [ Str "and"
+                        , Space
+                        , Str "deeper"
+                        , Space
+                        , Str "levels."
+                        ]
+                    ]
+                  ]
               ]
             ]
-          ]
-        ]
-      ]
-    ,
-      [ Plain
-        [ Str "Line"
-        , Space
-        , Str "breaks"
-        , LineBreak
-        , Str "don't"
-        , Space
-        , Str "break"
-        , Space
-        , Str "levels."
-        ]
-      ]
-    ,
-      [ Plain
-        [ Str "Continuations"
-        , Space
-        , Str "are"
-        , Space
-        , Str "also"
-        , Space
-        , Str "possible"
         ]
-      , BulletList
-        [
-          [ Plain
-            [ Str "and"
+      , [ Plain
+            [ Str "Line"
             , Space
-            , Str "do"
-            , Space
-            , Str "not"
+            , Str "breaks"
+            , LineBreak
+            , Str "don't"
             , Space
             , Str "break"
             , Space
-            , Str "the"
+            , Str "levels."
+            ]
+        ]
+      , [ Plain
+            [ Str "Continuations"
             , Space
-            , Str "list"
+            , Str "are"
+            , Space
+            , Str "also"
             , Space
-            , Str "flow"
+            , Str "possible"
+            ]
+        , BulletList
+            [ [ Plain
+                  [ Str "and"
+                  , Space
+                  , Str "do"
+                  , Space
+                  , Str "not"
+                  , Space
+                  , Str "break"
+                  , Space
+                  , Str "the"
+                  , Space
+                  , Str "list"
+                  , Space
+                  , Str "flow"
+                  ]
+              ]
             ]
-          ]
         ]
+      , [ Plain [ Str "Level" , Space , Str "one" ] ]
       ]
-    ,
-      [ Plain [ Str "Level", Space, Str "one" ] ]
-    ]
   , Para
-    [ Str "Any"
-    , Space
-    , Str "other"
-    , Space
-    , Str "start"
-    , Space
-    , Str "ends"
-    , Space
-    , Str "the"
-    , Space
-    , Str "list."
-    ]
+      [ Str "Any"
+      , Space
+      , Str "other"
+      , Space
+      , Str "start"
+      , Space
+      , Str "ends"
+      , Space
+      , Str "the"
+      , Space
+      , Str "list."
+      ]
   , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [
-      [ Plain [ Str "Start", Space, Str "each", Space, Str "line" ] ]
-    ,
-      [ Plain
-        [ Str "with"
-        , Space
-        , Str "a"
-        , Space
-        , Str "number"
-        , Space
-        , Str "(1.)."
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Plain
+            [ Str "Start" , Space , Str "each" , Space , Str "line" ]
         ]
-      , OrderedList
-        ( 1, DefaultStyle, DefaultDelim )
-        [
-          [ Plain
-            [ Str "More"
-            , Space
-            , Str "number"
+      , [ Plain
+            [ Str "with"
             , Space
-            , Str "signs"
+            , Str "a"
             , Space
-            , Str "gives"
+            , Str "number"
             , Space
-            , Str "deeper"
+            , Str "(1.)."
             ]
-          , OrderedList
-            ( 1, DefaultStyle, DefaultDelim )
-            [
-              [ Plain [ Str "and", Space, Str "deeper" ] ]
-            ,
-              [ Plain [ Str "levels." ] ]
+        , OrderedList
+            ( 1 , DefaultStyle , DefaultDelim )
+            [ [ Plain
+                  [ Str "More"
+                  , Space
+                  , Str "number"
+                  , Space
+                  , Str "signs"
+                  , Space
+                  , Str "gives"
+                  , Space
+                  , Str "deeper"
+                  ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain [ Str "and" , Space , Str "deeper" ] ]
+                  , [ Plain [ Str "levels." ] ]
+                  ]
+              ]
             ]
-          ]
         ]
-      ]
-    ,
-      [ Plain
-        [ Str "Line"
-        , Space
-        , Str "breaks"
-        , LineBreak
-        , Str "don't"
-        , Space
-        , Str "break"
-        , Space
-        , Str "levels."
+      , [ Plain
+            [ Str "Line"
+            , Space
+            , Str "breaks"
+            , LineBreak
+            , Str "don't"
+            , Space
+            , Str "break"
+            , Space
+            , Str "levels."
+            ]
         ]
+      , [ Plain [ Str "Blank" , Space , Str "lines" ] ]
       ]
-    ,
-      [ Plain [ Str "Blank", Space, Str "lines" ] ]
-    ]
   , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [
-      [ Plain
-        [ Str "end"
-        , Space
-        , Str "the"
-        , Space
-        , Str "list"
-        , Space
-        , Str "and"
-        , Space
-        , Str "start"
-        , Space
-        , Str "another."
-        ]
-      ]
-    ]
-  , Para
-    [ Str "Any"
-    , Space
-    , Str "other"
-    , Space
-    , Str "start"
-    , Space
-    , Str "also"
-    , Space
-    , Str "ends"
-    , Space
-    , Str "the"
-    , Space
-    , Str "list."
-    ]
-  , DefinitionList
-    [
-      (
-        [ Str "item", Space, Str "1" ]
-      ,
-        [ [ Plain [ Str "definition", Space, Str "1" ] ] ]
-      )
-    ,
-      (
-        [ Str "item", Space, Str "2" ]
-      ,
-        [
-          [ Plain
-            [ Str "definition"
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Plain
+            [ Str "end"
             , Space
-            , Str "2-1"
+            , Str "the"
             , Space
-            , Str "definition"
+            , Str "list"
             , Space
-            , Str "2-2"
+            , Str "and"
+            , Space
+            , Str "start"
+            , Space
+            , Str "another."
             ]
-          ]
-        ]
-      )
-    ,
-      (
-        [ Str "item", Space, Emph [ Str "3" ] ]
-      ,
-        [ [ Plain [ Str "definition", Space, Emph [ Str "3" ] ] ] ]
-      )
-    ]
-  , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [
-      [ Plain [ Str "one" ] ]
-    ,
-      [ Plain
-        [ Str "two" ]
-      , BulletList
-        [
-          [ Plain [ Str "two", Space, Str "point", Space, Str "one" ] ]
-        ,
-          [ Plain [ Str "two", Space, Str "point", Space, Str "two" ] ]
         ]
       ]
-    ,
-      [ Plain [ Str "three" ] ]
-    ,
-      [ Plain [ Str "four" ] ]
-    ,
-      [ Plain
-        [ Str "five" ]
-      , OrderedList
-        ( 1, DefaultStyle, DefaultDelim )
-        [
-          [ Plain
-            [ Str "five", Space, Str "sub", Space, Str "1" ]
-          , OrderedList
-            ( 1, DefaultStyle, DefaultDelim )
-            [
-              [ Plain
-                [ Str "five"
-                , Space
-                , Str "sub"
+  , Para
+      [ Str "Any"
+      , Space
+      , Str "other"
+      , Space
+      , Str "start"
+      , Space
+      , Str "also"
+      , Space
+      , Str "ends"
+      , Space
+      , Str "the"
+      , Space
+      , Str "list."
+      ]
+  , DefinitionList
+      [ ( [ Str "item" , Space , Str "1" ]
+        , [ [ Plain [ Str "definition" , Space , Str "1" ] ] ]
+        )
+      , ( [ Str "item" , Space , Str "2" ]
+        , [ [ Plain
+                [ Str "definition"
                 , Space
-                , Str "1"
+                , Str "2-1"
                 , Space
-                , Str "sub"
+                , Str "definition"
                 , Space
-                , Str "1"
+                , Str "2-2"
                 ]
-              ]
             ]
           ]
-        ,
-          [ Plain [ Str "five", Space, Str "sub", Space, Str "2" ] ]
-        ]
-      ]
-    ]
-  , Header 1
-    ( "tables", [], [] )
-    [ Str "tables" ]
-  , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        ]
+        )
+      , ( [ Str "item" , Space , Emph [ Str "3" ] ]
+        , [ [ Plain [ Str "definition" , Space , Emph [ Str "3" ] ]
+            ]
+          ]
+        )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Bread" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Pie" ] ]
+  , OrderedList
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Plain [ Str "one" ] ]
+      , [ Plain [ Str "two" ]
+        , BulletList
+            [ [ Plain
+                  [ Str "two"
+                  , Space
+                  , Str "point"
+                  , Space
+                  , Str "one"
+                  ]
+              ]
+            , [ Plain
+                  [ Str "two"
+                  , Space
+                  , Str "point"
+                  , Space
+                  , Str "two"
+                  ]
+              ]
+            ]
         ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Butter" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Ice", Space, Str "cream" ] ]
+      , [ Plain [ Str "three" ] ]
+      , [ Plain [ Str "four" ] ]
+      , [ Plain [ Str "five" ]
+        , OrderedList
+            ( 1 , DefaultStyle , DefaultDelim )
+            [ [ Plain
+                  [ Str "five" , Space , Str "sub" , Space , Str "1" ]
+              , OrderedList
+                  ( 1 , DefaultStyle , DefaultDelim )
+                  [ [ Plain
+                        [ Str "five"
+                        , Space
+                        , Str "sub"
+                        , Space
+                        , Str "1"
+                        , Space
+                        , Str "sub"
+                        , Space
+                        , Str "1"
+                        ]
+                    ]
+                  ]
+              ]
+            , [ Plain
+                  [ Str "five" , Space , Str "sub" , Space , Str "2" ]
+              ]
+            ]
         ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+  , Header 1 ( "tables" , [] , [] ) [ Str "tables" ]
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Bread" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Pie" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Strong [ Str "Butter" ] ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Ice", Space, Str "cream" ] ]
-        ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Orange" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Apple" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Bread" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Pie" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Butter" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Ice" , Space , Str "cream" ] ]
+              ]
+          ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+      (TableFoot ( "" , [] , [] ) [])
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain
-            [ Str "Bread"
-            , LineBreak
-            , LineBreak
-            , Str "and"
-            , Space
-            , Str "cheese"
-            ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Orange" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Apple" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Bread" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Pie" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Strong [ Str "Butter" ] ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Ice" , Space , Str "cream" ] ]
+              ]
           ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain
-            [ Str "Pie"
-            , LineBreak
-            , LineBreak
-            , Strong
-              [ Str "apple" ]
-            , Space
-            , Str "and"
-            , Space
-            , Emph
-              [ Str "carrot" ]
-            , Space
-            ]
+      ]
+      (TableFoot ( "" , [] , [] ) [])
+  , Table
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
+      ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Orange" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Apple" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Str "Bread"
+                      , LineBreak
+                      , LineBreak
+                      , Str "and"
+                      , Space
+                      , Str "cheese"
+                      ]
+                  ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Str "Pie"
+                      , LineBreak
+                      , LineBreak
+                      , Strong [ Str "apple" ]
+                      , Space
+                      , Str "and"
+                      , Space
+                      , Emph [ Str "carrot" ]
+                      , Space
+                      ]
+                  ]
+              ]
           ]
-        ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+      (TableFoot ( "" , [] , [] ) [])
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Orange", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Apple", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "more" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Bread", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Pie", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "more" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Butter", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "Ice", Space, Str "cream", Space ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Space, Str "and", Space, Str "more", Space ] ]
-        ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "Orange" , Space ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "Apple" , Space ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "more" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "Bread" , Space ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "Pie" , Space ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "more" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Space , Str "Butter" , Space ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Space
+                      , Str "Ice"
+                      , Space
+                      , Str "cream"
+                      , Space
+                      ]
+                  ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain
+                      [ Space , Str "and" , Space , Str "more" , Space ]
+                  ]
+              ]
+          ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+      (TableFoot ( "" , [] , [] ) [])
   ]