(command.CommandList
  children: [
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
          spids: [6 10]
        ) (/reader.sh)
      }
    )
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
          spids: [15 19]
        ) (/printer.sh)
      }
    )
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
          spids: [24 28]
        ) (/env.sh)
      }
    )
    (command.FuncDef
      name: READ
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp Op_DPipe]
              children: [
                (C {(Lit_Other '[')} {(DQ (${ VSub_Number 1))} {(Lit_Other ']')})
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[55])
                      op: Equal
                      rhs: {(DQ (${ VSub_Number 1))}
                      spids: [55]
                    )
                  ]
                  spids: [55]
                )
                (C {(READLINE)})
              ]
            )
            (C {(READ_STR)} {(DQ (${ VSub_Name r))})
          ]
          spids: [40]
        )
      spids: [35 39]
    )
    (command.FuncDef
      name: EVAL_AST
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast spids:[91])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                  spids: [91]
                )
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env spids:[98])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                  spids: [98]
                )
              ]
              spids: [89]
            )
            (command.Sentence
              child: (C {(_obj_type)} {(DQ (${ VSub_Name ast))})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ot spids:[121])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [121]
                )
              ]
              spids: [119]
            )
            (command.Case
              to_match: {(DQ (${ VSub_Name ot))}
              arms: [
                (case_arm
                  pat_list: [{(symbol)}]
                  action: [
                    (C {(ENV_GET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name ast))})
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [140 141 161 16777215]
                )
                (case_arm
                  pat_list: [{(list)}]
                  action: [
                    (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ VSub_Name ast))} 
                      {(DQ (${ VSub_Name env))}
                    )
                  ]
                  spids: [164 165 186 16777215]
                )
                (case_arm
                  pat_list: [{(vector)}]
                  action: [
                    (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ VSub_Name ast))} 
                      {(DQ (${ VSub_Name env))}
                    )
                  ]
                  spids: [189 190 211 16777215]
                )
                (case_arm
                  pat_list: [{(hash_map)}]
                  action: [
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:res spids:[220])
                          op: Equal
                          rhs: {(DQ )}
                          spids: [220]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:key spids:[224])
                          op: Equal
                          rhs: (word.EmptyWord)
                          spids: [224]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:val spids:[226])
                          op: Equal
                          rhs: {(DQ )}
                          spids: [226]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:hm spids:[230])
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (word_part.BracedVarSub
                                  token: <VSub_Name ANON>
                                  bracket_op: 
                                    (bracket_op.ArrayIndex
                                      expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name ast))})
                                    )
                                  spids: [232 241]
                                )
                              )
                            }
                          spids: [230]
                        )
                      ]
                      spids: [218]
                    )
                    (command.Sentence
                      child: (C {(_hash_map)})
                      terminator: <Op_Semi ';'>
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:new_hm spids:[250])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [250]
                        )
                      ]
                      spids: [248]
                    )
                    (C {(eval)} {(Assign_Local local)} 
                      {(Lit_VarLike 'keys=') 
                        (DQ (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{!') 
                          (${ VSub_Name hm) ('[@]}')
                        )
                      }
                    )
                    (command.ForEach
                      iter_name: key
                      iter_words: [{(${ VSub_Name keys)}]
                      do_arg_iter: F
                      body: 
                        (command.DoGroup
                          children: [
                            (C {(eval)} 
                              {(Lit_VarLike 'val=') 
                                (DQ (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{') 
                                  (${ VSub_Name hm) ('[') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (${ VSub_Name key) 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) (']}')
                                )
                              }
                            )
                            (C {(EVAL)} {(DQ (${ VSub_Name val))} {(DQ (${ VSub_Name env))})
                            (C {(_assoc) (KW_Bang '!')} {(DQ (${ VSub_Name new_hm))} 
                              {(DQ (${ VSub_Name key))} {(DQ (${ VSub_Name r))}
                            )
                          ]
                          spids: [284 343]
                        )
                      spids: [278 282]
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[346])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name new_hm))}
                          spids: [346]
                        )
                      ]
                      spids: [346]
                    )
                  ]
                  spids: [214 215 353 16777215]
                )
                (case_arm
                  pat_list: [{(Lit_Other '*')}]
                  action: [
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[360])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name ast))}
                          spids: [360]
                        )
                      ]
                      spids: [360]
                    )
                  ]
                  spids: [356 357 367 16777215]
                )
              ]
              spids: [129 137 370]
            )
          ]
          spids: [86]
        )
      spids: [81 85]
    )
    (command.FuncDef
      name: EVAL
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast spids:[385])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                  spids: [385]
                )
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env spids:[392])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                  spids: [392]
                )
              ]
              spids: [383]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:r spids:[400])
                  op: Equal
                  rhs: (word.EmptyWord)
                  spids: [400]
                )
              ]
              spids: [400]
            )
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (command.DBracket
                  expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))})
                )
                (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
            )
            (command.Sentence
              child: (C {(_obj_type)} {(DQ (${ VSub_Name ast))})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ot spids:[435])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [435]
                )
              ]
              spids: [433]
            )
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.DBracket
                          expr: 
                            (bool_expr.BoolBinary
                              op_id: BoolBinary_GlobNEqual
                              left: {(DQ (${ VSub_Name ot))}
                              right: {(DQ (list))}
                            )
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [16777215 462]
                )
              ]
              spids: [16777215 483]
            )
            (command.AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (C {(_empty) (Lit_Other '?')} {(DQ (${ VSub_Name ast))})
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[497])
                      op: Equal
                      rhs: {(DQ (${ VSub_Name ast))}
                      spids: [497]
                    )
                  ]
                  spids: [497]
                )
                (command.ControlFlow token:<ControlFlow_Return return>)
              ]
            )
            (command.Sentence
              child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(0)})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:a0 spids:[527])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [527]
                )
              ]
              spids: [525]
            )
            (command.Sentence
              child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(1)})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:a1 spids:[548])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [548]
                )
              ]
              spids: [546]
            )
            (command.Sentence
              child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(2)})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:a2 spids:[569])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [569]
                )
              ]
              spids: [567]
            )
            (command.Case
              to_match: 
                {
                  (DQ 
                    (word_part.BracedVarSub
                      token: <VSub_Name ANON>
                      bracket_op: 
                        (bracket_op.ArrayIndex
                          expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name a0))})
                        )
                      spids: [580 589]
                    )
                  )
                }
              arms: [
                (case_arm
                  pat_list: [{(def) (KW_Bang '!')}]
                  action: [
                    (C {(EVAL)} {(DQ (${ VSub_Name a2))} {(DQ (${ VSub_Name env))})
                    (command.AndOr
                      ops: [Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))})
                        )
                        (command.ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(1)}
                        )
                      ]
                    )
                    (C {(ENV_SET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))} 
                      {(DQ (${ VSub_Name r))}
                    )
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [595 597 654 16777215]
                )
                (case_arm
                  pat_list: [{(let) (Lit_Other '*')}]
                  action: [
                    (command.Sentence
                      child: (C {(ENV)} {(DQ (${ VSub_Name env))})
                      terminator: <Op_Semi ';'>
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:let_env spids:[672])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [672]
                        )
                      ]
                      spids: [670]
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:let_pairs spids:[682])
                          op: Equal
                          rhs: 
                            {
                              (word_part.ArrayLiteralPart
                                words: [
                                  {
                                    (word_part.BracedVarSub
                                      token: <VSub_Name ANON>
                                      bracket_op: 
                                        (bracket_op.ArrayIndex
                                          expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name a1))})
                                        )
                                      spids: [684 693]
                                    )
                                  }
                                ]
                              )
                            }
                          spids: [682]
                        )
                      ]
                      spids: [680]
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:idx spids:[699])
                          op: Equal
                          rhs: {(0)}
                          spids: [699]
                        )
                      ]
                      spids: [697]
                    )
                    (command.WhileUntil
                      keyword: <KW_While while>
                      cond: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.WordTest
                                  w: 
                                    {
                                      (DQ 
                                        (word_part.BracedVarSub
                                          token: <VSub_Name let_pairs>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name idx))})
                                            )
                                          spids: [712 721]
                                        )
                                      )
                                    }
                                )
                            )
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      body: 
                        (command.DoGroup
                          children: [
                            (C {(EVAL)} 
                              {
                                (DQ 
                                  (word_part.BracedVarSub
                                    token: <VSub_Name let_pairs>
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: 
                                          (arith_expr.ArithWord
                                            w: 
                                              {
                                                (word_part.ArithSubPart
                                                  anode: 
                                                    (arith_expr.ArithBinary
                                                      op_id: Arith_Plus
                                                      left: 
                                                        (arith_expr.ArithVarRef
                                                          token: <Lit_ArithVarLike idx>
                                                        )
                                                      right: (arith_expr.ArithWord w:{(Lit_Digits 1)})
                                                    )
                                                  spids: [736 744]
                                                )
                                              }
                                          )
                                      )
                                    spids: [733 746]
                                  )
                                )
                              } {(DQ (${ VSub_Name let_env))}
                            )
                            (C {(ENV_SET)} {(DQ (${ VSub_Name let_env))} 
                              {
                                (DQ 
                                  (word_part.BracedVarSub
                                    token: <VSub_Name let_pairs>
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: (arith_expr.ArithWord w:{(${ VSub_Name idx)})
                                      )
                                    spids: [765 772]
                                  )
                                )
                              } {(DQ (${ VSub_Name r))}
                            )
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:idx spids:[782])
                                  op: Equal
                                  rhs: 
                                    {
                                      (word_part.ArithSubPart
                                        anode: 
                                          (arith_expr.ArithBinary
                                            op_id: Arith_Plus
                                            left: 
                                              (arith_expr.ArithVarRef
                                                token: <Lit_ArithVarLike idx>
                                              )
                                            right: (arith_expr.ArithWord w:{(Lit_Digits 2)})
                                          )
                                        spids: [783 791]
                                      )
                                    }
                                  spids: [782]
                                )
                              ]
                              spids: [782]
                            )
                          ]
                          spids: [727 794]
                        )
                    )
                    (C {(EVAL)} {(DQ (${ VSub_Name a2))} {(DQ (${ VSub_Name let_env))})
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [657 659 814 16777215]
                )
                (case_arm
                  pat_list: [{(Lit_Other '*')}]
                  action: [
                    (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                    (command.AndOr
                      ops: [Op_DAmp Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))})
                        )
                        (command.Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (lhs_expr.LhsName name:r spids:[847])
                              op: Equal
                              rhs: (word.EmptyWord)
                              spids: [847]
                            )
                          ]
                          spids: [847]
                        )
                        (command.ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(1)}
                        )
                      ]
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:el spids:[858])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [858]
                        )
                      ]
                      spids: [856]
                    )
                    (command.Sentence
                      child: (C {(_first)} {(DQ (${ VSub_Name el))})
                      terminator: <Op_Semi ';'>
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:f spids:[877])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [877]
                        )
                      ]
                      spids: [875]
                    )
                    (command.Sentence
                      child: (C {(_rest)} {(DQ (${ VSub_Name el))})
                      terminator: <Op_Semi ';'>
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:args spids:[896])
                          op: Equal
                          rhs: 
                            {
                              (DQ 
                                (word_part.BracedVarSub
                                  token: <VSub_Name ANON>
                                  bracket_op: 
                                    (bracket_op.ArrayIndex
                                      expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name r))})
                                    )
                                  spids: [898 907]
                                )
                              )
                            }
                          spids: [896]
                        )
                      ]
                      spids: [894]
                    )
                    (C {(eval)} {(${ VSub_Name f)} {(${ VSub_Name args)})
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [817 818 928 16777215]
                )
              ]
              spids: [577 592 931]
            )
          ]
          spids: [380]
        )
      spids: [375 379]
    )
    (command.FuncDef
      name: PRINT
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}))
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(_pr_str)} {(DQ (${ VSub_Name __ERROR))} {(yes)})
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[974])
                          op: Equal
                          rhs: {(DQ ('Error: ') (${ VSub_Name r))}
                          spids: [974]
                        )
                      ]
                      spids: [974]
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:__ERROR spids:[983])
                          op: Equal
                          rhs: (word.EmptyWord)
                          spids: [983]
                        )
                      ]
                      spids: [983]
                    )
                  ]
                  spids: [16777215 960]
                )
              ]
              else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})]
              spids: [986 1000]
            )
          ]
          spids: [944]
        )
      spids: [939 943]
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {(ENV)}) terminator:<Op_Semi ';'>)
        (command.Assignment
          keyword: Assign_None
          pairs: [
            (assign_pair
              lhs: (lhs_expr.LhsName name:REPL_ENV spids:[1011])
              op: Equal
              rhs: {(DQ (${ VSub_Name r))}
              spids: [1011]
            )
          ]
          spids: [1011]
        )
      ]
    )
    (command.FuncDef
      name: REP
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:r spids:[1026])
                  op: Equal
                  rhs: (word.EmptyWord)
                  spids: [1026]
                )
              ]
              spids: [1026]
            )
            (C {(READ)} {(DQ (${ VSub_Number 1))})
            (C {(EVAL)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name REPL_ENV))})
            (C {(PRINT)} {(DQ (${ VSub_Name r))})
          ]
          spids: [1023]
        )
      spids: [1018 1022]
    )
    (command.FuncDef
      name: plus
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[1071])
                      op: Equal
                      rhs: 
                        {
                          (word_part.ArithSubPart
                            anode: 
                              (arith_expr.ArithBinary
                                op_id: Arith_Plus
                                left: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))})
                                            )
                                          spids: [1074 1083]
                                        )
                                      }
                                  )
                                right: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))})
                                            )
                                          spids: [1087 1096]
                                        )
                                      }
                                  )
                              )
                            spids: [1072 1099]
                          )
                        }
                      spids: [1071]
                    )
                  ]
                  spids: [1071]
                )
              terminator: <Op_Semi ';'>
            )
            (command.Sentence
              child: (C {(_number)} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [1069]
        )
      spids: [1064 1068]
    )
    (command.FuncDef
      name: minus
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[1120])
                      op: Equal
                      rhs: 
                        {
                          (word_part.ArithSubPart
                            anode: 
                              (arith_expr.ArithBinary
                                op_id: Arith_Minus
                                left: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))})
                                            )
                                          spids: [1123 1132]
                                        )
                                      }
                                  )
                                right: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))})
                                            )
                                          spids: [1136 1145]
                                        )
                                      }
                                  )
                              )
                            spids: [1121 1148]
                          )
                        }
                      spids: [1120]
                    )
                  ]
                  spids: [1120]
                )
              terminator: <Op_Semi ';'>
            )
            (command.Sentence
              child: (C {(_number)} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [1118]
        )
      spids: [1113 1117]
    )
    (command.FuncDef
      name: multiply
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[1169])
                      op: Equal
                      rhs: 
                        {
                          (word_part.ArithSubPart
                            anode: 
                              (arith_expr.ArithBinary
                                op_id: Arith_Star
                                left: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))})
                                            )
                                          spids: [1172 1181]
                                        )
                                      }
                                  )
                                right: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))})
                                            )
                                          spids: [1185 1194]
                                        )
                                      }
                                  )
                              )
                            spids: [1170 1197]
                          )
                        }
                      spids: [1169]
                    )
                  ]
                  spids: [1169]
                )
              terminator: <Op_Semi ';'>
            )
            (command.Sentence
              child: (C {(_number)} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [1167]
        )
      spids: [1162 1166]
    )
    (command.FuncDef
      name: divide
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: 
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r spids:[1218])
                      op: Equal
                      rhs: 
                        {
                          (word_part.ArithSubPart
                            anode: 
                              (arith_expr.ArithBinary
                                op_id: Arith_Slash
                                left: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))})
                                            )
                                          spids: [1221 1230]
                                        )
                                      }
                                  )
                                right: 
                                  (arith_expr.ArithWord
                                    w: 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))})
                                            )
                                          spids: [1234 1243]
                                        )
                                      }
                                  )
                              )
                            spids: [1219 1246]
                          )
                        }
                      spids: [1218]
                    )
                  ]
                  spids: [1218]
                )
              terminator: <Op_Semi ';'>
            )
            (command.Sentence
              child: (C {(_number)} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [1216]
        )
      spids: [1211 1215]
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {(_symbol)} {(DQ ('+'))}) terminator:<Op_Semi ';'>)
        (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(plus)})
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {(_symbol)} {(DQ (-))}) terminator:<Op_Semi ';'>)
        (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(minus)})
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {(_symbol)} {(DQ (__STAR__))}) terminator:<Op_Semi ';'>)
        (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(multiply)})
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {(_symbol)} {(DQ (/))}) terminator:<Op_Semi ';'>)
        (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(divide)})
      ]
    )
    (command.WhileUntil
      keyword: <KW_While while>
      cond: [(command.Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)]
      body: 
        (command.DoGroup
          children: [
            (command.AndOr
              ops: [Op_DPipe]
              children: [
                (C {(READLINE)} {(DQ ('user> '))})
                (command.ControlFlow
                  token: <ControlFlow_Exit exit>
                  arg_word: {(DQ ($ VSub_QMark '$?'))}
                )
              ]
            )
            (command.AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name r))}))
                (C {(REP)} {(DQ (${ VSub_Name r))})
                (C {(echo)} {(DQ (${ VSub_Name r))})
              ]
            )
          ]
          spids: [1362 1410]
        )
    )
  ]
)