(command.CommandList
  children: [
    (command.ShAssignment
      left: <Id.Lit_VarLike 'QUOTE='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'QUOTE='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'QUOTE='> name:QUOTE)
          op: assign_op.Equal
          rhs: {(DQ <'> '>)}
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'MIN_TEXT_LEN='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'MIN_TEXT_LEN='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'MIN_TEXT_LEN='> name:MIN_TEXT_LEN)
          op: assign_op.Equal
          rhs: {<8>}
        )
      ]
      redirects: []
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      blame_tok: <Id.Lit_LBracket '['>
                      more_env: []
                      words: [
                        {<Id.Lit_LBracket '['>}
                        {($ Id.VSub_Pound '#')}
                        {<Id.Lit_Equals '='> <Id.Lit_Equals '='>}
                        {<3>}
                        {<Id.Lit_RBracket ']'>}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'QUOTE='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'QUOTE='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'QUOTE='> name:QUOTE)
                  op: assign_op.Equal
                  rhs: {(DQ ($ Id.VSub_Number 1))}
                )
              ]
              redirects: []
            )
            (command.Simple
              blame_tok: <shift>
              more_env: []
              words: [{<shift>}]
              redirects: []
              do_fork: T
            )
          ]
          spids: [37 51]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      blame_tok: <Id.Lit_LBracket '['>
                      more_env: []
                      words: [
                        {<Id.Lit_LBracket '['>}
                        {($ Id.VSub_Pound '#')}
                        {<Id.KW_Bang '!'> <Id.Lit_Equals '='>}
                        {<2>}
                        {<Id.Lit_RBracket ']'>}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.Simple
              blame_tok: <echo>
              more_env: []
              words: [
                {<echo>}
                {
                  (DQ <'Usage: '> ($ Id.VSub_Number 0) 
                    <' [quote_string(> )] response_level(starting at 0) line_width'>
                  )
                }
              ]
              redirects: [(Redir op:<Id.Redir_GreatAnd '>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
            (command.ControlFlow keyword:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [65 79]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'RESPONSE_LEVEL='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'RESPONSE_LEVEL='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'RESPONSE_LEVEL='> name:RESPONSE_LEVEL)
          op: assign_op.Equal
          rhs: {($ Id.VSub_Number 1)}
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'TEXT_WIDTH='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'TEXT_WIDTH='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'TEXT_WIDTH='> name:TEXT_WIDTH)
          op: assign_op.Equal
          rhs: 
            {
              (CommandSub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (command.Simple
                    blame_tok: <expr>
                    more_env: []
                    words: [
                      {<expr>}
                      {($ Id.VSub_Number 2)}
                      {<->}
                      {($ Id.VSub_Number 1)}
                      {(word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\*'> ch:'*')}
                      {
                        (BracedVarSub
                          left: <Id.Left_DollarBrace '${'>
                          token: <Id.VSub_Name QUOTE>
                          var_name: QUOTE
                          prefix_op: <Id.VSub_Pound '#'>
                          right: <Id.Right_DollarBrace '}'>
                        )
                      }
                    ]
                    redirects: []
                    do_fork: T
                  )
                right: <Id.Backtick_Right '`'>
              )
            }
        )
      ]
      redirects: []
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      blame_tok: <Id.Lit_LBracket '['>
                      more_env: []
                      words: [
                        {<Id.Lit_LBracket '['>}
                        {($ Id.VSub_DollarName TEXT_WIDTH)}
                        {<-lt>}
                        {($ Id.VSub_DollarName MIN_TEXT_LEN)}
                        {<Id.Lit_RBracket ']'>}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.Simple
              blame_tok: <echo>
              more_env: []
              words: [
                {<echo>}
                {
                  (DQ <'Aborting as line length will be less than '> 
                    ($ Id.VSub_DollarName MIN_TEXT_LEN)
                  )
                }
              ]
              redirects: [(Redir op:<Id.Redir_GreatAnd '>&'> loc:(redir_loc.Fd fd:1) arg:{<2>})]
              do_fork: T
            )
            (command.ControlFlow keyword:<Id.ControlFlow_Exit exit> arg_word:{<1>})
          ]
          spids: [127 140]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.ForEach
      keyword: <Id.KW_For for>
      iter_names: [i]
      iterable: 
        (for_iter.Words
          words: [
            {
              (CommandSub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (command.Simple
                    blame_tok: <seq>
                    more_env: []
                    words: [{<seq>} {<1>} {($ Id.VSub_DollarName RESPONSE_LEVEL)}]
                    redirects: []
                    do_fork: T
                  )
                right: <Id.Backtick_Right '`'>
              )
            }
          ]
        )
      semi_tok: <Id.Op_Semi _>
      body: 
        (command.DoGroup
          left: <Id.KW_Do do>
          children: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'RESPONSE_DELIM='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'RESPONSE_DELIM='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'RESPONSE_DELIM='> name:RESPONSE_DELIM)
                  op: assign_op.Equal
                  rhs: {(DQ ($ Id.VSub_DollarName RESPONSE_DELIM) ($ Id.VSub_DollarName QUOTE))}
                )
              ]
              redirects: []
            )
          ]
          right: <Id.KW_Done done>
        )
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'RESPONSE_DELIM='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'RESPONSE_DELIM='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'RESPONSE_DELIM='> name:RESPONSE_DELIM)
          op: assign_op.Equal
          rhs: 
            {
              (CommandSub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (command.Pipeline
                    children: [
                      (command.Simple
                        blame_tok: <echo>
                        more_env: []
                        words: [{<echo>} {(DQ ($ Id.VSub_DollarName RESPONSE_DELIM))}]
                        redirects: []
                        do_fork: T
                      )
                      (command.Simple
                        blame_tok: <sed>
                        more_env: []
                        words: [{<sed>} {(SQ <'s/[ ]*$//'>)}]
                        redirects: []
                        do_fork: T
                      )
                    ]
                    ops: [<Id.Op_Pipe _>]
                  )
                right: <Id.Backtick_Right '`'>
              )
            }
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_VarLike 'QUOTE_DEL='>
      pairs: [
        (AssignPair
          left: <Id.Lit_VarLike 'QUOTE_DEL='>
          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'QUOTE_DEL='> name:QUOTE_DEL)
          op: assign_op.Equal
          rhs: 
            {
              (CommandSub
                left_token: <Id.Left_Backtick '`'>
                child: 
                  (command.Pipeline
                    children: [
                      (command.Simple
                        blame_tok: <echo>
                        more_env: []
                        words: [{<echo>} {(DQ ($ Id.VSub_DollarName QUOTE))}]
                        redirects: []
                        do_fork: T
                      )
                      (command.Simple
                        blame_tok: <tr>
                        more_env: []
                        words: [{<tr>} {<-d>} {(SQ <' '>)}]
                        redirects: []
                        do_fork: T
                      )
                    ]
                    ops: [<Id.Op_Pipe _>]
                  )
                right: <Id.Backtick_Right '`'>
              )
            }
        )
      ]
      redirects: []
    )
    (command.Pipeline
      children: [
        (command.Simple
          blame_tok: <tr>
          more_env: []
          words: [
            {<tr>}
            {<-ds>}
            {
              (DQ ($ Id.VSub_DollarName QUOTE_DEL) 
                (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\\\'> ch:'\\') <n>
              )
            }
            {(SQ <' '>)}
          ]
          redirects: []
          do_fork: T
        )
        (command.Simple
          blame_tok: <fmt>
          more_env: []
          words: [{<fmt>} {<-w> ($ Id.VSub_DollarName TEXT_WIDTH)}]
          redirects: []
          do_fork: T
        )
        (command.Simple
          blame_tok: <sed>
          more_env: []
          words: [
            {<sed>}
            {<-e>}
            {
              (DQ <'s/^[ ]*'> <Id.Lit_BadBackslash '\\'> <'(.*'> <Id.Lit_BadBackslash '\\'> <')/'> 
                ($ Id.VSub_DollarName RESPONSE_DELIM) <' '> <Id.Lit_BadBackslash '\\'> <'1/'>
              )
            }
          ]
          redirects: []
          do_fork: T
        )
      ]
      ops: [<Id.Op_Pipe _> <Id.Op_Pipe _>]
    )
  ]
)