(CommandList
  children: [
    (C {(_Dbg_help_add)} {(delete)} 
      {
        (DQ ("**delete** {*brkpt-num*}...\n") ("\n") ("Delete some breakpoints.\n") ("\n") 
          (
"Arguments are breakpoint numbers with spaces in between. To delete all breakpoints, give\n"
          ) ("no argument. Without arguments, clear all breaks (but first ask for confirmation).\n")
        )
      } {(1)} {(_Dbg_complete_brkpt_range)}
    )
    (FuncDef
      name: _Dbg_do_delete
      body: 
        (BraceGroup
          children: [
            (Sentence child:(C {(typeset)} {(to_go)}) terminator:<Op_Semi ";">)
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:to_go)
                  op: Equal
                  rhs: {($ VSub_At "$@")}
                  spids: [96]
                )
              ]
              spids: [96]
            )
            (C {(typeset)} {(-i)} {(i)})
            (C {(typeset)} {(-i)} {(Lit_VarLike "tot_found=") (0)})
            (C {(eval)} {(DQ ($ VSub_Name "$_seteglob"))})
            (ForEach
              iter_name: del
              iter_words: [{($ VSub_Name "$to_go")}]
              do_arg_iter: False
              body: 
                (DoGroup
                  children: [
                    (Case
                      to_match: {($ VSub_Name "$del")}
                      arms: [
                        (case_arm
                          pat_list: [{($ VSub_Name "$_Dbg_watch_pat")}]
                          action: [
                            (C {(_Dbg_delete_watch_entry)} 
                              {
                                (BracedVarSub
                                  token: <VSub_Name del>
                                  suffix_op: 
                                    (Slice
                                      begin: (ArithWord w:{(Lit_Digits 0)})
                                      length: 
                                        (ArithBinary
                                          op_id: Arith_Minus
                                          left: 
                                            (ArithWord
                                              w: 
                                                {
                                                  (BracedVarSub
                                                    token: <VSub_Name del>
                                                    prefix_op: VSub_Pound
                                                    spids: [155 158]
                                                  )
                                                }
                                            )
                                          right: (ArithWord w:{(Lit_Digits 1)})
                                        )
                                    )
                                  spids: [150 161]
                                )
                              }
                            )
                          ]
                          spids: [143 145 164 -1]
                        )
                        (case_arm
                          pat_list: [{($ VSub_Name "$int_pat")}]
                          action: [
                            (If
                              arms: [
                                (if_arm
                                  cond: [
                                    (Sentence
                                      child: (C {(_Dbg_delete_brkpt_entry)} {($ VSub_Name "$del")})
                                      terminator: <Op_Semi ";">
                                    )
                                  ]
                                  action: [
                                    (C {(_Dbg_msg)} {(DQ ("Deleted breakpoint ") (${ VSub_Name del))})
                                    (DParen
                                      child: 
                                        (UnaryAssign
                                          op_id: Node_PostDPlus
                                          child: (LhsName name:tot_found)
                                        )
                                    )
                                  ]
                                  spids: [-1 180]
                                )
                              ]
                              spids: [-1 200]
                            )
                          ]
                          spids: [167 169 203 -1]
                        )
                        (case_arm
                          pat_list: [{(Lit_Other "*")}]
                          action: [
                            (C {(_Dbg_errmsg)} 
                              {(DQ ("Invalid entry number skipped: ") ($ VSub_Name "$del"))}
                            )
                          ]
                          spids: [206 208 -1 219]
                        )
                      ]
                      spids: [136 140 219]
                    )
                  ]
                  spids: [133 222]
                )
              spids: [128 131]
            )
            (C {(eval)} {(DQ ($ VSub_Name "$_resteglob"))})
            (ControlFlow
              token: <ControlFlow_Return return>
              arg_word: {($ VSub_Name "$tot_found")}
            )
          ]
          spids: [88]
        )
      spids: [84 87]
    )
  ]
)