(command.CommandList
  children: [
    (command.CommandList
      children: [
        (command.Sentence
          child: (C {<typeset>} {<-a>} {<_Dbg_disp_exp>})
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:_Dbg_disp_exp)
              op: assign_op.Equal
              rhs: {(sh_array_literal left:<Id.Op_LParen _>)}
              spids: [75]
            )
          ]
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: (C {<typeset>} {<-ia>} {<_Dbg_disp_enable>})
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:_Dbg_disp_enable)
              op: assign_op.Equal
              rhs: {(sh_array_literal left:<Id.Op_LParen _>)}
              spids: [89]
            )
          ]
        )
      ]
    )
    (C {<typeset>} {<-i>} {<Id.Lit_VarLike '_Dbg_disp_max='> <0>})
    (command.ShFunction
      name: _Dbg_save_display
      body: 
        (BraceGroup
          children: [
            (command.Simple
              words: [{<typeset>} {<-p>} {<_Dbg_disp_exp>}]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {($ Id.VSub_DollarName '$_Dbg_statefile')}
                )
              ]
              do_fork: T
            )
            (command.Simple
              words: [{<typeset>} {<-p>} {<_Dbg_disp_enable>}]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {($ Id.VSub_DollarName '$_Dbg_statefile')}
                )
              ]
              do_fork: T
            )
            (command.Simple
              words: [{<typeset>} {<-p>} {<_Dbg_disp_max>}]
              redirects: [
                (redir
                  op: <Id.Redir_DGreat '>>'>
                  loc: (redir_loc.Fd fd:1)
                  arg: {($ Id.VSub_DollarName '$_Dbg_statefile')}
                )
              ]
              do_fork: T
            )
          ]
        )
    )
    (command.ShFunction
      name: _Dbg_disp_enable_disable
      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_Less
                                  left: {($ Id.VSub_Pound '$#')}
                                  right: {<Id.Lit_Digits 2>}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<_Dbg_errmsg>} 
                      {(DQ <'Expecting at least two parameters. Got: '> (${ Id.VSub_Pound '#') <.>)}
                    )
                    (command.ControlFlow
                      token: <Id.ControlFlow_Return return>
                      arg_word: {<1>}
                    )
                  ]
                  spids: [168 181]
                )
              ]
            )
            (C {<typeset>} {<-i>} {<Id.Lit_VarLike 'on='> ($ Id.VSub_Number '$1')})
            (C {<typeset>} {<Id.Lit_VarLike 'en_dis='> ($ Id.VSub_Number '$2')})
            (command.Sentence child:(C {<shift>}) terminator:<Id.Op_Semi _>)
            (C {<shift>})
            (C {<typeset>} {<Id.Lit_VarLike 'to_go='> (DQ ($ Id.VSub_At '$@'))})
            (C {<typeset>} {<i>})
            (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_seteglob'))})
            (command.ForEach
              iter_name: i
              iter_words: [{($ Id.VSub_DollarName '$to_go')}]
              do_arg_iter: F
              body: 
                (command.DoGroup
                  children: [
                    (command.Case
                      to_match: {($ Id.VSub_DollarName '$i')}
                      arms: [
                        (case_arm
                          pat_list: [{($ Id.VSub_DollarName '$int_pat')}]
                          action: [
                            (C {<_Dbg_enable_disable_display>} {($ Id.VSub_DollarName '$on')} 
                              {($ Id.VSub_DollarName '$en_dis')} {($ Id.VSub_DollarName '$i')}
                            )
                          ]
                          spids: [264 266 278 -1]
                        )
                        (case_arm
                          pat_list: [{<Id.Lit_Star '*'>}]
                          action: [
                            (C {<_Dbg_errmsg>} 
                              {
                                (DQ <'Invalid entry number '> ($ Id.VSub_DollarName '$i') <' skipped'>)
                              }
                            )
                          ]
                          spids: [281 283 295 -1]
                        )
                      ]
                    )
                  ]
                )
            )
            (C {<eval>} {(DQ ($ Id.VSub_DollarName '$_resteglob'))})
            (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<0>})
          ]
        )
    )
    (command.ShFunction
      name: _Dbg_eval_all_display
      body: 
        (BraceGroup
          children: [
            (C {<typeset>} {<-i>} {<i>})
            (command.ForExpr
              init: 
                (arith_expr.BinaryAssign
                  op_id: Id.Arith_Equal
                  left: <Id.Lit_ArithVarLike i>
                  right: {<Id.Lit_Digits 0>}
                )
              cond: 
                (arith_expr.Binary
                  op_id: Id.Arith_Less
                  left: <Id.Lit_ArithVarLike i>
                  right: <Id.Lit_ArithVarLike _Dbg_disp_max>
                )
              update: (arith_expr.UnaryAssign op_id:Id.Node_PostDPlus child:<Id.Lit_ArithVarLike i>)
              body: 
                (command.DoGroup
                  children: [
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.AndOr
                                      ops: [Id.Op_DAmp]
                                      children: [
                                        (C {<Id.Lit_LBracket '['>} {<-n>} 
                                          {
                                            (DQ 
                                              (braced_var_sub
                                                token: <Id.VSub_Name _Dbg_disp_exp>
                                                bracket_op: 
                                                  (bracket_op.ArrayIndex
                                                    expr: {($ Id.VSub_DollarName '$i')}
                                                  )
                                              )
                                            )
                                          } {<Id.Lit_RBracket ']'>}
                                        )
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobNEqual
                                              left: 
                                                {
                                                  (braced_var_sub
                                                    token: <Id.VSub_Name _Dbg_disp_enable>
                                                    bracket_op: 
                                                      (bracket_op.ArrayIndex
                                                        expr: <Id.Lit_ArithVarLike i>
                                                      )
                                                  )
                                                }
                                              right: {<0>}
                                            )
                                        )
                                      ]
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<_Dbg_printf_nocr>} {(DQ <'%2d: %s = '>)} {($ Id.VSub_DollarName '$i')} 
                              {
                                (DQ 
                                  (braced_var_sub
                                    token: <Id.VSub_Name _Dbg_disp_exp>
                                    bracket_op: (bracket_op.ArrayIndex expr:<Id.Lit_ArithVarLike i>)
                                  )
                                )
                              }
                            )
                            (command.Sentence
                              child: (C {<typeset>} {<-i>} {<_Dbg_show_eval_rc>})
                              terminator: <Id.Op_Semi _>
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:_Dbg_show_eval_rc)
                                  op: assign_op.Equal
                                  rhs: {<0>}
                                  spids: [426]
                                )
                              ]
                            )
                            (C {<_Dbg_do_eval>} 
                              {
                                (DQ <'_Dbg_msg '> 
                                  (braced_var_sub
                                    token: <Id.VSub_Name _Dbg_disp_exp>
                                    bracket_op: (bracket_op.ArrayIndex expr:<Id.Lit_ArithVarLike i>)
                                  )
                                )
                              }
                            )
                          ]
                          spids: [360 398]
                        )
                      ]
                    )
                  ]
                )
            )
          ]
        )
    )
    (command.ShFunction
      name: _Dbg_enable_disable_display
      body: 
        (BraceGroup
          children: [
            (C {<typeset>} {<-i>} {<Id.Lit_VarLike 'on='> ($ Id.VSub_Number '$1')})
            (C {<typeset>} {<Id.Lit_VarLike 'en_dis='> ($ Id.VSub_Number '$2')})
            (C {<typeset>} {<-i>} {<Id.Lit_VarLike 'i='> ($ Id.VSub_Number '$3')})
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (C {<Id.Lit_LBracket '['>} {<-n>} 
                              {
                                (DQ 
                                  (braced_var_sub
                                    token: <Id.VSub_Name _Dbg_disp_exp>
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: {($ Id.VSub_DollarName '$i')}
                                      )
                                  )
                                )
                              } {<Id.Lit_RBracket ']'>}
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      expr: 
                                        (bool_expr.Binary
                                          op_id: Id.BoolBinary_GlobDEqual
                                          left: 
                                            {
                                              (braced_var_sub
                                                token: <Id.VSub_Name _Dbg_disp_enable>
                                                bracket_op: 
                                                  (bracket_op.ArrayIndex
                                                    expr: {($ Id.VSub_DollarName '$i')}
                                                  )
                                              )
                                            }
                                          right: {($ Id.VSub_DollarName '$on')}
                                        )
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<_Dbg_errmsg>} 
                              {
                                (DQ <'Display entry '> ($ Id.VSub_DollarName '$i') <' already '> 
                                  (${ Id.VSub_Name en_dis) <', so nothing done.'>
                                )
                              }
                            )
                          ]
                          spids: [505 524]
                        )
                      ]
                      else_action: [
                        (C {<_Dbg_write_journal_eval>} 
                          {
                            (DQ <'_Dbg_disp_enable['> ($ Id.VSub_DollarName '$i') <']='> 
                              ($ Id.VSub_DollarName '$on')
                            )
                          }
                        )
                        (C {<_Dbg_msg>} 
                          {
                            (DQ <'Display entry '> ($ Id.VSub_DollarName '$i') <' '> 
                              ($ Id.VSub_DollarName '$en_dis') <.>
                            )
                          }
                        )
                      ]
                    )
                  ]
                  spids: [483 502]
                )
              ]
              else_action: [
                (C {<_Dbg_errmsg>} 
                  {
                    (DQ <'Display entry '> ($ Id.VSub_DollarName '$i') 
                      <' doesn\'t exist, so nothing done.'>
                    )
                  }
                )
              ]
            )
          ]
        )
    )
  ]
)