(command.CommandList
  children: [
    (C {<_Dbg_help_add_sub>} {<set>} {<annotate>} 
      {
        (SQ <'**set annotate** {**0**|**1**}\n'> <'\n'> <'Set annotation level.\n'> <'\n'> 
          <'  0 - normal\n'> <'  1 - fullname (for use when running under emacs).\n'> <'\n'> <'See also:\n'> <'---------\n'> <'\n'> 
          <'**show annotate**\n'>
        ) (SQ <'Set annotation level [N]\n'>)
      } {<1>}
    )
    (command.ShFunction
      name: _Dbg_do_set_annotate
      body: 
        (BraceGroup
          children: [
            (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_seteglob'))})
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DParen
                              child: 
                                (arith_expr.Binary
                                  op_id: Id.Arith_NEqual
                                  left: {($ Id.VSub_Pound '$#')}
                                  right: {<Id.Lit_Digits 1>}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<_Dbg_msg>} 
                      {
                        (DQ <'A single argument is required (got '> ($ Id.VSub_Pound '$#') 
                          <' arguments).'>
                        )
                      }
                    )
                  ]
                  spids: [99 114]
                )
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobDEqual
                                  left: {($ Id.VSub_Number '$1')}
                                  right: {($ Id.VSub_DollarName '$int_pat')}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.DParen
                                      child: 
                                        (arith_expr.Binary
                                          op_id: Id.Arith_Great
                                          left: {($ Id.VSub_Number '$1')}
                                          right: {<Id.Lit_Digits 3>}
                                        )
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<_Dbg_msg>} 
                              {
                                (DQ <'Annotation level must be between 0 and 3. Got: '> 
                                  (${ Id.VSub_Number 1) <.>
                                )
                              }
                            )
                          ]
                          spids: [143 158]
                        )
                      ]
                      else_action: [
                        (C {<_Dbg_write_journal_eval>} 
                          {(DQ <'_Dbg_set_annotate='> ($ Id.VSub_Number '$1'))}
                        )
                      ]
                    )
                  ]
                  spids: [126 140]
                )
              ]
              else_action: [
                (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_resteglob'))})
                (C {<_Dbg_msg>} {(DQ <'Integer argument expected; got: '> ($ Id.VSub_Number '$1'))})
                (command.ControlFlow
                  token: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
            )
            (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_resteglob'))})
            (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>})
          ]
        )
    )
  ]
)