[decimal]
. level 1
[upperalpha]
.. level 2
[loweralpha]
... level 3
[lowerroman]
.... level 4
[lowergreek]
..... level 5
>>>
Document
  { docMeta =
      Meta
        { docTitle = []
        , docTitleAttributes = Nothing
        , docAuthors = []
        , docRevision = Nothing
        , docAttributes = fromList [ ( "sectids" , "" ) ]
        }
  , docBlocks =
      [ Block
          Attr
          ( [ "decimal" ] , fromList [] )
          Nothing
          (List
             (OrderedList (Level 1) Nothing)
             [ ListItem
                 Nothing
                 [ Block
                     mempty Nothing (Paragraph [ Inline mempty (Str "level 1") ])
                 , Block
                     Attr
                     ( [ "upperalpha" ] , fromList [] )
                     Nothing
                     (List
                        (OrderedList (Level 2) Nothing)
                        [ ListItem
                            Nothing
                            [ Block
                                mempty Nothing (Paragraph [ Inline mempty (Str "level 2") ])
                            , Block
                                Attr
                                ( [ "loweralpha" ] , fromList [] )
                                Nothing
                                (List
                                   (OrderedList (Level 3) Nothing)
                                   [ ListItem
                                       Nothing
                                       [ Block
                                           mempty
                                           Nothing
                                           (Paragraph [ Inline mempty (Str "level 3") ])
                                       , Block
                                           Attr
                                           ( [ "lowerroman" ] , fromList [] )
                                           Nothing
                                           (List
                                              (OrderedList (Level 4) Nothing)
                                              [ ListItem
                                                  Nothing
                                                  [ Block
                                                      mempty
                                                      Nothing
                                                      (Paragraph [ Inline mempty (Str "level 4") ])
                                                  , Block
                                                      Attr
                                                      ( [ "lowergreek" ] , fromList [] )
                                                      Nothing
                                                      (List
                                                         (OrderedList (Level 5) Nothing)
                                                         [ ListItem
                                                             Nothing
                                                             [ Block
                                                                 mempty
                                                                 Nothing
                                                                 (Paragraph
                                                                    [ Inline mempty (Str "level 5")
                                                                    ])
                                                             ]
                                                         ])
                                                  ]
                                              ])
                                       ]
                                   ])
                            ]
                        ])
                 ]
             ])
      ]
  }