(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: 
                    (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_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: 
                    (condition.Shell
                      commands: [
                        (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: 
                                    (condition.Shell
                                      commands: [
                                        (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>})
          ]
        )
    )
  ]
)