(command.CommandList
  children: [
    (C {<_Dbg_help_add>} {<load>} 
      {(SQ <'load SCRIPT\n'> <'\n'> <'Read in lines of a SCRIPT for use in listing.'>)}
    )
    (command.ShFunction
      name: _Dbg_do_load
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (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_errmsg>} 
                      {(DQ <'Expecting one filename parameter, Got '> ($ Id.VSub_Pound '$#') <.>)}
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Return return>
                      arg_word: {<1>}
                    )
                  ]
                  spids: [81 96]
                )
              ]
            )
            (C {<typeset>} {<Id.Lit_VarLike 'filename='> (DQ ($ Id.VSub_Number '$1'))})
            (C {<local>} 
              {<Id.Lit_VarLike 'full_filename='> 
                (command_sub
                  left_token: <Id.Left_DollarParen '$('>
                  child: (C {<_Dbg_resolve_expand_filename>} {(DQ ($ Id.VSub_DollarName '$filename'))})
                )
              }
            )
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.AndOr
                          ops: [Id.Op_DAmp]
                          children: [
                            (C {<Id.Lit_LBracket '['>} {<-n>} {($ Id.VSub_DollarName '$full_filename')} 
                              {<Id.Lit_RBracket ']'>}
                            )
                            (C {<Id.Lit_LBracket '['>} {<-r>} {($ Id.VSub_DollarName '$full_filename')} 
                              {<Id.Lit_RBracket ']'>}
                            )
                          ]
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                  action: [
                    (command.ForEach
                      iter_name: file
                      iter_words: [
                        {
                          (braced_var_sub
                            token: <Id.VSub_Name _Dbg_filenames>
                            bracket_op: (bracket_op.WholeArray op_id:Id.Lit_At)
                          )
                        }
                      ]
                      do_arg_iter: F
                      body: 
                        (command.DoGroup
                          children: [
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobDEqual
                                              left: {($ Id.VSub_DollarName '$file')}
                                              right: {($ Id.VSub_DollarName '$full_filename')}
                                            )
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                  action: [
                                    (C {<_Dbg_msg>} 
                                      {
                                        (DQ <'File '> ($ Id.VSub_DollarName '$full_filename') 
                                          <' already loaded.'>
                                        )
                                      }
                                    )
                                    (command.ControlFlow
                                      token: <Id.ControlFlow_Return return>
                                      arg_word: {<2>}
                                    )
                                  ]
                                  spids: [186 200]
                                )
                              ]
                            )
                          ]
                        )
                    )
                    (C {<_Dbg_readin>} {(DQ ($ Id.VSub_DollarName '$full_filename'))})
                    (C {<_Dbg_msg>} 
                      {(DQ <'File '> ($ Id.VSub_DollarName '$full_filename') <' loaded.'>)}
                    )
                  ]
                  spids: [137 159]
                )
              ]
              else_action: [
                (C {<_Dbg_errmsg>} 
                  {(DQ <'Couldn\'t resolve or read '> ($ Id.VSub_DollarName '$filename'))}
                )
                (command.ControlFlow
                  token: <Id.ControlFlow_Return return>
                  arg_word: {<3>}
                )
              ]
            )
            (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>})
          ]
        )
    )
  ]
)