Pandoc
  Meta { unMeta = fromList [] }
  [ OrderedList
      ( 1 , Decimal , Period )
      [ [ Plain [ Str "A list item" ] ]
      , [ Plain [ Str "A second" ] ]
      , [ Para [ Str "A third" ]
        , OrderedList
            ( 1 , Decimal , Period )
            [ [ Para [ Str "New level!" ]
              , OrderedList
                  ( 1 , LowerAlpha , OneParen )
                  [ [ Plain [ Str "And another!" ] ]
                  , [ Plain [ Str "It's great up here!" ] ]
                  ]
              ]
            , [ Plain [ Str "Oh noes" ] ]
            , [ Plain [ Str "We fell!" ] ]
            ]
        ]
      , [ Plain [ Str "Maybe someone" ] ]
      , [ Plain [ Str "Pushed us?" ] ]
      ]
  , Para []
  , OrderedList
      ( 4 , Decimal , Period )
      [ [ Plain
            [ Str "Start new list, but a different starting point." ]
        ]
      , [ Plain [ Str "Because we can." ] ]
      ]
  ]