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, 767 insertions, 779 deletions

diff --git a/test/twiki-reader.native b/test/twiki-reader.native
index d0a225712..e41301966 100644
--- a/test/twiki-reader.native
+++ b/test/twiki-reader.native
@@ -1,875 +1,863 @@
 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, Emph [ 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" ]
-  , Para
-    [ Emph [ Str "emph" ], Space, Strong [ Str "strong" ] ]
-  , Para
-    [ Emph
-      [ Strong [ Str "strong", Space, Str "and", Space, Str "emph" ] ]
-    ]
-  , Para
-    [ Strong
-      [ Emph [ Str "emph", Space, Str "inside" ], Space, Str "strong" ]
-    ]
-  , Para
-    [ Strong
-      [ Str "strong", Space, Str "with", Space, Emph [ Str "emph" ] ]
-    ]
-  , Para
-    [ Emph
-      [ Strong
-        [ Str "strong", Space, Str "inside" ]
+  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
+      , Emph [ Str "level" ]
       , Space
-      , Str "emph"
+      , Str "four"
       ]
-    ]
-  , Header 1
-    ( "horizontal-rule", [], [] )
-    [ Str "horizontal", Space, Str "rule" ]
-  , Para
-    [ Str "top" ]
-  , HorizontalRule
-  , Para
-    [ Str "bottom" ]
-  , HorizontalRule
-  , Header 1
-    ( "nop", [], [] )
-    [ Str "nop" ]
-  , Para
-    [ Str "_not", Space, Str "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
-    ( "comments", [], [] )
-    [ Str "comments" ]
-  , Para
-    [ Str "inline", Space, Str "comment" ]
-  , Para
-    [ Str "between", Space, Str "blocks" ]
-  , 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
-      ( "", [ "haskell" ], [] ) ">>="
-    ]
-  , Header 1
-    ( "code-blocks", [], [] )
-    [ Str "code", Space, Str "blocks" ]
-  , CodeBlock
-    ( ""
-    , []
-    , []
-    ) "case xs of\n     (_:_) -> reverse xs\n     []    -> ['*']"
-  , CodeBlock
-    ( ""
-    , [ "haskell" ]
-    , []
-    ) "case xs of\n     (_:_) -> reverse xs\n     []    -> ['*']"
-  , Header 1
-    ( "block-quotes", [], [] )
-    [ Str "block", Space, Str "quotes" ]
-  , Para
-    [ Str "Regular", Space, Str "paragraph" ]
-  , BlockQuote
-    [ Para
-      [ Str "This"
+  , 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 "is"
+      , Str "not"
       , Space
       , Str "a"
       , Space
-      , Str "block"
-      , Space
-      , Str "quote."
+      , Str "header"
       ]
-    , Para
-      [ Str "With", Space, Str "two", Space, Str "paragraphs." ]
-    ]
   , Para
-    [ Str "Nother", Space, Str "paragraph." ]
-  , Header 1
-    ( "external-links", [], [] )
-    [ Str "external", Space, Str "links" ]
-  , Para
-    [ Link
-      ( "", [], [] )
-      [ Emph
-        [ Str "Google" ]
+      [ Str "--++"
+      , Space
+      , Str "not"
       , Space
-      , Str "search"
+      , Str "a"
       , Space
-      , Str "engine"
+      , Str "header"
       ]
-      ( "http://google.com", "" )
-    ]
-  , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "http://pandoc.org" ]
-      ( "http://pandoc.org", "" )
-    ]
+  , Header
+      1
+      ( "emph-and-strong" , [] , [] )
+      [ Str "emph" , Space , Str "and" , Space , Str "strong" ]
   , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "http://google.com" ]
-      ( "http://google.com", "" )
-    , Space
-    , Link
-      ( "", [], [] )
-      [ Str "http://yahoo.com" ]
-      ( "http://yahoo.com", "" )
-    ]
+      [ Emph [ Str "emph" ] , Space , Strong [ Str "strong" ] ]
   , Para
