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, 888 insertions, 811 deletions

diff --git a/test/pipe-tables.native b/test/pipe-tables.native
index e678053d2..886a7e343 100644
--- a/test/pipe-tables.native
+++ b/test/pipe-tables.native
@@ -1,850 +1,927 @@
 [ Para
-  [ Str "Simplest"
-  , Space
-  , Str "table"
-  , Space
-  , Str "without"
-  , Space
-  , Str "caption:"
-  ]
+    [ Str "Simplest"
+    , Space
+    , Str "table"
+    , Space
+    , Str "without"
+    , Space
+    , Str "caption:"
+    ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignDefault, ColWidthDefault )
-  ,
-    ( AlignDefault, ColWidthDefault )
-  ,
-    ( AlignDefault, ColWidthDefault )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default2" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default3" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidthDefault )
+    , ( AlignDefault , ColWidthDefault )
+    , ( AlignDefault , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default1" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default2" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default3" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Simple", Space, Str "table", Space, Str "with", Space, Str "caption:" ]
-, Table
-  ( "", [], [] )
-  ( Caption Nothing
-    [ Plain
-      [ Str "Demonstration"
-      , Space
-      , Str "of"
-      , Space
-      , Str "simple"
-      , Space
-      , Str "table"
-      , Space
-      , Str "syntax."
-      ]
+    [ Str "Simple"
+    , Space
+    , Str "table"
+    , Space
+    , Str "with"
+    , Space
+    , Str "caption:"
     ]
-  )
-  [
-    ( AlignRight, ColWidthDefault )
-  ,
-    ( AlignLeft, ColWidthDefault )
-  ,
-    ( AlignDefault, ColWidthDefault )
-  ,
-    ( AlignCenter, ColWidthDefault )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Right" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Left" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Center" ] ]
-      ]
+, Table
+    ( "" , [] , [] )
+    (Caption
+       Nothing
+       [ Plain
+           [ Str "Demonstration"
+           , Space
+           , Str "of"
+           , Space
+           , Str "simple"
+           , Space
+           , Str "table"
+           , Space
+           , Str "syntax."
+           ]
+       ])
+    [ ( AlignRight , ColWidthDefault )
+    , ( AlignLeft , ColWidthDefault )
+    , ( AlignDefault , ColWidthDefault )
+    , ( AlignCenter , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Right" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Left" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Center" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Simple"
-  , Space
-  , Str "table"
-  , Space
-  , Str "without"
-  , Space
-  , Str "caption:"
-  ]
+    [ Str "Simple"
+    , Space
+    , Str "table"
+    , Space
+    , Str "without"
+    , Space
+    , Str "caption:"
+    ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignRight, ColWidthDefault )
-  ,
-    ( AlignLeft, ColWidthDefault )
-  ,
-    ( AlignCenter, ColWidthDefault )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Right" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Left" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Center" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignRight , ColWidthDefault )
+    , ( AlignLeft , ColWidthDefault )
+    , ( AlignCenter , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Right" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Left" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Center" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Headerless"
-  , Space
-  , Str "table"
-  , Space
-  , Str "without"
-  , Space
-  , Str "caption:"
-  ]
-, Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignRight, ColWidthDefault )
-  ,
-    ( AlignLeft, ColWidthDefault )
-  ,
-    ( AlignCenter, ColWidthDefault )
-  ]
-  ( TableHead ( "", [], [] ) [] )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "12" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1" ] ]
-      ]
+    [ Str "Headerless"
+    , Space
+    , Str "table"
+    , Space
+    , Str "without"
+    , Space
+    , Str "caption:"
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
-, Para
-  [ Str "Table", Space, Str "without", Space, Str "sides:" ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignDefault, ColWidthDefault ), ( AlignRight, ColWidthDefault ) ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Fruit" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Quantity" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignRight , ColWidthDefault )
+    , ( AlignLeft , ColWidthDefault )
+    , ( AlignCenter , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "apple" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "5" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "orange" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "17" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "pear" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "302" ] ]
-      ]
+    (TableHead ( "" , [] , [] ) [])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "12" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "One-column:" ]
+    [ Str "Table" , Space , Str "without" , Space , Str "sides:" ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignDefault, ColWidthDefault ) ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "hi" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidthDefault )
+    , ( AlignRight , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "lo" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Fruit" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Quantity" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "apple" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "5" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "orange" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "17" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "pear" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "302" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
-, Para
-  [ Str "Header-less", Space, Str "one-column:" ]
+    (TableFoot ( "" , [] , [] ) [])
+, Para [ Str "One-column:" ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignCenter, ColWidthDefault ) ]
-  ( TableHead ( "", [], [] ) [] )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "hi" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidthDefault ) ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "hi" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "lo" ] ]
+            ]
+        ]
+    ]
+    (TableFoot ( "" , [] , [] ) [])
+, Para [ Str "Header-less" , Space , Str "one-column:" ]
+, Table
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignCenter , ColWidthDefault ) ]
+    (TableHead ( "" , [] , [] ) [])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "hi" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Indented", Space, Str "left", Space, Str "column:" ]
+    [ Str "Indented" , Space , Str "left" , Space , Str "column:" ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignRight, ColWidthDefault ), ( AlignLeft, ColWidthDefault ) ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Number", Space, Str "of", Space, Str "siblings" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Salary" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignRight , ColWidthDefault )
+    , ( AlignLeft , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "3" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "33" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "4" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "44" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain
+                   [ Str "Number" , Space , Str "of" , Space , Str "siblings" ]
+               ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Salary" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "3" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "33" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "4" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "44" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Long"
-  , Space
-  , Str "pipe"
-  , Space
-  , Str "table"
-  , Space
-  , Str "with"
-  , Space
-  , Str "relative"
-  , Space
-  , Str "widths:"
-  ]
+    [ Str "Long"
+    , Space
+    , Str "pipe"
+    , Space
+    , Str "table"
+    , Space
+    , Str "with"
+    , Space
+    , Str "relative"
+    , Space
+    , Str "widths:"
+    ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignDefault, ColWidth 0.15517241379310345 )
-  ,
-    ( AlignDefault, ColWidth 0.1724137931034483 )
-  ,
-    ( AlignDefault, ColWidth 0.6724137931034483 )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default1" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default2" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Default3" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidth 0.15517241379310345 )
+    , ( AlignDefault , ColWidth 0.1724137931034483 )
+    , ( AlignDefault , ColWidth 0.6724137931034483 )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain
-          [ Str "this"
-          , Space
-          , Str "is"
-          , Space
-          , Str "a"
-          , Space
-          , Str "table"
-          , Space
-          , Str "cell"
-          ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default1" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default2" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Default3" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain
+                    [ Str "this"
+                    , Space
+                    , Str "is"
+                    , Space
+                    , Str "a"
+                    , Space
+                    , Str "table"
+                    , Space
+                    , Str "cell"
+                    ]
+                ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain
+                    [ Str "and"
+                    , Space
+                    , Str "this"
+                    , Space
+                    , Str "is"
+                    , Space
+                    , Str "a"
+                    , Space
+                    , Str "really"
+                    , Space
+                    , Str "long"
+                    , Space
+                    , Str "table"
+                    , Space
+                    , Str "cell"
+                    , Space
+                    , Str "that"
+                    , Space
+                    , Str "will"
+                    , Space
+                    , Str "probably"
+                    , Space
+                    , Str "need"
+                    , Space
+                    , Str "wrapping"
+                    ]
+                ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "123" ] ]
+            ]
         ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain
