(command.CommandList
  children: [
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/reader.sh'>
      }
    )
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/printer.sh'>
      }
    )
    (command.ShFunction
      name: READ
      body: 
        (BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DPipe]
              children: [
                (C {<Id.Lit_LBracket '['>} {(DQ (${ Id.VSub_Number 1))} {<Id.Lit_RBracket ']'>})
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Number 1))}
                      spids: [46]
                    )
                  ]
                )
                (C {<READLINE>})
              ]
            )
            (C {<READ_STR>} {(DQ (${ Id.VSub_Name r))})
          ]
        )
    )
    (command.ShFunction
      name: EVAL_AST
      body: 
        (BraceGroup
          children: [
            (C {<local>} {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))} 
              {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
            )
            (command.Sentence
              child: (C {<_obj_type>} {(DQ (${ Id.VSub_Name ast))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'ot='> (DQ (${ Id.VSub_Name r))})
            (command.Case
              to_match: {(DQ (${ Id.VSub_Name ot))}
              arms: [
                (case_arm
                  pat_list: [{<symbol>}]
                  action: [
                    (C {<local>} 
                      {<Id.Lit_VarLike 'val='> 
                        (DQ 
                          (braced_var_sub
                            token: <Id.VSub_Name ANON>
                            bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name ast))})
                          )
                        )
                      }
                    )
                    (C {<eval>} 
                      {<Id.Lit_VarLike 'r='> 
                        (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{'> 
                          (${ Id.VSub_Name env) <'['>
                        ) (${ Id.VSub_Name val) (DQ <']}'>)
                      }
                    )
                    (command.AndOr
                      ops: [Id.Op_DPipe]
                      children: [
                        (C {<Id.Lit_LBracket '['>} {(DQ (${ Id.VSub_Name r))} {<Id.Lit_RBracket ']'>})
                        (C {<_error>} {(DQ <'\''> (${ Id.VSub_Name val) <'\' not found'>)})
                      ]
                    )
                  ]
                  spids: [131 132 193 -1]
                )
                (case_arm
                  pat_list: [{<list>}]
                  action: [
                    (C {<_map_with_type>} {<_list>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [196 197 218 -1]
                )
                (case_arm
                  pat_list: [{<vector>}]
                  action: [
                    (C {<_map_with_type>} {<_vector>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [221 222 243 -1]
                )
                (case_arm
                  pat_list: [{<hash_map>}]
                  action: [
                    (C {<local>} {<Id.Lit_VarLike 'res='> (DQ )} {<Id.Lit_VarLike 'key='>} 
                      {<Id.Lit_VarLike 'val='> (DQ )} 
                      {<Id.Lit_VarLike 'hm='> 
                        (DQ 
                          (braced_var_sub
                            token: <Id.VSub_Name ANON>
                            bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name ast))})
                          )
                        )
                      }
                    )
                    (command.Sentence
                      child: (C {<_hash_map>})
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<local>} {<Id.Lit_VarLike 'new_hm='> (DQ (${ Id.VSub_Name r))})
                    (C {<eval>} {<local>} 
                      {<Id.Lit_VarLike 'keys='> 
                        (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{!'> 
                          (${ Id.VSub_Name hm) <'[@]}'>
                        )
                      }
                    )
                    (command.ForEach
                      iter_name: key
                      iter_words: [{(${ Id.VSub_Name keys)}]
                      do_arg_iter: F
                      body: 
                        (command.DoGroup
                          children: [
                            (C {<eval>} 
                              {<Id.Lit_VarLike 'val='> 
                                (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{'> 
                                  (${ Id.VSub_Name hm) <'['> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (${ Id.VSub_Name key) 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) <']}'>
                                )
                              }
                            )
                            (C {<EVAL>} {(DQ (${ Id.VSub_Name val))} {(DQ (${ Id.VSub_Name env))})
                            (C {<_assoc> <Id.KW_Bang '!'>} {(DQ (${ Id.VSub_Name new_hm))} 
                              {(DQ (${ Id.VSub_Name key))} {(DQ (${ Id.VSub_Name r))}
                            )
                          ]
                        )
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name new_hm))}
                          spids: [378]
                        )
                      ]
                    )
                  ]
                  spids: [246 247 385 -1]
                )
                (case_arm
                  pat_list: [{<Id.Lit_Star '*'>}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name ast))}
                          spids: [392]
                        )
                      ]
                    )
                  ]
                  spids: [388 389 399 -1]
                )
              ]
            )
          ]
        )
    )
    (command.ShFunction
      name: EVAL
      body: 
        (BraceGroup
          children: [
            (C {<local>} {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))} 
              {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: (word.Empty)
                  spids: [432]
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp]
              children: [
                (command.DBracket
                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                )
                (command.ControlFlow
                  token: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
            )
            (command.Sentence
              child: (C {<_obj_type>} {(DQ (${ Id.VSub_Name ast))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'ot='> (DQ (${ Id.VSub_Name r))})
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobNEqual
                                  left: {(DQ (${ Id.VSub_Name ot))}
                                  right: {(DQ <list>)}
                                )
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                    (command.ControlFlow token:<Id.ControlFlow_Return return>)
                  ]
                  spids: [475 494]
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (C {<_empty> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Name ast))})
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Name ast))}
                      spids: [529]
                    )
                  ]
                )
                (command.ControlFlow token:<Id.ControlFlow_Return return>)
              ]
            )
            (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
            (command.AndOr
              ops: [Id.Op_DAmp]
              children: [
                (command.DBracket
                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                )
                (command.ControlFlow
                  token: <Id.ControlFlow_Return return>
                  arg_word: {<1>}
                )
              ]
            )
            (C {<local>} {<Id.Lit_VarLike 'el='> (DQ (${ Id.VSub_Name r))})
            (command.Sentence
              child: (C {<_first>} {(DQ (${ Id.VSub_Name el))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'f='> (DQ (${ Id.VSub_Name r))})
            (command.Sentence
              child: (C {<_rest>} {(DQ (${ Id.VSub_Name el))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} 
              {<Id.Lit_VarLike 'args='> 
                (DQ 
                  (braced_var_sub
                    token: <Id.VSub_Name ANON>
                    bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name r))})
                  )
                )
              }
            )
            (C {<eval>} {(${ Id.VSub_Name f)} {(${ Id.VSub_Name args)})
          ]
        )
    )
    (command.ShFunction
      name: PRINT
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<_pr_str>} {(DQ (${ Id.VSub_Name __ERROR))} {<yes>})
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ <'Error: '> (${ Id.VSub_Name r))}
                          spids: [688]
                        )
                      ]
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:__ERROR)
                          op: assign_op.Equal
                          rhs: (word.Empty)
                          spids: [697]
                        )
                      ]
                    )
                  ]
                  spids: [661 674]
                )
              ]
              else_action: [(C {<_pr_str>} {(DQ (${ Id.VSub_Number 1))} {<yes>})]
            )
          ]
        )
    )
    (C {<declare>} {<-A>} {<REPL_ENV>})
    (command.ShFunction
      name: REP
      body: 
        (BraceGroup
          children: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: (word.Empty)
                  spids: [736]
                )
              ]
            )
            (C {<READ>} {(DQ (${ Id.VSub_Number 1))})
            (C {<EVAL>} {(DQ (${ Id.VSub_Name r))} {<REPL_ENV>})
            (C {<PRINT>} {(DQ (${ Id.VSub_Name r))})
          ]
        )
    )
    (command.ShFunction
      name: plus
      body: 
        (BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Plus
                                left: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                    )
                                  }
                                right: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                    )
                                  }
                              )
                          )
                        }
                      spids: [777]
                    )
                  ]
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: (C {<_number>} {(DQ (${ Id.VSub_Name r))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (command.ShFunction
      name: minus
      body: 
        (BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Minus
                                left: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                    )
                                  }
                                right: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                    )
                                  }
                              )
                          )
                        }
                      spids: [826]
                    )
                  ]
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: (C {<_number>} {(DQ (${ Id.VSub_Name r))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (command.ShFunction
      name: multiply
      body: 
        (BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Star
                                left: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                    )
                                  }
                                right: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                    )
                                  }
                              )
                          )
                        }
                      spids: [875]
                    )
                  ]
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: (C {<_number>} {(DQ (${ Id.VSub_Name r))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (command.ShFunction
      name: divide
      body: 
        (BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: 
                        {
                          (word_part.ArithSub
                            anode: 
                              (arith_expr.Binary
                                op_id: Id.Arith_Slash
                                left: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 1))}
                                        )
                                    )
                                  }
                                right: 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: {(DQ (${ Id.VSub_Number 2))}
                                        )
                                    )
                                  }
                              )
                          )
                        }
                      spids: [924]
                    )
                  ]
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: (C {<_number>} {(DQ (${ Id.VSub_Name r))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.IndexedName name:REPL_ENV index:{(DQ <'+'>)})
          op: assign_op.Equal
          rhs: {<plus>}
          spids: [967]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.IndexedName name:REPL_ENV index:{(DQ <->)})
          op: assign_op.Equal
          rhs: {<minus>}
          spids: [978]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.IndexedName name:REPL_ENV index:{(DQ <__STAR__>)})
          op: assign_op.Equal
          rhs: {<multiply>}
          spids: [989]
        )
      ]
    )
    (command.ShAssignment
      pairs: [
        (assign_pair
          lhs: (sh_lhs_expr.IndexedName name:REPL_ENV index:{(DQ <'/'>)})
          op: assign_op.Equal
          rhs: {<divide>}
          spids: [1000]
        )
      ]
    )
    (command.WhileUntil
      keyword: <Id.KW_While while>
      cond: 
        (condition.Shell
          commands: [(command.Sentence child:(C {<true>}) terminator:<Id.Op_Semi _>)]
        )
      body: 
        (command.DoGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DPipe]
              children: [
                (C {<READLINE>} {(DQ <'user> '>)})
                (command.ControlFlow
                  token: <Id.ControlFlow_Exit exit>
                  arg_word: {(DQ ($ Id.VSub_QMark '$?'))}
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))}))
                (C {<REP>} {(DQ (${ Id.VSub_Name r))})
                (C {<echo>} {(DQ (${ Id.VSub_Name r))})
              ]
            )
          ]
        )
    )
  ]
)