-    [ Link
-      ( "", [], [] )
-      [ Str "email", Space, Str "me" ]
-      ( "mailto:info@example.org", "" )
-    ]
+      [ Emph
+          [ Strong
+              [ Str "strong" , Space , Str "and" , Space , Str "emph" ]
+          ]
+      ]
   , Para
-    [ Str "http://google.com" ]
+      [ Strong
+          [ Emph [ Str "emph" , Space , Str "inside" ]
+          , Space
+          , Str "strong"
+          ]
+      ]
   , Para
-    [ Str "http://google.com" ]
+      [ Strong
+          [ Str "strong"
+          , Space
+          , Str "with"
+          , Space
+          , Emph [ Str "emph" ]
+          ]
+      ]
   , Para
-    [ Str "http://google.com" ]
+      [ 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" ]
+  , HorizontalRule
+  , Header 1 ( "nop" , [] , [] ) [ Str "nop" ]
+  , Para [ Str "_not" , Space , Str "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 ( "comments" , [] , [] ) [ Str "comments" ]
+  , Para [ Str "inline" , Space , Str "comment" ]
+  , Para [ Str "between" , Space , Str "blocks" ]
+  , 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 ( "" , [ "haskell" ] , [] ) ">>="
+      ]
+  , Header
+      1
+      ( "code-blocks" , [] , [] )
+      [ Str "code" , Space , Str "blocks" ]
+  , CodeBlock
+      ( "" , [] , [] )
+      "case xs of\n     (_:_) -> reverse xs\n     []    -> ['*']"
+  , CodeBlock
+      ( "" , [ "haskell" ] , [] )
+      "case xs of\n     (_:_) -> reverse xs\n     []    -> ['*']"
+  , Header
+      1
+      ( "block-quotes" , [] , [] )
+      [ Str "block" , Space , Str "quotes" ]
+  , Para [ Str "Regular" , Space , Str "paragraph" ]
+  , BlockQuote
+      [ Para
+          [ Str "This"
+          , Space
+          , Str "is"
+          , Space
+          , Str "a"
+          , Space
+          , Str "block"
+          , Space
+          , Str "quote."
+          ]
+      , Para
+          [ Str "With"
+          , Space
+          , Str "two"
+          , Space
+          , Str "paragraphs."
+          ]
+      ]
+  , Para [ Str "Nother" , Space , Str "paragraph." ]
+  , Header
+      1
+      ( "external-links" , [] , [] )
+      [ Str "external" , Space , Str "links" ]
+  , Para
+      [ Link
+          ( "" , [] , [] )
+          [ Emph [ Str "Google" ]
+          , Space
+          , Str "search"
+          , Space
+          , Str "engine"
+          ]
+          ( "http://google.com" , "" )
+      ]
   , Para
-    [ Str "info@example.org" ]
+      [ Link
+          ( "" , [] , [] )
+          [ Str "http://pandoc.org" ]
+          ( "http://pandoc.org" , "" )
+      ]
   , Para
-    [ Str "info@example.org" ]
+      [ 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 "http://google.com" ]
+  , Para [ Str "http://google.com" ]
+  , Para [ Str "info@example.org" ]
+  , Para [ Str "info@example.org" ]
+  , 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"
-            , Space
-            , Str "do"
+      , [ Plain
+            [ Str "Line"
             , 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"
+      , [ Plain
+            [ Str "with"
             , Space
-            , Str "number"
-            , 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" ]
-      , DefinitionList
-        [
-          (
-            [ Str "three", Space, Str "item", Space, Str "one" ]
-          ,
-            [
-              [ Plain
-                [ Str "three", Space, Str "def", Space, Str "one" ]
-              ]
-            ]
-          )
-        ]
+  , Para
+      [ Str "Any"
+      , Space
+      , Str "other"
+      , Space
+      , Str "start"
+      , Space
+      , Str "also"
+      , Space
+      , Str "ends"
+      , Space
+      , Str "the"
+      , Space
+      , Str "list."
       ]
-    ,
-      [ Plain
-        [ Str "four" ]
-      , DefinitionList
-        [
-          (
-            [ Str "four", Space, Str "def", Space, Str "one" ]
-          ,
-            [
-              [ Plain
-                [ Str "this"
+  , DefinitionList
+      [ ( [ Str "item" , Space , Str "1" ]
+        , [ [ Plain [ Str "definition" , Space , Str "1" ] ] ]
+        )
+      , ( [ Str "item" , Space , Str "2" ]
+        , [ [ Plain
+                [ Str "definition"
                 , Space
-                , Str "is"
+                , Str "2-1"
                 , Space
-                , Str "a"
+                , Str "definition"
                 , Space
-                , Str "continuation"
+                , Str "2-2"
                 ]
+            ]
+          ]
+        )
+      , ( [ 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 "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 "three" ]
+        , DefinitionList
+            [ ( [ Str "three" , Space , Str "item" , Space , Str "one" ]
+              , [ [ Plain
+                      [ Str "three"
+                      , Space
+                      , Str "def"
+                      , Space
+                      , Str "one"
+                      ]
+                  ]
                 ]
-              ]
+              )
             ]
-          ]
-        ,
-          [ Plain [ Str "five", Space, Str "sub", Space, Str "2" ] ]
         ]
-      ]
-    ]
-  , OrderedList
-    ( 1, DefaultStyle, DefaultDelim )
-    [
-      [ Plain
-        [ Str "other" ]
-      , OrderedList
-        ( 1, UpperRoman, DefaultDelim )
-        [ [ Plain [ Str "list" ] ], [ Plain [ Str "styles" ] ] ]
-      ]
-    ,
-      [ Plain
-        [ Str "are" ]
-      , OrderedList
-        ( 1, LowerRoman, DefaultDelim )
-        [ [ Plain [ Str "also" ] ], [ Plain [ Str "possible" ] ] ]
-      ]
-    ,
-      [ Plain
-        [ Str "all" ]
-      , OrderedList
-        ( 1, LowerAlpha, DefaultDelim )
-        [
-          [ Plain [ Str "the" ] ]
-        ,
-          [ Plain [ Str "different" ] ]
-        ,
-          [ Plain [ Str "styles" ] ]
+      , [ Plain [ Str "four" ]
+        , DefinitionList
+            [ ( [ Str "four" , Space , Str "def" , Space , Str "one" ]
+              , [ [ Plain
+                      [ Str "this"
+                      , Space
+                      , Str "is"
+                      , Space
+                      , Str "a"
+                      , Space
+                      , Str "continuation"
+                      ]
+                  ]
+                ]
+              )
+            ]
         ]
-      ]
-    ,
-      [ Plain
-        [ Str "are" ]
-      , OrderedList
-        ( 1, UpperAlpha, DefaultDelim )
-        [
-          [ Plain [ Str "implemented" ] ]
-        ,
-          [ Plain [ Str "and" ] ]
-        ,
-          [ Plain [ Str "supported" ] ]
+      , [ 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" ]
+              ]
+            ]
         ]
       ]
-    ]
-  , Header 1
-    ( "tables", [], [] )
-    [ Str "tables" ]
-  , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 ) []
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 ) []
+  , OrderedList
+      ( 1 , DefaultStyle , DefaultDelim )
+      [ [ Plain [ Str "other" ]
+        , OrderedList
+            ( 1 , UpperRoman , DefaultDelim )
+            [ [ Plain [ Str "list" ] ] , [ Plain [ Str "styles" ] ] ]
         ]
-      ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
+      , [ Plain [ Str "are" ]
+        , OrderedList
+            ( 1 , LowerRoman , DefaultDelim )
+            [ [ Plain [ Str "also" ] ] , [ Plain [ Str "possible" ] ] ]
         ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Bread" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Pie" ] ]
+      , [ Plain [ Str "all" ]
+        , OrderedList
+            ( 1 , LowerAlpha , DefaultDelim )
+            [ [ Plain [ Str "the" ] ]
+            , [ Plain [ Str "different" ] ]
+            , [ Plain [ Str "styles" ] ]
+            ]
         ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Butter" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Ice", Space, Str "cream" ] ]
+      , [ Plain [ Str "are" ]
+        , OrderedList
+            ( 1 , UpperAlpha , DefaultDelim )
+            [ [ Plain [ Str "implemented" ] ]
+            , [ Plain [ Str "and" ] ]
+            , [ Plain [ Str "supported" ] ]
+            ]
         ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+  , Header 1 ( "tables" , [] , [] ) [ Str "tables" ]
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [ ( AlignLeft, ColWidthDefault ), ( AlignLeft, ColWidthDefault ) ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( AlignDefault , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ 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)
+                 []
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 []
+             ]
+         ])
+      [ 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 [] )
-    [ ( AlignLeft, ColWidthDefault ), ( AlignLeft, ColWidthDefault ) ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Orange" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Apple" ] ]
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignLeft , ColWidthDefault )
+      , ( AlignLeft , ColWidthDefault )
       ]
-    )
-    [ TableBody
-      ( "", [], [] )
-      ( RowHeadColumns 0 ) []
-      [ 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 "Orange" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "Apple" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ 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" ]
-            ]
+      ]
+      (TableFoot ( "" , [] , [] ) [])
+  , Table
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignLeft , ColWidthDefault )
+      , ( AlignLeft , ColWidthDefault )
+      ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "Orange" ] ]
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 [ Plain [ Str "Apple" ] ]
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ 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" ]
+                      ]
+                  ]
+              ]
           ]