-          [ Str "and"
-          , Space
-          , Str "this"
-          , Space
-          , Str "is"
-          , Space
-          , Str "a"
-          , Space
-          , Str "really"
-          , Space
-          , Str "long"
-          , Space
-          , Str "table"
-          , Space
-          , Str "cell"
-          , Space
-          , Str "that"
-          , Space
-          , Str "will"
-          , Space
-          , Str "probably"
-          , Space
-          , Str "need"
-          , Space
-          , Str "wrapping"
-          ]
-        ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "123" ] ]
-      ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Pipe"
-  , Space
-  , Str "table"
-  , Space
-  , Str "with"
-  , Space
-  , Str "no"
-  , Space
-  , Str "body:"
-  ]
-, Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [ ( AlignDefault, ColWidthDefault ) ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "Header" ] ]
-      ]
+    [ Str "Pipe"
+    , Space
+    , Str "table"
+    , Space
+    , Str "with"
+    , Space
+    , Str "no"
+    , Space
+    , Str "body:"
     ]
-  )
-  [ TableBody ( "", [], [] ) ( RowHeadColumns 0 ) [] [] ]
-  ( TableFoot ( "", [], [] ) [] )
+, Table
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignDefault , ColWidthDefault ) ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "Header" ] ]
+           ]
+       ])
+    [ TableBody ( "" , [] , [] ) (RowHeadColumns 0) [] [] ]
+    (TableFoot ( "" , [] , [] ) [])
 , Para
