(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)
      }
    )
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
          spids: [33 37]
        ) (/core.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:[64])
                      op: Equal
                      rhs: {(DQ (${ VSub_Number 1))}
                      spids: [64]
                    )
                  ]
                  spids: [64]
                )
                (C {(READLINE)})
              ]
            )
            (C {(READ_STR)} {(DQ (${ VSub_Name r))})
          ]
          spids: [49]
        )
      spids: [44 48]
    )
    (command.FuncDef
      name: IS_PAIR
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (C {(_sequential) (Lit_Other '?')} {(DQ (${ VSub_Number 1))})
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(_count)} {(DQ (${ VSub_Number 1))})
                    (command.AndOr
                      ops: [Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: 
                            (bool_expr.BoolBinary
                              op_id: Redir_Great
                              left: {(DQ (${ VSub_Name r))}
                              right: {(0)}
                            )
                        )
                        (command.ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(0)}
                        )
                      ]
                    )
                  ]
                  spids: [16777215 110]
                )
              ]
              spids: [16777215 143]
            )
            (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
          ]
          spids: [95]
        )
      spids: [90 94]
    )
    (command.FuncDef
      name: QUASIQUOTE
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.Pipeline
                          children: [(C {(IS_PAIR)} {(DQ (${ VSub_Number 1))})]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(_symbol)} {(quote)})
                    (C {(_list)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Number 1))})
                    (command.ControlFlow token:<ControlFlow_Return return>)
                  ]
                  spids: [16777215 174]
                )
              ]
              else_action: [
                (command.Sentence
                  child: (C {(_nth)} {(DQ (${ VSub_Number 1))} {(0)})
                  terminator: <Op_Semi ';'>
                )
                (command.Assignment
                  keyword: Assign_Local
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:a0 spids:[216])
                      op: Equal
                      rhs: {(DQ (${ VSub_Name r))}
                      spids: [216]
                    )
                  ]
                  spids: [214]
                )
                (command.If
                  arms: [
                    (if_arm
                      cond: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.BoolBinary
                                  op_id: BoolBinary_GlobDEqual
                                  left: 
                                    {
                                      (DQ 
                                        (word_part.BracedVarSub
                                          token: <VSub_Name ANON>
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name a0))})
                                            )
                                          spids: [229 238]
                                        )
                                      )
                                    }
                                  right: {(DQ (unquote))}
                                )
                            )
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      action: [
                        (C {(_nth)} {(DQ (${ VSub_Number 1))} {(1)})
                        (command.ControlFlow
                          token: <ControlFlow_Return return>
                        )
                      ]
                      spids: [16777215 250]
                    )
                    (if_arm
                      cond: [
                        (command.Sentence
                          child: (C {(IS_PAIR)} {(DQ (${ VSub_Name a0))})
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      action: [
                        (command.Sentence
                          child: (C {(_nth)} {(DQ (${ VSub_Name a0))} {(0)})
                          terminator: <Op_Semi ';'>
                        )
                        (command.Assignment
                          keyword: Assign_Local
                          pairs: [
                            (assign_pair
                              lhs: (lhs_expr.LhsName name:a00 spids:[294])
                              op: Equal
                              rhs: {(DQ (${ VSub_Name r))}
                              spids: [294]
                            )
                          ]
                          spids: [292]
                        )
                        (command.If
                          arms: [
                            (if_arm
                              cond: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      expr: 
                                        (bool_expr.BoolBinary
                                          op_id: BoolBinary_GlobDEqual
                                          left: 
                                            {
                                              (DQ 
                                                (word_part.BracedVarSub
                                                  token: <VSub_Name ANON>
                                                  bracket_op: 
                                                    (bracket_op.ArrayIndex
                                                      expr: 
                                                        (arith_expr.ArithWord
                                                          w: {(DQ (${ VSub_Name a00))}
                                                        )
                                                    )
                                                  spids: [307 316]
                                                )
                                              )
                                            }
                                          right: {(DQ (splice-unquote))}
                                        )
                                    )
                                  terminator: <Op_Semi ';'>
                                )
                              ]
                              action: [
                                (command.Sentence
                                  child: (C {(_symbol)} {(concat)})
                                  terminator: <Op_Semi ';'>
                                )
                                (command.Assignment
                                  keyword: Assign_Local
                                  pairs: [
                                    (assign_pair
                                      lhs: (lhs_expr.LhsName name:a spids:[338])
                                      op: Equal
                                      rhs: {(DQ (${ VSub_Name r))}
                                      spids: [338]
                                    )
                                  ]
                                  spids: [336]
                                )
                                (command.Sentence
                                  child: (C {(_nth)} {(DQ (${ VSub_Name a0))} {(1)})
                                  terminator: <Op_Semi ';'>
                                )
                                (command.Assignment
                                  keyword: Assign_Local
                                  pairs: [
                                    (assign_pair
                                      lhs: (lhs_expr.LhsName name:b spids:[359])
                                      op: Equal
                                      rhs: {(DQ (${ VSub_Name r))}
                                      spids: [359]
                                    )
                                  ]
                                  spids: [357]
                                )
                                (C {(_rest)} {(DQ (${ VSub_Number 1))})
                                (command.Sentence
                                  child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name r))})
                                  terminator: <Op_Semi ';'>
                                )
                                (command.Assignment
                                  keyword: Assign_Local
                                  pairs: [
                                    (assign_pair
                                      lhs: (lhs_expr.LhsName name:c spids:[387])
                                      op: Equal
                                      rhs: {(DQ (${ VSub_Name r))}
                                      spids: [387]
                                    )
                                  ]
                                  spids: [385]
                                )
                                (C {(_list)} {(DQ (${ VSub_Name a))} {(DQ (${ VSub_Name b))} 
                                  {(DQ (${ VSub_Name c))}
                                )
                                (command.ControlFlow
                                  token: <ControlFlow_Return return>
                                )
                              ]
                              spids: [16777215 328]
                            )
                          ]
                          spids: [16777215 419]
                        )
                      ]
                      spids: [267 278]
                    )
                  ]
                  spids: [16777215 422]
                )
              ]
              spids: [200 425]
            )
            (command.Sentence child:(C {(_symbol)} {(cons)}) terminator:<Op_Semi ';'>)
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:a spids:[435])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [435]
                )
              ]
              spids: [433]
            )
            (command.Sentence
              child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name a0))})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:b spids:[454])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [454]
                )
              ]
              spids: [452]
            )
            (C {(_rest)} {(DQ (${ VSub_Number 1))})
            (command.Sentence
              child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:c spids:[482])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [482]
                )
              ]
              spids: [480]
            )
            (C {(_list)} {(DQ (${ VSub_Name a))} {(DQ (${ VSub_Name b))} {(DQ (${ VSub_Name c))})
            (command.ControlFlow token:<ControlFlow_Return return>)
          ]
          spids: [158]
        )
      spids: [153 157]
    )
    (command.FuncDef
      name: IS_MACRO_CALL
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.Pipeline
                          children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Number 1))})]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (command.Sentence
                      child: (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  spids: [16777215 538]
                )
              ]
              spids: [16777215 545]
            )
            (command.Sentence
              child: (C {(_nth)} {(DQ (${ VSub_Number 1))} {(0)})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:a0 spids:[561])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [561]
                )
              ]
              spids: [559]
            )
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (C {(_symbol) (Lit_Other '?')} {(DQ (${ VSub_Name a0))})
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(ENV_FIND)} {(DQ (${ VSub_Number 2))} {(DQ (${ VSub_Name a0))})
                    (command.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name r))})
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(ENV_GET)} {(DQ (${ VSub_Number 2))} {(DQ (${ VSub_Name a0))})
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (word_part.BracedVarSub
                                    token: <VSub_Name ANON>
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: 
                                          (arith_expr.ArithWord
                                            w: {(DQ (${ VSub_Name r) (_ismacro_))}
                                          )
                                      )
                                    spids: [633 643]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                              arg_word: {($ VSub_QMark '$?')}
                            )
                          ]
                          spids: [16777215 612]
                        )
                      ]
                      spids: [16777215 654]
                    )
                  ]
                  spids: [16777215 581]
                )
              ]
              spids: [16777215 657]
            )
            (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
          ]
          spids: [521]
        )
      spids: [516 520]
    )
    (command.FuncDef
      name: MACROEXPAND
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast spids:[677])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                  spids: [677]
                )
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env spids:[684])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                  spids: [684]
                )
              ]
              spids: [675]
            )
            (command.WhileUntil
              keyword: <KW_While while>
              cond: [
                (command.Sentence
                  child: (C {(IS_MACRO_CALL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                  terminator: <Op_Semi ';'>
                )
              ]
              body: 
                (command.DoGroup
                  children: [
                    (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:[725])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [725]
                        )
                      ]
                      spids: [723]
                    )
                    (command.Sentence
                      child: (C {(ENV_GET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a0))})
                      terminator: <Op_Semi ';'>
                    )
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:mac spids:[750])
                          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: [752 761]
                                )
                              )
                            }
                          spids: [750]
                        )
                      ]
                      spids: [748]
                    )
                    (C {(_rest)} {(DQ (${ VSub_Name ast))})
                    (C 
                      {
                        (word_part.BracedVarSub
                          token: <VSub_Name mac>
                          suffix_op: (suffix_op.StringUnary op_id:VOp1_DPercent arg_word:{('@*')})
                          spids: [774 778]
                        )
                      } 
                      {
                        (word_part.BracedVarSub
                          token: <VSub_Name ANON>
                          bracket_op: 
                            (bracket_op.ArrayIndex
                              expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name r))})
                            )
                          spids: [780 789]
                        )
                      }
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:ast spids:[792])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [792]
                        )
                      ]
                      spids: [792]
                    )
                  ]
                  spids: [709 800]
                )
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:r spids:[803])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name ast))}
                  spids: [803]
                )
              ]
              spids: [803]
            )
          ]
          spids: [672]
        )
      spids: [667 671]
    )
    (command.FuncDef
      name: EVAL_AST
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast spids:[824])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                  spids: [824]
                )
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env spids:[831])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                  spids: [831]
                )
              ]
              spids: [822]
            )
            (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:[854])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [854]
                )
              ]
              spids: [852]
            )
            (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: [873 874 894 16777215]
                )
                (case_arm
                  pat_list: [{(list)}]
                  action: [
                    (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ VSub_Name ast))} 
                      {(DQ (${ VSub_Name env))}
                    )
                  ]
                  spids: [897 898 919 16777215]
                )
                (case_arm
                  pat_list: [{(vector)}]
                  action: [
                    (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ VSub_Name ast))} 
                      {(DQ (${ VSub_Name env))}
                    )
                  ]
                  spids: [922 923 944 16777215]
                )
                (case_arm
                  pat_list: [{(hash_map)}]
                  action: [
                    (command.Assignment
                      keyword: Assign_Local
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:res spids:[953])
                          op: Equal
                          rhs: {(DQ )}
                          spids: [953]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:key spids:[957])
                          op: Equal
                          rhs: (word.EmptyWord)
                          spids: [957]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:val spids:[959])
                          op: Equal
                          rhs: {(DQ )}
                          spids: [959]
                        )
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:hm spids:[963])
                          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: [965 974]
                                )
                              )
                            }
                          spids: [963]
                        )
                      ]
                      spids: [951]
                    )
                    (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:[983])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [983]
                        )
                      ]
                      spids: [981]
                    )
                    (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: [1017 1076]
                        )
                      spids: [1011 1015]
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[1079])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name new_hm))}
                          spids: [1079]
                        )
                      ]
                      spids: [1079]
                    )
                  ]
                  spids: [947 948 1086 16777215]
                )
                (case_arm
                  pat_list: [{(Lit_Other '*')}]
                  action: [
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[1093])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name ast))}
                          spids: [1093]
                        )
                      ]
                      spids: [1093]
                    )
                  ]
                  spids: [1089 1090 1100 16777215]
                )
              ]
              spids: [862 870 1103]
            )
          ]
          spids: [819]
        )
      spids: [814 818]
    )
    (command.FuncDef
      name: EVAL
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast spids:[1118])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                  spids: [1118]
                )
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env spids:[1125])
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                  spids: [1125]
                )
              ]
              spids: [1116]
            )
            (command.WhileUntil
              keyword: <KW_While while>
              cond: [(command.Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)]
              body: 
                (command.DoGroup
                  children: [
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r spids:[1141])
                          op: Equal
                          rhs: (word.EmptyWord)
                          spids: [1141]
                        )
                      ]
                      spids: [1141]
                    )
                    (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.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.Pipeline
                                  children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Name ast))})]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [16777215 1179]
                        )
                      ]
                      spids: [16777215 1200]
                    )
                    (C {(MACROEXPAND)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:ast spids:[1223])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [1223]
                        )
                      ]
                      spids: [1223]
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.Pipeline
                                  children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Name ast))})]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))})
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [16777215 1245]
                        )
                      ]
                      spids: [16777215 1266]
                    )
                    (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:[1280])
                              op: Equal
                              rhs: {(DQ (${ VSub_Name ast))}
                              spids: [1280]
                            )
                          ]
                          spids: [1280]
                        )
                        (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:[1306])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [1306]
                        )
                      ]
                      spids: [1304]
                    )
                    (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:[1327])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [1327]
                        )
                      ]
                      spids: [1325]
                    )
                    (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:[1348])
                          op: Equal
                          rhs: {(DQ (${ VSub_Name r))}
                          spids: [1348]
                        )
                      ]
                      spids: [1346]
                    )
                    (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: [1359 1368]
                            )
                          )
                        }
                      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: [1374 1376 1433 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:[1451])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name r))}
                                  spids: [1451]
                                )
                              ]
                              spids: [1449]
                            )
                            (command.Assignment
                              keyword: Assign_Local
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:let_pairs spids:[1461])
                                  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: [1463 1472]
                                            )
                                          }
                                        ]
                                      )
                                    }
                                  spids: [1461]
                                )
                              ]
                              spids: [1459]
                            )
                            (command.Assignment
                              keyword: Assign_Local
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:idx spids:[1478])
                                  op: Equal
                                  rhs: {(0)}
                                  spids: [1478]
                                )
                              ]
                              spids: [1476]
                            )
                            (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: [1491 1500]
                                                )
                                              )
                                            }
                                        )
                                    )
                                  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: [1515 1523]
                                                        )
                                                      }
                                                  )
                                              )
                                            spids: [1512 1525]
                                          )
                                        )
                                      } {(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: [1544 1551]
                                          )
                                        )
                                      } {(DQ (${ VSub_Name r))}
                                    )
                                    (command.Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:idx spids:[1561])
                                          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: [1562 1570]
                                              )
                                            }
                                          spids: [1561]
                                        )
                                      ]
                                      spids: [1561]
                                    )
                                  ]
                                  spids: [1506 1573]
                                )
                            )
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:ast spids:[1576])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name a2))}
                                  spids: [1576]
                                )
                              ]
                              spids: [1576]
                            )
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:env spids:[1584])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name let_env))}
                                  spids: [1584]
                                )
                              ]
                              spids: [1584]
                            )
                          ]
                          spids: [1436 1438 1596 16777215]
                        )
                        (case_arm
                          pat_list: [{(quote)}]
                          action: [
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:r spids:[1603])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name a1))}
                                  spids: [1603]
                                )
                              ]
                              spids: [1603]
                            )
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [1599 1600 1613 16777215]
                        )
                        (case_arm
                          pat_list: [{(quasiquote)}]
                          action: [
                            (C {(QUASIQUOTE)} {(DQ (${ VSub_Name a1))})
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:ast spids:[1629])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name r))}
                                  spids: [1629]
                                )
                              ]
                              spids: [1629]
                            )
                          ]
                          spids: [1616 1617 1641 16777215]
                        )
                        (case_arm
                          pat_list: [{(defmacro) (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)}
                                )
                              ]
                            )
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: 
                                    (lhs_expr.LhsIndexedName
                                      name: ANON
                                      index: 
                                        (arith_expr.ArithWord
                                          w: {(DQ (${ VSub_Name r) (_ismacro_))}
                                        )
                                      spids: [1681]
                                    )
                                  op: Equal
                                  rhs: {(DQ (yes))}
                                  spids: [1681]
                                )
                              ]
                              spids: [1681]
                            )
                            (C {(ENV_SET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))} 
                              {(DQ (${ VSub_Name r))}
                            )
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [1644 1646 1717 16777215]
                        )
                        (case_arm
                          pat_list: [{(macroexpand)}]
                          action: [
                            (C {(MACROEXPAND)} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name env))})
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [1720 1721 1741 16777215]
                        )
                        (case_arm
                          pat_list: [{(try) (Lit_Other '*')}]
                          action: [
                            (C {(EVAL)} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name env))})
                            (command.AndOr
                              ops: [Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: 
                                    (bool_expr.BoolUnary
                                      op_id: BoolUnary_z
                                      child: {(DQ (${ VSub_Name __ERROR))}
                                    )
                                )
                                (command.ControlFlow
                                  token: <ControlFlow_Return return>
                                )
                              ]
                            )
                            (command.Sentence
                              child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(0)})
                              terminator: <Op_Semi ';'>
                            )
                            (command.Assignment
                              keyword: Assign_Local
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:a20 spids:[1793])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name r))}
                                  spids: [1793]
                                )
                              ]
                              spids: [1791]
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (C {(Lit_Other '[')} 
                                          {
                                            (DQ 
                                              (word_part.BracedVarSub
                                                token: <VSub_Name ANON>
                                                bracket_op: 
                                                  (bracket_op.ArrayIndex
                                                    expr: 
                                                      (arith_expr.ArithWord
                                                        w: {(DQ (${ VSub_Name a20))}
                                                      )
                                                  )
                                                spids: [1806 1815]
                                              )
                                            )
                                          } {(Lit_Other '=') (Lit_Other '=')} {(DQ (catch__STAR__))} {(Lit_Other ']')}
                                        )
                                      terminator: <Op_Semi ';'>
                                    )
                                  ]
                                  action: [
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(1)})
                                      terminator: <Op_Semi ';'>
                                    )
                                    (command.Assignment
                                      keyword: Assign_Local
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:a21 spids:[1844])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [1844]
                                        )
                                      ]
                                      spids: [1842]
                                    )
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(2)})
                                      terminator: <Op_Semi ';'>
                                    )
                                    (command.Assignment
                                      keyword: Assign_Local
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:a22 spids:[1865])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [1865]
                                        )
                                      ]
                                      spids: [1863]
                                    )
                                    (command.Sentence
                                      child: (C {(_list)} {(DQ (${ VSub_Name a21))})
                                      terminator: <Op_Semi ';'>
                                    )
                                    (command.Assignment
                                      keyword: Assign_Local
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:binds spids:[1884])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [1884]
                                        )
                                      ]
                                      spids: [1882]
                                    )
                                    (C {(ENV)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name binds))} 
                                      {(DQ (${ VSub_Name __ERROR))}
                                    )
                                    (command.Assignment
                                      keyword: Assign_Local
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:try_env spids:[1915])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [1915]
                                        )
                                      ]
                                      spids: [1913]
                                    )
                                    (command.Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:__ERROR spids:[1923])
                                          op: Equal
                                          rhs: (word.EmptyWord)
                                          spids: [1923]
                                        )
                                      ]
                                      spids: [1923]
                                    )
                                    (C {(EVAL)} {(DQ (${ VSub_Name a22))} {(DQ (${ VSub_Name try_env))})
                                  ]
                                  spids: [16777215 1828]
                                )
                              ]
                              spids: [16777215 1941]
                            )
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [1744 1746 1949 16777215]
                        )
                        (case_arm
                          pat_list: [{(KW_Do do)}]
                          action: [
                            (C {(_count)} {(DQ (${ VSub_Name ast))})
                            (C {(_slice)} {(DQ (${ VSub_Name ast))} {(1)} 
                              {
                                (word_part.ArithSubPart
                                  anode: 
                                    (arith_expr.ArithBinary
                                      op_id: Arith_Minus
                                      left: (arith_expr.ArithWord w:{(${ VSub_Name r)})
                                      right: (arith_expr.ArithWord w:{(Lit_Digits 2)})
                                    )
                                  spids: [1974 1985]
                                )
                              }
                            )
                            (C {(EVAL_AST)} {(DQ (${ VSub_Name r))} {(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:[2015])
                                      op: Equal
                                      rhs: (word.EmptyWord)
                                      spids: [2015]
                                    )
                                  ]
                                  spids: [2015]
                                )
                                (command.ControlFlow
                                  token: <ControlFlow_Return return>
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (C {(_last)} {(DQ (${ VSub_Name ast))})
                            (command.Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:ast spids:[2033])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name r))}
                                  spids: [2033]
                                )
                              ]
                              spids: [2033]
                            )
                          ]
                          spids: [1952 1953 2045 16777215]
                        )
                        (case_arm
                          pat_list: [{(KW_If if)}]
                          action: [
                            (C {(EVAL)} {(DQ (${ VSub_Name a1))} {(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)}
                                )
                              ]
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.LogicalOr
                                              left: 
                                                (bool_expr.BoolBinary
                                                  op_id: BoolBinary_GlobDEqual
                                                  left: {(DQ (${ VSub_Name r))}
                                                  right: {(DQ (${ VSub_Name __false))}
                                                )
                                              right: 
                                                (bool_expr.BoolBinary
                                                  op_id: BoolBinary_GlobDEqual
                                                  left: {(DQ (${ VSub_Name r))}
                                                  right: {(DQ (${ VSub_Name __nil))}
                                                )
                                            )
                                        )
                                      terminator: <Op_Semi ';'>
                                    )
                                  ]
                                  action: [
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(3)})
                                      terminator: <Op_Semi ';'>
                                    )
                                    (command.Assignment
                                      keyword: Assign_Local
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:a3 spids:[2140])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [2140]
                                        )
                                      ]
                                      spids: [2138]
                                    )
                                    (command.If
                                      arms: [
                                        (if_arm
                                          cond: [
                                            (command.Sentence
                                              child: 
                                                (command.DBracket
                                                  expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name a3))})
                                                )
                                              terminator: <Op_Semi ';'>
                                            )
                                          ]
                                          action: [
                                            (command.Assignment
                                              keyword: Assign_None
                                              pairs: [
                                                (assign_pair
                                                  lhs: (lhs_expr.LhsName name:ast spids:[2164])
                                                  op: Equal
                                                  rhs: {(DQ (${ VSub_Name a3))}
                                                  spids: [2164]
                                                )
                                              ]
                                              spids: [2164]
                                            )
                                          ]
                                          spids: [16777215 2161]
                                        )
                                      ]
                                      else_action: [
                                        (command.Assignment
                                          keyword: Assign_None
                                          pairs: [
                                            (assign_pair
                                              lhs: (lhs_expr.LhsName name:r spids:[2175])
                                              op: Equal
                                              rhs: {(DQ (${ VSub_Name __nil))}
                                              spids: [2175]
                                            )
                                          ]
                                          spids: [2175]
                                        )
                                        (command.ControlFlow
                                          token: <ControlFlow_Return return>
                                        )
                                      ]
                                      spids: [2172 2186]
                                    )
                                  ]
                                  spids: [16777215 2120]
                                )
                              ]
                              else_action: [
                                (command.Assignment
                                  keyword: Assign_None
                                  pairs: [
                                    (assign_pair
                                      lhs: (lhs_expr.LhsName name:ast spids:[2196])
                                      op: Equal
                                      rhs: {(DQ (${ VSub_Name a2))}
                                      spids: [2196]
                                    )
                                  ]
                                  spids: [2196]
                                )
                              ]
                              spids: [2189 2204]
                            )
                          ]
                          spids: [2048 2049 2211 16777215]
                        )
                        (case_arm
                          pat_list: [{(fn) (Lit_Other '*')}]
                          action: [
                            (C {(_function)} 
                              {
                                (DQ ('ENV ') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) (${ VSub_Name env) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) (${ VSub_Name a1) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{@}') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) ('; ') ('                         EVAL ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) 
                                  (${ VSub_Name a2) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{r}') 
                                  (word_part.EscapedLiteralPart
                                    token: <Lit_EscapedChar '\\"'>
                                  )
                                )
                              } {(DQ (${ VSub_Name a2))} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))}
                            )
                            (command.ControlFlow
                              token: <ControlFlow_Return return>
                            )
                          ]
                          spids: [2214 2216 2276 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:[2309])
                                      op: Equal
                                      rhs: (word.EmptyWord)
                                      spids: [2309]
                                    )
                                  ]
                                  spids: [2309]
                                )
                                (command.ControlFlow
                                  token: <ControlFlow_Return return>
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (command.Assignment
                              keyword: Assign_Local
                              pairs: [
                                (assign_pair
                                  lhs: (lhs_expr.LhsName name:el spids:[2320])
                                  op: Equal
                                  rhs: {(DQ (${ VSub_Name r))}
                                  spids: [2320]
                                )
                              ]
                              spids: [2318]
                            )
                            (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:[2339])
                                  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: [2341 2350]
                                        )
                                      )
                                    }
                                  spids: [2339]
                                )
                              ]
                              spids: [2337]
                            )
                            (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:[2365])
                                  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: [2367 2376]
                                        )
                                      )
                                    }
                                  spids: [2365]
                                )
                              ]
                              spids: [2363]
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.BoolBinary
                                              op_id: BoolBinary_GlobNEqual
                                              left: 
                                                {
                                                  (DQ 
                                                    (word_part.BracedVarSub
                                                      token: <VSub_Name f>
                                                      suffix_op: 
                                                        (suffix_op.PatSub
                                                          pat: {('@')}
                                                          replace: {(' ')}
                                                          replace_mode: Lit_Slash
                                                          spids: [2391]
                                                        )
                                                      spids: [2389 2396]
                                                    )
                                                  )
                                                }
                                              right: {(DQ (${ VSub_Name f))}
                                            )
                                        )
                                      terminator: <Op_Semi ';'>
                                    )
                                  ]
                                  action: [
                                    (C {(set)} {(--)} 
                                      {
                                        (word_part.BracedVarSub
                                          token: <VSub_Name f>
                                          suffix_op: 
                                            (suffix_op.PatSub
                                              pat: {('@')}
                                              replace: {(' ')}
                                              replace_mode: Lit_Slash
                                              spids: [2419]
                                            )
                                          spids: [2417 2424]
                                        )
                                      }
                                    )
                                    (command.Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:ast spids:[2427])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Number 2))}
                                          spids: [2427]
                                        )
                                      ]
                                      spids: [2427]
                                    )
                                    (C {(ENV)} {(DQ (${ VSub_Number 3))} {(DQ (${ VSub_Number 4))} 
                                      {(${ VSub_Name args)}
                                    )
                                    (command.Assignment
                                      keyword: Assign_None
                                      pairs: [
                                        (assign_pair
                                          lhs: (lhs_expr.LhsName name:env spids:[2454])
                                          op: Equal
                                          rhs: {(DQ (${ VSub_Name r))}
                                          spids: [2454]
                                        )
                                      ]
                                      spids: [2454]
                                    )
                                  ]
                                  spids: [16777215 2410]
                                )
                              ]
                              else_action: [
                                (C {(eval)} 
                                  {
                                    (word_part.BracedVarSub
                                      token: <VSub_Name f>
                                      suffix_op: 
                                        (suffix_op.StringUnary
                                          op_id: VOp1_DPercent
                                          arg_word: {('@*')}
                                        )
                                      spids: [2467 2471]
                                    )
                                  } {(${ VSub_Name args)}
                                )
                                (command.ControlFlow
                                  token: <ControlFlow_Return return>
                                )
                              ]
                              spids: [2462 2481]
                            )
                          ]
                          spids: [2279 2280 2488 16777215]
                        )
                      ]
                      spids: [1356 1371 2491]
                    )
                  ]
                  spids: [1138 2494]
                )
            )
          ]
          spids: [1113]
        )
      spids: [1108 1112]
    )
    (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:[2537])
                          op: Equal
                          rhs: {(DQ ('Error: ') (${ VSub_Name r))}
                          spids: [2537]
                        )
                      ]
                      spids: [2537]
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:__ERROR spids:[2546])
                          op: Equal
                          rhs: (word.EmptyWord)
                          spids: [2546]
                        )
                      ]
                      spids: [2546]
                    )
                  ]
                  spids: [16777215 2523]
                )
              ]
              else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})]
              spids: [2549 2563]
            )
          ]
          spids: [2507]
        )
      spids: [2502 2506]
    )
    (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:[2574])
              op: Equal
              rhs: {(DQ (${ VSub_Name r))}
              spids: [2574]
            )
          ]
          spids: [2574]
        )
      ]
    )
    (command.FuncDef
      name: REP
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:r spids:[2589])
                  op: Equal
                  rhs: (word.EmptyWord)
                  spids: [2589]
                )
              ]
              spids: [2589]
            )
            (C {(READ)} {(DQ (${ VSub_Number 1))})
            (C {(EVAL)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name REPL_ENV))})
            (C {(PRINT)} {(DQ (${ VSub_Name r))})
          ]
          spids: [2586]
        )
      spids: [2581 2585]
    )
    (command.FuncDef
      name: _fref
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: (C {(_symbol)} {(DQ (${ VSub_Number 1))})
              terminator: <Op_Semi ';'>
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:sym spids:[2649])
                  op: Equal
                  rhs: {(DQ (${ VSub_Name r))}
                  spids: [2649]
                )
              ]
              spids: [2647]
            )
            (C {(_function)} 
              {
                (DQ (${ VSub_Number 2) (' ') 
                  (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{@}') 
                  (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>)
                )
              }
            )
            (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name sym))} 
              {(DQ (${ VSub_Name r))}
            )
          ]
          spids: [2635]
        )
      spids: [2630 2634]
    )
    (command.ForEach
      iter_name: n
      iter_words: [
        {
          (DQ 
            (word_part.BracedVarSub
              token: <VSub_Name core_ns>
              prefix_op: VSub_Bang
              bracket_op: (bracket_op.WholeArray op_id:Lit_At)
              spids: [2700 2706]
            )
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.Sentence
              child: 
                (C {(_fref)} {(DQ (${ VSub_Name n))} 
                  {
                    (DQ 
                      (word_part.BracedVarSub
                        token: <VSub_Name core_ns>
                        bracket_op: 
                          (bracket_op.ArrayIndex
                            expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name n))})
                          )
                        spids: [2721 2730]
                      )
                    )
                  }
                )
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [2710 2734]
        )
      spids: [2698 2708]
    )
    (command.FuncDef
      name: _eval
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: (C {(EVAL)} {(DQ (${ VSub_Number 1))} {(DQ (${ VSub_Name REPL_ENV))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [2741]
        )
      spids: [2736 2740]
    )
    (C {(_fref)} {(DQ (eval))} {(_eval)})
    (command.CommandList
      children: [
        (command.Sentence child:(C {(_list)}) terminator:<Op_Semi ';'>)
        (command.Assignment
          keyword: Assign_None
          pairs: [
            (assign_pair
              lhs: (lhs_expr.LhsName name:argv spids:[2771])
              op: Equal
              rhs: {(DQ (${ VSub_Name r))}
              spids: [2771]
            )
          ]
          spids: [2771]
        )
      ]
    )
    (command.ForEach
      iter_name: _arg
      iter_words: [
        {
          (DQ 
            (word_part.BracedVarSub
              token: <VSub_At '@'>
              suffix_op: (suffix_op.Slice begin:(arith_expr.ArithWord w:{(Lit_Digits 2)}))
              spids: [2785 2789]
            )
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.Sentence
              child: (C {(_string)} {(DQ (${ VSub_Name _arg))})
              terminator: <Op_Semi ';'>
            )
            (command.Sentence
              child: (C {(_conj) (KW_Bang '!')} {(DQ (${ VSub_Name argv))} {(DQ (${ VSub_Name r))})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [2793 2820]
        )
      spids: [2783 2791]
    )
    (C {(_symbol)} {(DQ (__STAR__ARGV__STAR__))})
    (command.Sentence
      child: 
        (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name argv))})
      terminator: <Op_Semi ';'>
    )
    (C {(REP)} {(DQ ('(def! not (fn* (a) (if a false true)))'))})
    (C {(REP)} 
      {
        (DQ ('(def! load-file (fn* (f) (eval (read-string (str ') 
          (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ('(do ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' (slurp f) ') 
          (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')))))')
        )
      }
    )
    (C {(REP)} 
      {
        (DQ 
          (
"(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> (count xs) 1) (nth xs 1) (throw "
          ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ('odd number of forms to cond') 
          (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (")) (cons 'cond (rest (rest xs)))))))")
        )
      }
    )
    (C {(REP)} 
      {
        (DQ ('(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) ') 
          (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ('(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))')
        )
      }
    )
    (command.If
      arms: [
        (if_arm
          cond: [
            (command.Sentence
              child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Number 1))}))
              terminator: <Op_Semi ';'>
            )
          ]
          action: [
            (C {(REP)} 
              {
                (DQ ('(load-file ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) 
                  (${ VSub_Number 1) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')')
                )
              }
            )
            (command.ControlFlow token:<ControlFlow_Exit exit> arg_word:{(0)})
          ]
          spids: [16777215 2908]
        )
      ]
      spids: [16777215 2928]
    )
    (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: [2940 2988]
        )
    )
  ]
)