-        ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
+      (TableFoot ( "" , [] , [] ) [])
   , Table
-    ( "", [], [] )
-    ( Caption Nothing [] )
-    [
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ,
-      ( AlignDefault, ColWidthDefault )
-    ]
-    ( TableHead
-      ( "", [], [] )
-      [ Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 ) []
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 ) []
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 ) []
-        ]
+      ( "" , [] , [] )
+      (Caption Nothing [])
+      [ ( AlignDefault , ColWidthDefault )
+      , ( 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" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "more" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Bread" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Pie" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "more" ] ]
-        ]
-      , Row
-        ( "", [], [] )
-        [ Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Butter" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "Ice", Space, Str "cream" ] ]
-        , Cell
-          ( "", [], [] ) AlignDefault
-          ( RowSpan 1 )
-          ( ColSpan 1 )
-          [ Plain [ Str "and", Space, Str "more" ] ]
-        ]
+      (TableHead
+         ( "" , [] , [] )
+         [ Row
+             ( "" , [] , [] )
+             [ Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 []
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 []
+             , Cell
+                 ( "" , [] , [] )
+                 AlignDefault
+                 (RowSpan 1)
+                 (ColSpan 1)
+                 []
+             ]
+         ])
+      [ TableBody
+          ( "" , [] , [] )
+          (RowHeadColumns 0)
+          []
+          [ Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Orange" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Apple" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "more" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Bread" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Pie" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "more" ] ]
+              ]
+          , Row
+              ( "" , [] , [] )
+              [ Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Butter" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "Ice" , Space , Str "cream" ] ]
+              , Cell
+                  ( "" , [] , [] )
+                  AlignDefault
+                  (RowSpan 1)
+                  (ColSpan 1)
+                  [ Plain [ Str "and" , Space , Str "more" ] ]
+              ]
+          ]
       ]
