```
% pandoc --shift-heading-level-by 1 -t native -s
---
title: My title
...

# First heading

## Second
^D
Pandoc
  Meta
    { unMeta =
        fromList
          [ ( "title"
            , MetaInlines [ Str "My" , Space , Str "title" ]
            )
          ]
    }
  [ Header
      2
      ( "first-heading" , [] , [] )
      [ Str "First" , Space , Str "heading" ]
  , Header 3 ( "second" , [] , [] ) [ Str "Second" ]
  ]
```

```
% pandoc --shift-heading-level-by -1 -t native -s
---
title: Old title
...

# First heading

## Second

# Another top-level heading
^D
Pandoc
  Meta
    { unMeta =
        fromList
          [ ( "title"
            , MetaInlines [ Str "First" , Space , Str "heading" ]
            )
          ]
    }
  [ Header 1 ( "second" , [] , [] ) [ Str "Second" ]
  , Para
      [ Str "Another"
      , Space
      , Str "top-level"
      , Space
      , Str "heading"
      ]
  ]
```