-  [ Str "Pipe"
-  , Space
-  , Str "table"
-  , Space
-  , Str "with"
-  , Space
-  , Str "tricky"
-  , Space
-  , Str "cell"
-  , Space
-  , Str "contents"
-  , Space
-  , Str "(see"
-  , Space
-  , Str "#2765):"
-  ]
+    [ Str "Pipe"
+    , Space
+    , Str "table"
+    , Space
+    , Str "with"
+    , Space
+    , Str "tricky"
+    , Space
+    , Str "cell"
+    , Space
+    , Str "contents"
+    , Space
+    , Str "(see"
+    , Space
+    , Str "#2765):"
+    ]
 , Table
-  ( "", [], [] )
-  ( Caption Nothing [] )
-  [
-    ( AlignLeft, ColWidthDefault )
-  ,
-    ( AlignRight, ColWidthDefault )
-  ,
-    ( AlignRight, ColWidthDefault )
-  ]
-  ( TableHead
-    ( "", [], [] )
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 ) []
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "IP_gene8-_1st" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "IP_gene8+_1st" ] ]
-      ]
+    ( "" , [] , [] )
+    (Caption Nothing [])
+    [ ( AlignLeft , ColWidthDefault )
+    , ( AlignRight , ColWidthDefault )
+    , ( AlignRight , ColWidthDefault )
     ]
-  )
-  [ TableBody
-    ( "", [], [] )
-    ( RowHeadColumns 0 ) []
-    [ Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "IP_gene8-_1st" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1.0000000" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "0.4357325" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "IP_gene8+_1st" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "0.4357325" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "1.0000000" ] ]
-      ]
-    , Row
-      ( "", [], [] )
-      [ Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "foo", Code ( "", [], [] ) "bar|baz" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "and|escaped" ] ]
-      , Cell
-        ( "", [], [] ) AlignDefault
-        ( RowSpan 1 )
-        ( ColSpan 1 )
-        [ Plain [ Str "3.0000000" ] ]
-      ]
+    (TableHead
+       ( "" , [] , [] )
+       [ Row
+           ( "" , [] , [] )
+           [ Cell ( "" , [] , [] ) AlignDefault (RowSpan 1) (ColSpan 1) []
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "IP_gene8-_1st" ] ]
+           , Cell
+               ( "" , [] , [] )
+               AlignDefault
+               (RowSpan 1)
+               (ColSpan 1)
+               [ Plain [ Str "IP_gene8+_1st" ] ]
+           ]
+       ])
+    [ TableBody
+        ( "" , [] , [] )
+        (RowHeadColumns 0)
+        []
+        [ Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "IP_gene8-_1st" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1.0000000" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "0.4357325" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "IP_gene8+_1st" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "0.4357325" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "1.0000000" ] ]
+            ]
+        , Row
+            ( "" , [] , [] )
+            [ Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "foo" , Code ( "" , [] , [] ) "bar|baz" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "and|escaped" ] ]
+            , Cell
+                ( "" , [] , [] )
+                AlignDefault
+                (RowSpan 1)
+                (ColSpan 1)
+                [ Plain [ Str "3.0000000" ] ]
+            ]
+        ]
     ]
-  ]
-  ( TableFoot ( "", [], [] ) [] )
+    (TableFoot ( "" , [] , [] ) [])
 ]