-    ]
-    ( TableFoot ( "", [], [] ) [] )
-  , Header 1
-    ( "macros", [], [] )
-    [ Str "macros" ]
-  , Para
-    [ Span ( "", [ "twiki-macro", "TEST" ], [] ) [] ]
+      (TableFoot ( "" , [] , [] ) [])
+  , Header 1 ( "macros" , [] , [] ) [ Str "macros" ]
+  , Para [ Span ( "" , [ "twiki-macro" , "TEST" ] , [] ) [] ]
   , Para
-    [ Span ( "", [ "twiki-macro", "TEST" ], [] ) [ Str "" ] ]
+      [ Span ( "" , [ "twiki-macro" , "TEST" ] , [] ) [ Str "" ] ]
   , Para
-    [ Span
-      ( "", [ "twiki-macro", "TEST" ], [] )
-      [ Str "content with spaces" ]
-    ]
+      [ Span
+          ( "" , [ "twiki-macro" , "TEST" ] , [] )
+          [ Str "content with spaces" ]
+      ]
   , Para
-    [ Span
-      ( "", [ "twiki-macro", "TEST" ], [] )
-      [ Str "content with spaces" ]
-    ]
+      [ Span
+          ( "" , [ "twiki-macro" , "TEST" ] , [] )
+          [ Str "content with spaces" ]
+      ]
   , Para
