(command.CommandList
  children: [
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.DBracket
                      left: <Id.KW_DLeftBracket '[['>
                      expr: 
                        (bool_expr.Binary
                          op_id: Id.BoolBinary_GlobDEqual
                          left: {($ Id.VSub_Number 0)}
                          right: 
                            {
                              (BracedVarSub
                                left: <Id.Left_DollarBrace '${'>
                                token: <Id.VSub_Name BASH_SOURCE>
                                var_name: BASH_SOURCE
                                bracket_op: (bracket_op.ArrayIndex expr:{<Id.Lit_Digits 0>})
                                right: <Id.Right_DollarBrace '}'>
                              )
                            }
                        )
                      right: <Id.Lit_DRightBracket ']]'>
                      redirects: []
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'dirname='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'dirname='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'dirname='> name:dirname)
                  op: assign_op.Equal
                  rhs: 
                    {
                      (BracedVarSub
                        left: <Id.Left_DollarBrace '${'>
                        token: <Id.VSub_Name BASH_SOURCE>
                        var_name: BASH_SOURCE
                        bracket_op: (bracket_op.ArrayIndex expr:{<Id.Lit_Digits 0>})
                        suffix_op: 
                          (suffix_op.Unary
                            op: <Id.VOp1_Percent '%'>
                            arg_word: {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
                          )
                        right: <Id.Right_DollarBrace '}'>
                      )
                    }
                )
              ]
              redirects: []
            )
            (command.AndOr
              children: [
                (command.DBracket
                  left: <Id.KW_DLeftBracket '[['>
                  expr: 
                    (bool_expr.Binary
                      op_id: Id.BoolBinary_GlobDEqual
                      left: {($ Id.VSub_DollarName dirname)}
                      right: {($ Id.VSub_Number 0)}
                    )
                  right: <Id.Lit_DRightBracket ']]'>
                  redirects: []
                )
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'top_dir='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'top_dir='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'top_dir='> name:top_dir)
                      op: assign_op.Equal
                      rhs: {(SQ <'../..'>)}
                    )
                  ]
                  redirects: []
                )
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'top_dir='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'top_dir='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'top_dir='> name:top_dir)
                      op: assign_op.Equal
                      rhs: {(${ Id.VSub_Name dirname) <'/../..'>}
                    )
                  ]
                  redirects: []
                )
              ]
              ops: [<Id.Op_DAmp _> <Id.Op_DPipe _>]
            )
            (command.AndOr
              children: [
                (command.DBracket
                  left: <Id.KW_DLeftBracket '[['>
                  expr: 
                    (bool_expr.Unary
                      op_id: Id.BoolUnary_z
                      child: {($ Id.VSub_DollarName _Dbg_libdir)}
                    )
                  right: <Id.Lit_DRightBracket ']]'>
                  redirects: []
                )
                (command.ShAssignment
                  left: <Id.Lit_VarLike '_Dbg_libdir='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike '_Dbg_libdir='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '_Dbg_libdir='> name:_Dbg_libdir)
                      op: assign_op.Equal
                      rhs: {($ Id.VSub_DollarName top_dir)}
                    )
                  ]
                  redirects: []
                )
              ]
              ops: [<Id.Op_DAmp _>]
            )
            (command.ForEach
              keyword: <Id.KW_For for>
              iter_names: [file]
              iterable: (for_iter.Words words:[{<help>} {<alias>}])
              semi_tok: <Id.Op_Semi _>
              body: 
                (command.DoGroup
                  left: <Id.KW_Do do>
                  children: [
                    (command.Sentence
                      child: 
                        (command.Simple
                          blame_tok: <source>
                          more_env: []
                          words: [
                            {<source>}
                            {($ Id.VSub_DollarName top_dir) <'/lib/'> (${ Id.VSub_Name file) <.sh>}
                          ]
                          redirects: []
                          do_fork: T
                        )
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                  right: <Id.KW_Done done>
                )
              redirects: []
            )
          ]
          spids: [61 80]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.Simple
      blame_tok: <_Dbg_help_add_sub>
      more_env: []
      words: [
        {<_Dbg_help_add_sub>}
        {<set>}
        {<width>}
        {(SQ <'**set** **width** *width*\n'> <'\n'> <'Set maximum width of lines to *width*.\n'>)}
        {<1>}
      ]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <typeset>
              more_env: []
              words: [{<typeset>} {<-i>} {<_Dbg_set_linewidth>}]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike '_Dbg_set_linewidth='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike '_Dbg_set_linewidth='>
              lhs: 
                (sh_lhs_expr.Name
                  left: <Id.Lit_VarLike '_Dbg_set_linewidth='>
                  name: _Dbg_set_linewidth
                )
              op: assign_op.Equal
              rhs: 
                {
                  (BracedVarSub
                    left: <Id.Left_DollarBrace '${'>
                    token: <Id.VSub_Name COLUMNS>
                    var_name: COLUMNS
                    suffix_op: (suffix_op.Unary op:<Id.VTest_ColonHyphen _> arg_word:{<80>})
                    right: <Id.Right_DollarBrace '}'>
                  )
                }
            )
          ]
          redirects: []
        )
      ]
    )
    (command.ShFunction
      name_tok: <_Dbg_do_set_width>
      name: _Dbg_do_set_width
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.If
              if_kw: <Id.KW_If if>
              arms: [
                (IfArm
                  keyword: <Id.KW_If if>
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              left: <Id.KW_DLeftBracket '[['>
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobDEqual
                                  left: {($ Id.VSub_Number 1)}
                                  right: {($ Id.VSub_DollarName int_pat)}
                                )
                              right: <Id.Lit_DRightBracket ']]'>
                              redirects: []
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  then_kw: <Id.KW_Then then>
                  action: [
                    (command.Simple
                      blame_tok: <_Dbg_write_journal_eval>
                      more_env: []
                      words: [
                        {<_Dbg_write_journal_eval>}
                        {(DQ <'_Dbg_set_linewidth='> ($ Id.VSub_Number 1))}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  spids: [202 216]
                )
              ]
              else_kw: <Id.KW_Else else>
              else_action: [
                (command.Simple
                  blame_tok: <_Dbg_errmsg>
                  more_env: []
                  words: [
                    {<_Dbg_errmsg>}
                    {(DQ <'Integer argument expected; got: '> ($ Id.VSub_Number 1))}
                  ]
                  redirects: []
                  do_fork: T
                )
                (command.ControlFlow
                  keyword: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
              fi_kw: <Id.KW_Fi fi>
              redirects: []
            )
            (command.ControlFlow keyword:<Id.ControlFlow_Return return> arg_word:{<0>})
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
  ]
)