Pandoc
  ( Meta
    { unMeta = fromList
      [
        ( "author"
        , MetaInlines
          [ Str "Cynthia", Space, Str "Johnson" ]
        )
      ,
        ( "operator"
        , MetaInlines
          [ Str "John", Space, Str "MacFarlane" ]
        )
      ,
        ( "title"
        , MetaInlines
          [ Str "Text", Space, Str "before", Space, Str "list" ]
        )
      ]
    }
  )
  [ OrderedList
    ( 1, Decimal, Period )
    [
      [ Para [ Str "One" ] ]
    ,
      [ Para
        [ Str "Two" ]
      , OrderedList
        ( 1, LowerAlpha, Period )
        [
          [ Para [ Str "Three" ] ]
        ,
          [ Para
            [ Str "Four" ]
          , OrderedList
            ( 1, LowerRoman, Period )
            [
              [ Para [ Str "Five" ] ]
            ,
              [ Para
                [ Str "Six" ]
              , OrderedList
                ( 1, UpperAlpha, Period )
                [
                  [ Para [ Str "Seven" ] ]
                ,
                  [ Para
                    [ Str "Eight" ]
                  , OrderedList
                    ( 1, UpperRoman, Period )
                    [
                      [ Para [ Str "Nine" ] ]
                    ,
                      [ Para
                        [ Str "Ten" ]
                      , BulletList
                        [
                          [ Para [ Str "Eleven" ] ]
                        ,
                          [ Para [ Str "Twelve" ] ]
                        ]
                      ]
                    ]
                  ]
                ]
              ]
            ]
          ]
        ]
      ]
    ]
  , Para
    [ Str "Out", Space, Str "of", Space, Str "list!" ]
  , Para
    [ Str "Start", Space, Str "with" ]
  , OrderedList
    ( 7, Decimal, Period )
    [
      [ Para [ Str "Seven", Space, Str "Start" ] ]
    ,
      [ Para [ Str "Eight", Space, Str "Continue" ] ]
    ]
  ]