-    [ Span
-      ( "", [ "twiki-macro", "TEST" ], [ ( "ARG1", "test" ) ] )
-      [ Str "content with spaces" ]
-    ]
+      [ Span
+          ( ""
+          , [ "twiki-macro" , "TEST" ]
+          , [ ( "ARG1" , "test" ) ]
+          )
+          [ Str "content with spaces" ]
+      ]
   , Para
-    [ Span
-      ( "", [ "twiki-macro", "TEST" ], [] )
-      [ Str "content with spaces ARG1=test" ]
-    ]
+      [ Span
+          ( "" , [ "twiki-macro" , "TEST" ] , [] )
+          [ Str "content with spaces ARG1=test" ]
+      ]
   , Para
-    [ Span
-      ( "", [ "twiki-macro", "TEST" ], [ ( "ARG1", "test" ) ] )
-      [ Str "content with spaces" ]
-    ]
+      [ Span
+          ( ""
+          , [ "twiki-macro" , "TEST" ]
+          , [ ( "ARG1" , "test" ) ]
+          )
+          [ Str "content with spaces" ]
+      ]
   , Para
-    [ Span
-      ( ""
-      ,
-        [ "twiki-macro", "TEST" ]
-      ,
-        [ ( "ARG1", "test" ), ( "ARG2", "test2" ) ]
-      )
-      [ Str "" ]
-    ]
+      [ Span
+          ( ""
+          , [ "twiki-macro" , "TEST" ]
+          , [ ( "ARG1" , "test" ) , ( "ARG2" , "test2" ) ]
+          )
+          [ Str "" ]
+      ]
   , Para
-    [ Span
-      ( ""
-      ,
-        [ "twiki-macro", "TEST" ]
-      ,
-        [ ( "ARG1", "test" ), ( "ARG2", "test2" ) ]
-      )
-      [ Str "" ]
-    ]
+      [ Span
+          ( ""
+          , [ "twiki-macro" , "TEST" ]
+          , [ ( "ARG1" , "test" ) , ( "ARG2" , "test2" ) ]
+          )
+          [ Str "" ]
+      ]
   , Para
-    [ Span
-      ( ""
-      ,
-        [ "twiki-macro", "TEST" ]
-      ,
-        [ ( "ARG1", "test" ), ( "ARG2", "test2" ) ]
-      )
-      [ Str "multiline\ndoes also work" ]
-    ]
+      [ Span
+          ( ""
+          , [ "twiki-macro" , "TEST" ]
+          , [ ( "ARG1" , "test" ) , ( "ARG2" , "test2" ) ]
+          )
+          [ Str "multiline\ndoes also work" ]
+      ]
   ]