(command.CommandList
  children: [
    (command.Simple
      blame_tok: <source>
      more_env: []
      words: [
        {<source>}
        {
          (CommandSub
            left_token: <Id.Left_DollarParen '$('>
            child: 
              (command.Simple
                blame_tok: <dirname>
                more_env: []
                words: [{<dirname>} {($ Id.VSub_Number 0)}]
                redirects: []
                do_fork: T
              )
            right: <Id.Eof_RParen _>
          ) <'/reader.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <source>
      more_env: []
      words: [
        {<source>}
        {
          (CommandSub
            left_token: <Id.Left_DollarParen '$('>
            child: 
              (command.Simple
                blame_tok: <dirname>
                more_env: []
                words: [{<dirname>} {($ Id.VSub_Number 0)}]
                redirects: []
                do_fork: T
              )
            right: <Id.Eof_RParen _>
          ) <'/printer.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.ShFunction
      name_tok: <READ>
      name: READ
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.AndOr
              children: [
                (command.Simple
                  blame_tok: <Id.Lit_LBracket '['>
                  more_env: []
                  words: [{<Id.Lit_LBracket '['>} {(DQ (${ Id.VSub_Number 1))} {<Id.Lit_RBracket ']'>}]
                  redirects: []
                  do_fork: T
                )
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Number 1))}
                    )
                  ]
                  redirects: []
                )
                (command.Simple
                  blame_tok: <READLINE>
                  more_env: []
                  words: [{<READLINE>}]
                  redirects: []
                  do_fork: T
                )
              ]
              ops: [<Id.Op_DAmp _> <Id.Op_DPipe _>]
            )
            (command.Simple
              blame_tok: <READ_STR>
              more_env: []
              words: [{<READ_STR>} {(DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <EVAL_AST>
      name: EVAL_AST
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [
                {<local>}
                {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))}
                {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
              ]
              redirects: []
              do_fork: T
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_obj_type>
                  more_env: []
                  words: [{<_obj_type>} {(DQ (${ Id.VSub_Name ast))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [{<local>} {<Id.Lit_VarLike 'ot='> (DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
            (command.Case
              case_kw: <Id.KW_Case case>
              to_match: (case_arg.Word w:{(DQ (${ Id.VSub_Name ot))})
              arms_start: <Id.KW_In in>
              arms: [
                (CaseArm
                  left: <symbol>
                  pattern: (pat.Words words:[{<symbol>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.Simple
                      blame_tok: <local>
                      more_env: []
                      words: [
                        {<local>}
                        {<Id.Lit_VarLike 'val='> 
                          (DQ 
                            (BracedVarSub
                              left: <Id.Left_DollarBrace '${'>
                              token: <Id.VSub_Name ANON>
                              var_name: ANON
                              bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name ast))})
                              right: <Id.Right_DollarBrace '}'>
                            )
                          )
                        }
                      ]
                      redirects: []
                      do_fork: T
                    )
                    (command.Simple
                      blame_tok: <eval>
                      more_env: []
                      words: [
                        {<eval>}
                        {<Id.Lit_VarLike 'r='> 
                          (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'> ch:'$') <'{'> 
                            (${ Id.VSub_Name env) <'['>
                          ) (${ Id.VSub_Name val) (DQ <']}'>)
                        }
                      ]
                      redirects: []
                      do_fork: T
                    )
                    (command.AndOr
                      children: [
                        (command.Simple
                          blame_tok: <Id.Lit_LBracket '['>
                          more_env: []
                          words: [
                            {<Id.Lit_LBracket '['>}
                            {(DQ (${ Id.VSub_Name r))}
                            {<Id.Lit_RBracket ']'>}
                          ]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <_error>
                          more_env: []
                          words: [{<_error>} {(DQ <'\''> (${ Id.VSub_Name val) <'\' not found'>)}]
                          redirects: []
                          do_fork: T
                        )
                      ]
                      ops: [<Id.Op_DPipe _>]
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
                (CaseArm
                  left: <list>
                  pattern: (pat.Words words:[{<list>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.Simple
                      blame_tok: <_map_with_type>
                      more_env: []
                      words: [
                        {<_map_with_type>}
                        {<_list>}
                        {<EVAL>}
                        {(DQ (${ Id.VSub_Name ast))}
                        {(DQ (${ Id.VSub_Name env))}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
                (CaseArm
                  left: <vector>
                  pattern: (pat.Words words:[{<vector>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.Simple
                      blame_tok: <_map_with_type>
                      more_env: []
                      words: [
                        {<_map_with_type>}
                        {<_vector>}
                        {<EVAL>}
                        {(DQ (${ Id.VSub_Name ast))}
                        {(DQ (${ Id.VSub_Name env))}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
                (CaseArm
                  left: <hash_map>
                  pattern: (pat.Words words:[{<hash_map>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.Simple
                      blame_tok: <local>
                      more_env: []
                      words: [
                        {<local>}
                        {<Id.Lit_VarLike 'res='> (DQ )}
                        {<Id.Lit_VarLike 'key='>}
                        {<Id.Lit_VarLike 'val='> (DQ )}
                        {<Id.Lit_VarLike 'hm='> 
                          (DQ 
                            (BracedVarSub
                              left: <Id.Left_DollarBrace '${'>
                              token: <Id.VSub_Name ANON>
                              var_name: ANON
                              bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name ast))})
                              right: <Id.Right_DollarBrace '}'>
                            )
                          )
                        }
                      ]
                      redirects: []
                      do_fork: T
                    )
                    (command.Sentence
                      child: 
                        (command.Simple
                          blame_tok: <_hash_map>
                          more_env: []
                          words: [{<_hash_map>}]
                          redirects: []
                          do_fork: T
                        )
                      terminator: <Id.Op_Semi _>
                    )
                    (command.Simple
                      blame_tok: <local>
                      more_env: []
                      words: [{<local>} {<Id.Lit_VarLike 'new_hm='> (DQ (${ Id.VSub_Name r))}]
                      redirects: []
                      do_fork: T
                    )
                    (command.Simple
                      blame_tok: <eval>
                      more_env: []
                      words: [
                        {<eval>}
                        {<local>}
                        {<Id.Lit_VarLike 'keys='> 
                          (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'> ch:'$') 
                            <'{!'> (${ Id.VSub_Name hm) <'[@]}'>
                          )
                        }
                      ]
                      redirects: []
                      do_fork: T
                    )
                    (command.ForEach
                      keyword: <Id.KW_For for>
                      iter_names: [key]
                      iterable: (for_iter.Words words:[{(${ Id.VSub_Name keys)}])
                      semi_tok: <Id.Op_Semi _>
                      body: 
                        (command.DoGroup
                          left: <Id.KW_Do do>
                          children: [
                            (command.Simple
                              blame_tok: <eval>
                              more_env: []
                              words: [
                                {<eval>}
                                {<Id.Lit_VarLike 'val='> 
                                  (DQ 
                                    (word_part.EscapedLiteral
                                      token: <Id.Lit_EscapedChar '\\$'>
                                      ch: '$'
                                    ) <'{'> (${ Id.VSub_Name hm) <'['> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'> ch:'"') 
                                    (${ Id.VSub_Name key) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'> ch:'"') <']}'>
                                  )
                                }
                              ]
                              redirects: []
                              do_fork: T
                            )
                            (command.Simple
                              blame_tok: <EVAL>
                              more_env: []
                              words: [{<EVAL>} {(DQ (${ Id.VSub_Name val))} {(DQ (${ Id.VSub_Name env))}]
                              redirects: []
                              do_fork: T
                            )
                            (command.Simple
                              blame_tok: <_assoc>
                              more_env: []
                              words: [
                                {<_assoc> <Id.KW_Bang '!'>}
                                {(DQ (${ Id.VSub_Name new_hm))}
                                {(DQ (${ Id.VSub_Name key))}
                                {(DQ (${ Id.VSub_Name r))}
                              ]
                              redirects: []
                              do_fork: T
                            )
                          ]
                          right: <Id.KW_Done done>
                        )
                      redirects: []
                    )
                    (command.ShAssignment
                      left: <Id.Lit_VarLike 'r='>
                      pairs: [
                        (AssignPair
                          left: <Id.Lit_VarLike 'r='>
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name new_hm))}
                        )
                      ]
                      redirects: []
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
                (CaseArm
                  left: <Id.Lit_Star '*'>
                  pattern: (pat.Words words:[{<Id.Lit_Star '*'>}])
                  middle: <Id.Right_CasePat _>
                  action: [
                    (command.ShAssignment
                      left: <Id.Lit_VarLike 'r='>
                      pairs: [
                        (AssignPair
                          left: <Id.Lit_VarLike 'r='>
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name ast))}
                        )
                      ]
                      redirects: []
                    )
                  ]
                  right: <Id.Op_DSemi _>
                )
              ]
              arms_end: <Id.KW_Esac esac>
              redirects: []
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <EVAL>
      name: EVAL
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [
                {<local>}
                {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))}
                {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
              ]
              redirects: []
              do_fork: T
            )
            (command.ShAssignment
              left: <Id.Lit_VarLike 'r='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'r='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                  op: assign_op.Equal
                  rhs: (rhs_word__Empty)
                )
              ]
              redirects: []
            )
            (command.AndOr
              children: [
                (command.DBracket
                  left: <Id.KW_DLeftBracket '[['>
                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                  right: <Id.Lit_DRightBracket ']]'>
                  redirects: []
                )
                (command.ControlFlow
                  keyword: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
              ops: [<Id.Op_DAmp _>]
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_obj_type>
                  more_env: []
                  words: [{<_obj_type>} {(DQ (${ Id.VSub_Name ast))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [{<local>} {<Id.Lit_VarLike 'ot='> (DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
            (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_GlobNEqual
                                  left: {(DQ (${ Id.VSub_Name ot))}
                                  right: {(DQ <list>)}
                                )
                              right: <Id.Lit_DRightBracket ']]'>
                              redirects: []
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  then_kw: <Id.KW_Then then>
                  action: [
                    (command.Simple
                      blame_tok: <EVAL_AST>
                      more_env: []
                      words: [{<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}]
                      redirects: []
                      do_fork: T
                    )
                    (command.ControlFlow keyword:<Id.ControlFlow_Return return>)
                  ]
                  spids: [475 494]
                )
              ]
              else_action: []
              fi_kw: <Id.KW_Fi fi>
              redirects: []
            )
            (command.AndOr
              children: [
                (command.Simple
                  blame_tok: <_empty>
                  more_env: []
                  words: [{<_empty> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Name ast))}]
                  redirects: []
                  do_fork: T
                )
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Name ast))}
                    )
                  ]
                  redirects: []
                )
                (command.ControlFlow keyword:<Id.ControlFlow_Return return>)
              ]
              ops: [<Id.Op_DAmp _> <Id.Op_DAmp _>]
            )
            (command.Simple
              blame_tok: <EVAL_AST>
              more_env: []
              words: [{<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))}]
              redirects: []
              do_fork: T
            )
            (command.AndOr
              children: [
                (command.DBracket
                  left: <Id.KW_DLeftBracket '[['>
                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                  right: <Id.Lit_DRightBracket ']]'>
                  redirects: []
                )
                (command.ControlFlow
                  keyword: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
              ops: [<Id.Op_DAmp _>]
            )
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [{<local>} {<Id.Lit_VarLike 'el='> (DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_first>
                  more_env: []
                  words: [{<_first>} {(DQ (${ Id.VSub_Name el))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [{<local>} {<Id.Lit_VarLike 'f='> (DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_rest>
                  more_env: []
                  words: [{<_rest>} {(DQ (${ Id.VSub_Name el))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <local>
              more_env: []
              words: [
                {<local>}
                {<Id.Lit_VarLike 'args='> 
                  (DQ 
                    (BracedVarSub
                      left: <Id.Left_DollarBrace '${'>
                      token: <Id.VSub_Name ANON>
                      var_name: ANON
                      bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name r))})
                      right: <Id.Right_DollarBrace '}'>
                    )
                  )
                }
              ]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <eval>
              more_env: []
              words: [{<eval>} {(${ Id.VSub_Name f)} {(${ Id.VSub_Name args)}]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <PRINT>
      name: PRINT
      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.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                              right: <Id.Lit_DRightBracket ']]'>
                              redirects: []
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  then_kw: <Id.KW_Then then>
                  action: [
                    (command.Simple
                      blame_tok: <_pr_str>
                      more_env: []
                      words: [{<_pr_str>} {(DQ (${ Id.VSub_Name __ERROR))} {<yes>}]
                      redirects: []
                      do_fork: T
                    )
                    (command.ShAssignment
                      left: <Id.Lit_VarLike 'r='>
                      pairs: [
                        (AssignPair
                          left: <Id.Lit_VarLike 'r='>
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                          op: assign_op.Equal
                          rhs: {(DQ <'Error: '> (${ Id.VSub_Name r))}
                        )
                      ]
                      redirects: []
                    )
                    (command.ShAssignment
                      left: <Id.Lit_VarLike '__ERROR='>
                      pairs: [
                        (AssignPair
                          left: <Id.Lit_VarLike '__ERROR='>
                          lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike '__ERROR='> name:__ERROR)
                          op: assign_op.Equal
                          rhs: (rhs_word__Empty)
                        )
                      ]
                      redirects: []
                    )
                  ]
                  spids: [661 674]
                )
              ]
              else_kw: <Id.KW_Else else>
              else_action: [
                (command.Simple
                  blame_tok: <_pr_str>
                  more_env: []
                  words: [{<_pr_str>} {(DQ (${ Id.VSub_Number 1))} {<yes>}]
                  redirects: []
                  do_fork: T
                )
              ]
              fi_kw: <Id.KW_Fi fi>
              redirects: []
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.Simple
      blame_tok: <declare>
      more_env: []
      words: [{<declare>} {<-A>} {<REPL_ENV>}]
      redirects: []
      do_fork: T
    )
    (command.ShFunction
      name_tok: <REP>
      name: REP
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.ShAssignment
              left: <Id.Lit_VarLike 'r='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'r='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                  op: assign_op.Equal
                  rhs: (rhs_word__Empty)
                )
              ]
              redirects: []
            )
            (command.Simple
              blame_tok: <READ>
              more_env: []
              words: [{<READ>} {(DQ (${ Id.VSub_Number 1))}]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <EVAL>
              more_env: []
              words: [{<EVAL>} {(DQ (${ Id.VSub_Name r))} {<REPL_ENV>}]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <PRINT>
              more_env: []
              words: [{<PRINT>} {(DQ (${ Id.VSub_Name r))}]
              redirects: []
              do_fork: T
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <plus>
      name: plus
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            left: <Id.Left_DollarDParen '$(('>
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Plus
                                left: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                                right: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                              )
                            right: <Id.Right_DollarDParen _>
                          )
                        }
                    )
                  ]
                  redirects: []
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_number>
                  more_env: []
                  words: [{<_number>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <minus>
      name: minus
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            left: <Id.Left_DollarDParen '$(('>
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Minus
                                left: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                                right: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                              )
                            right: <Id.Right_DollarDParen _>
                          )
                        }
                    )
                  ]
                  redirects: []
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_number>
                  more_env: []
                  words: [{<_number>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <multiply>
      name: multiply
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            left: <Id.Left_DollarDParen '$(('>
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Star
                                left: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                                right: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                              )
                            right: <Id.Right_DollarDParen _>
                          )
                        }
                    )
                  ]
                  redirects: []
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_number>
                  more_env: []
                  words: [{<_number>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShFunction
      name_tok: <divide>
      name: divide
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  left: <Id.Lit_VarLike 'r='>
                  pairs: [
                    (AssignPair
                      left: <Id.Lit_VarLike 'r='>
                      lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'r='> name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            left: <Id.Left_DollarDParen '$(('>
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Slash
                                left: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                                right: 
                                  {
                                    (BracedVarSub
                                      left: <Id.Left_DollarBrace '${'>
                                      token: <Id.VSub_Name ANON>
                                      var_name: ANON
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                      right: <Id.Right_DollarBrace '}'>
                                    )
                                  }
                              )
                            right: <Id.Right_DollarDParen _>
                          )
                        }
                    )
                  ]
                  redirects: []
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <_number>
                  more_env: []
                  words: [{<_number>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.ShAssignment
      left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
      pairs: [
        (AssignPair
          left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
          lhs: 
            (sh_lhs_expr.IndexedName
              left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
              name: REPL_ENV
              index: {(DQ <'+'>)}
            )
          op: assign_op.Equal
          rhs: {<plus>}
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
      pairs: [
        (AssignPair
          left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
          lhs: 
            (sh_lhs_expr.IndexedName
              left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
              name: REPL_ENV
              index: {(DQ <->)}
            )
          op: assign_op.Equal
          rhs: {<minus>}
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
      pairs: [
        (AssignPair
          left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
          lhs: 
            (sh_lhs_expr.IndexedName
              left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
              name: REPL_ENV
              index: {(DQ <__STAR__>)}
            )
          op: assign_op.Equal
          rhs: {<multiply>}
        )
      ]
      redirects: []
    )
    (command.ShAssignment
      left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
      pairs: [
        (AssignPair
          left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
          lhs: 
            (sh_lhs_expr.IndexedName
              left: <Id.Lit_ArrayLhsOpen 'REPL_ENV['>
              name: REPL_ENV
              index: {(DQ <'/'>)}
            )
          op: assign_op.Equal
          rhs: {<divide>}
        )
      ]
      redirects: []
    )
    (command.WhileUntil
      keyword: <Id.KW_While while>
      cond: 
        (condition.Shell
          commands: [
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <true>
                  more_env: []
                  words: [{<true>}]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
          ]
        )
      body: 
        (command.DoGroup
          left: <Id.KW_Do do>
          children: [
            (command.AndOr
              children: [
                (command.Simple
                  blame_tok: <READLINE>
                  more_env: []
                  words: [{<READLINE>} {(DQ <'user> '>)}]
                  redirects: []
                  do_fork: T
                )
                (command.ControlFlow
                  keyword: <Id.ControlFlow_Exit exit>
                  arg_word: {(DQ ($ Id.VSub_QMark '?'))}
                )
              ]
              ops: [<Id.Op_DPipe _>]
            )
            (command.AndOr
              children: [
                (command.DBracket
                  left: <Id.KW_DLeftBracket '[['>
                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))})
                  right: <Id.Lit_DRightBracket ']]'>
                  redirects: []
                )
                (command.Simple
                  blame_tok: <REP>
                  more_env: []
                  words: [{<REP>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
                (command.Simple
                  blame_tok: <echo>
                  more_env: []
                  words: [{<echo>} {(DQ (${ Id.VSub_Name r))}]
                  redirects: []
                  do_fork: T
                )
              ]
              ops: [<Id.Op_DAmp _> <Id.Op_DAmp _>]
            )
          ]
          right: <Id.KW_Done done>
        )
      redirects: []
    )
  ]
)