(command.CommandList
  children: [
    (C {(source)} 
      {
        (command_sub
          left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:6)
          command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})])
        ) (/reader.sh)
      }
    )
    (C {(source)} 
      {
        (command_sub
          left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:15)
          command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})])
        ) (/printer.sh)
      }
    )
    (C {(source)} 
      {
        (command_sub
          left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:24)
          command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})])
        ) (/env.sh)
      }
    )
    (C {(source)} 
      {
        (command_sub
          left_token: (Token id:Id.Left_DollarParen val:'$(' span_id:33)
          command_list: (command.CommandList children:[(C {(dirname)} {($ Id.VSub_Number '$0')})])
        ) (/core.sh)
      }
    )
    (command.ShFunction
      name: READ
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DPipe]
              children: [
                (C {(Id.Lit_LBracket '[')} {(DQ (${ Id.VSub_Number 1))} {(Id.Lit_RBracket ']')})
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Number 1))}
                      spids: [64]
                    )
                  ]
                )
                (C {(READLINE)})
              ]
            )
            (C {(READ_STR)} {(DQ (${ Id.VSub_Name r))})
          ]
        )
    )
    (command.ShFunction
      name: IS_PAIR
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (C {(_sequential) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Number 1))})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:108)
                    )
                  ]
                  action: [
                    (C {(_count)} {(DQ (${ Id.VSub_Number 1))})
                    (command.AndOr
                      ops: [Id.Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: 
                            (bool_expr.Binary
                              op_id: Id.Op_Great
                              left: {(DQ (${ Id.VSub_Name r))}
                              right: {(0)}
                            )
                        )
                        (command.ControlFlow
                          token: (Token id:Id.ControlFlow_Return val:return span_id:138)
                          arg_word: {(0)}
                        )
                      ]
                    )
                  ]
                  spids: [98 110]
                )
              ]
            )
            (command.ControlFlow
              token: (Token id:Id.ControlFlow_Return val:return span_id:146)
              arg_word: {(1)}
            )
          ]
        )
    )
    (command.ShFunction
      name: QUASIQUOTE
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.Pipeline
                          children: [(C {(IS_PAIR)} {(DQ (${ Id.VSub_Number 1))})]
                          negated: T
                        )
                      terminator: (Token id:Id.Op_Semi val:';' span_id:172)
                    )
                  ]
                  action: [
                    (C {(_symbol)} {(quote)})
                    (C {(_list)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Number 1))})
                    (command.ControlFlow
                      token: (Token id:Id.ControlFlow_Return val:return span_id:197)
                    )
                  ]
                  spids: [161 174]
                )
              ]
              else_action: [
                (command.Sentence
                  child: (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(0)})
                  terminator: (Token id:Id.Op_Semi val:';' span_id:212)
                )
                (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))})
                (command.If
                  arms: [
                    (if_arm
                      cond: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.BoolBinary_GlobDEqual
                                  left: 
                                    {
                                      (DQ 
                                        (braced_var_sub
                                          token: (Token id:Id.VSub_Name val:ANON span_id:230)
                                          bracket_op: 
                                            (bracket_op.ArrayIndex
                                              expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a0))})
                                            )
                                        )
                                      )
                                    }
                                  right: {(DQ (unquote))}
                                )
                            )
                          terminator: (Token id:Id.Op_Semi val:';' span_id:248)
                        )
                      ]
                      action: [
                        (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(1)})
                        (command.ControlFlow
                          token: (Token id:Id.ControlFlow_Return val:return span_id:264)
                        )
                      ]
                      spids: [224 250]
                    )
                    (if_arm
                      cond: [
                        (command.Sentence
                          child: (C {(IS_PAIR)} {(DQ (${ Id.VSub_Name a0))})
                          terminator: (Token id:Id.Op_Semi val:';' span_id:276)
                        )
                      ]
                      action: [
                        (command.Sentence
                          child: (C {(_nth)} {(DQ (${ Id.VSub_Name a0))} {(0)})
                          terminator: (Token id:Id.Op_Semi val:';' span_id:290)
                        )
                        (C {(local)} {(Id.Lit_VarLike 'a00=') (DQ (${ Id.VSub_Name r))})
                        (command.If
                          arms: [
                            (if_arm
                              cond: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      expr: 
                                        (bool_expr.Binary
                                          op_id: Id.BoolBinary_GlobDEqual
                                          left: 
                                            {
                                              (DQ 
                                                (braced_var_sub
                                                  token: (Token id:Id.VSub_Name val:ANON span_id:308)
                                                  bracket_op: 
                                                    (bracket_op.ArrayIndex
                                                      expr: 
                                                        (arith_expr.ArithWord
                                                          w: {(DQ (${ Id.VSub_Name a00))}
                                                        )
                                                    )
                                                )
                                              )
                                            }
                                          right: {(DQ (splice-unquote))}
                                        )
                                    )
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:326)
                                )
                              ]
                              action: [
                                (command.Sentence
                                  child: (C {(_symbol)} {(concat)})
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:334)
                                )
                                (C {(local)} {(Id.Lit_VarLike 'a=') (DQ (${ Id.VSub_Name r))})
                                (command.Sentence
                                  child: (C {(_nth)} {(DQ (${ Id.VSub_Name a0))} {(1)})
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:355)
                                )
                                (C {(local)} {(Id.Lit_VarLike 'b=') (DQ (${ Id.VSub_Name r))})
                                (C {(_rest)} {(DQ (${ Id.VSub_Number 1))})
                                (command.Sentence
                                  child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name r))})
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:383)
                                )
                                (C {(local)} {(Id.Lit_VarLike 'c=') (DQ (${ Id.VSub_Name r))})
                                (C {(_list)} {(DQ (${ Id.VSub_Name a))} {(DQ (${ Id.VSub_Name b))} 
                                  {(DQ (${ Id.VSub_Name c))}
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:416)
                                )
                              ]
                              spids: [302 328]
                            )
                          ]
                        )
                      ]
                      spids: [267 278]
                    )
                  ]
                )
              ]
            )
            (command.Sentence
              child: (C {(_symbol)} {(cons)})
              terminator: (Token id:Id.Op_Semi val:';' span_id:431)
            )
            (C {(local)} {(Id.Lit_VarLike 'a=') (DQ (${ Id.VSub_Name r))})
            (command.Sentence
              child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name a0))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:450)
            )
            (C {(local)} {(Id.Lit_VarLike 'b=') (DQ (${ Id.VSub_Name r))})
            (C {(_rest)} {(DQ (${ Id.VSub_Number 1))})
            (command.Sentence
              child: (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name r))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:478)
            )
            (C {(local)} {(Id.Lit_VarLike 'c=') (DQ (${ Id.VSub_Name r))})
            (C {(_list)} {(DQ (${ Id.VSub_Name a))} {(DQ (${ Id.VSub_Name b))} {(DQ (${ Id.VSub_Name c))})
            (command.ControlFlow
              token: (Token id:Id.ControlFlow_Return val:return span_id:511)
            )
          ]
        )
    )
    (command.ShFunction
      name: IS_MACRO_CALL
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.Pipeline
                          children: [(C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Number 1))})]
                          negated: T
                        )
                      terminator: (Token id:Id.Op_Semi val:';' span_id:536)
                    )
                  ]
                  action: [
                    (command.Sentence
                      child: 
                        (command.ControlFlow
                          token: (Token id:Id.ControlFlow_Return val:return span_id:540)
                          arg_word: {(1)}
                        )
                      terminator: (Token id:Id.Op_Semi val:';' span_id:543)
                    )
                  ]
                  spids: [524 538]
                )
              ]
            )
            (command.Sentence
              child: (C {(_nth)} {(DQ (${ Id.VSub_Number 1))} {(0)})
              terminator: (Token id:Id.Op_Semi val:';' span_id:557)
            )
            (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))})
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (C {(_symbol) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name a0))})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:579)
                    )
                  ]
                  action: [
                    (C {(ENV_FIND)} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))})
                    (command.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))})
                                )
                              terminator: (Token id:Id.Op_Semi val:';' span_id:610)
                            )
                          ]
                          action: [
                            (C {(ENV_GET)} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))})
                            (C {(Id.Lit_LBracket '[')} 
                              {
                                (DQ 
                                  (braced_var_sub
                                    token: (Token id:Id.VSub_Name val:ANON span_id:634)
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: 
                                          (arith_expr.ArithWord
                                            w: {(DQ (${ Id.VSub_Name r) (_ismacro_))}
                                          )
                                      )
                                  )
                                )
                              } {(Id.Lit_RBracket ']')}
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:649)
                              arg_word: {($ Id.VSub_QMark '$?')}
                            )
                          ]
                          spids: [599 612]
                        )
                      ]
                    )
                  ]
                  spids: [569 581]
                )
              ]
            )
            (command.ControlFlow
              token: (Token id:Id.ControlFlow_Return val:return span_id:660)
              arg_word: {(1)}
            )
          ]
        )
    )
    (command.ShFunction
      name: MACROEXPAND
      body: 
        (command.BraceGroup
          children: [
            (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} 
              {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))}
            )
            (command.WhileUntil
              keyword: (Token id:Id.KW_While val:while span_id:692)
              cond: [
                (command.Sentence
                  child: (C {(IS_MACRO_CALL)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                  terminator: (Token id:Id.Op_Semi val:';' span_id:707)
                )
              ]
              body: 
                (command.DoGroup
                  children: [
                    (command.Sentence
                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(0)})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:721)
                    )
                    (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))})
                    (command.Sentence
                      child: (C {(ENV_GET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a0))})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:746)
                    )
                    (C {(local)} 
                      {(Id.Lit_VarLike 'mac=') 
                        (DQ 
                          (braced_var_sub
                            token: (Token id:Id.VSub_Name val:ANON span_id:753)
                            bracket_op: 
                              (bracket_op.ArrayIndex
                                expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))})
                              )
                          )
                        )
                      }
                    )
                    (C {(_rest)} {(DQ (${ Id.VSub_Name ast))})
                    (C 
                      {
                        (braced_var_sub
                          token: (Token id:Id.VSub_Name val:mac span_id:775)
                          suffix_op: (suffix_op.Unary op_id:Id.VOp1_DPercent arg_word:{('@*')})
                        )
                      } 
                      {
                        (braced_var_sub
                          token: (Token id:Id.VSub_Name val:ANON span_id:781)
                          bracket_op: 
                            (bracket_op.ArrayIndex
                              expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))})
                            )
                        )
                      }
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:ast)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name r))}
                          spids: [792]
                        )
                      ]
                    )
                  ]
                )
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: {(DQ (${ Id.VSub_Name ast))}
                  spids: [803]
                )
              ]
            )
          ]
        )
    )
    (command.ShFunction
      name: EVAL_AST
      body: 
        (command.BraceGroup
          children: [
            (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} 
              {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))}
            )
            (command.Sentence
              child: (C {(_obj_type)} {(DQ (${ Id.VSub_Name ast))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:850)
            )
            (C {(local)} {(Id.Lit_VarLike 'ot=') (DQ (${ Id.VSub_Name r))})
            (command.Case
              to_match: {(DQ (${ Id.VSub_Name ot))}
              arms: [
                (case_arm
                  pat_list: [{(symbol)}]
                  action: [
                    (C {(ENV_GET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name ast))})
                    (command.ControlFlow
                      token: (Token id:Id.ControlFlow_Return val:return span_id:892)
                    )
                  ]
                  spids: [873 874 894 -1]
                )
                (case_arm
                  pat_list: [{(list)}]
                  action: [
                    (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [897 898 919 -1]
                )
                (case_arm
                  pat_list: [{(vector)}]
                  action: [
                    (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [922 923 944 -1]
                )
                (case_arm
                  pat_list: [{(hash_map)}]
                  action: [
                    (C {(local)} {(Id.Lit_VarLike 'res=') (DQ )} {(Id.Lit_VarLike 'key=')} 
                      {(Id.Lit_VarLike 'val=') (DQ )} 
                      {(Id.Lit_VarLike 'hm=') 
                        (DQ 
                          (braced_var_sub
                            token: (Token id:Id.VSub_Name val:ANON span_id:966)
                            bracket_op: 
                              (bracket_op.ArrayIndex
                                expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name ast))})
                              )
                          )
                        )
                      }
                    )
                    (command.Sentence
                      child: (C {(_hash_map)})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:979)
                    )
                    (C {(local)} {(Id.Lit_VarLike 'new_hm=') (DQ (${ Id.VSub_Name r))})
                    (C {(eval)} {(local)} 
                      {(Id.Lit_VarLike 'keys=') 
                        (DQ 
                          (word_part.EscapedLiteral
                            token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:997)
                          ) ('{!') (${ Id.VSub_Name hm) ('[@]}')
                        )
                      }
                    )
                    (command.ForEach
                      iter_name: key
                      iter_words: [{(${ Id.VSub_Name keys)}]
                      do_arg_iter: F
                      body: 
                        (command.DoGroup
                          children: [
                            (C {(eval)} 
                              {(Id.Lit_VarLike 'val=') 
                                (DQ 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:1024)
                                  ) ('{') (${ Id.VSub_Name hm) ('[') 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:1030)
                                  ) (${ Id.VSub_Name key) 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:1034)
                                  ) (']}')
                                )
                              }
                            )
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name val))} {(DQ (${ Id.VSub_Name env))})
                            (C {(_assoc) (Id.KW_Bang '!')} {(DQ (${ Id.VSub_Name new_hm))} 
                              {(DQ (${ Id.VSub_Name key))} {(DQ (${ Id.VSub_Name r))}
                            )
                          ]
                        )
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name new_hm))}
                          spids: [1079]
                        )
                      ]
                    )
                  ]
                  spids: [947 948 1086 -1]
                )
                (case_arm
                  pat_list: [{(Id.Lit_Star '*')}]
                  action: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name ast))}
                          spids: [1093]
                        )
                      ]
                    )
                  ]
                  spids: [1089 1090 1100 -1]
                )
              ]
            )
          ]
        )
    )
    (command.ShFunction
      name: EVAL
      body: 
        (command.BraceGroup
          children: [
            (C {(local)} {(Id.Lit_VarLike 'ast=') (DQ (${ Id.VSub_Number 1))} 
              {(Id.Lit_VarLike 'env=') (DQ (${ Id.VSub_Number 2))}
            )
            (command.WhileUntil
              keyword: (Token id:Id.KW_While val:while span_id:1133)
              cond: [
                (command.Sentence
                  child: (C {(true)})
                  terminator: (Token id:Id.Op_Semi val:';' span_id:1136)
                )
              ]
              body: 
                (command.DoGroup
                  children: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: (word.Empty)
                          spids: [1141]
                        )
                      ]
                    )
                    (command.AndOr
                      ops: [Id.Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                        )
                        (command.ControlFlow
                          token: (Token id:Id.ControlFlow_Return val:return span_id:1156)
                          arg_word: {(1)}
                        )
                      ]
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.Pipeline
                                  children: [
                                    (C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))})
                                  ]
                                  negated: T
                                )
                              terminator: (Token id:Id.Op_Semi val:';' span_id:1177)
                            )
                          ]
                          action: [
                            (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1197)
                            )
                          ]
                          spids: [1165 1179]
                        )
                      ]
                    )
                    (C {(MACROEXPAND)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:ast)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name r))}
                          spids: [1223]
                        )
                      ]
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: [
                            (command.Sentence
                              child: 
                                (command.Pipeline
                                  children: [
                                    (C {(_list) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))})
                                  ]
                                  negated: T
                                )
                              terminator: (Token id:Id.Op_Semi val:';' span_id:1243)
                            )
                          ]
                          action: [
                            (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1263)
                            )
                          ]
                          spids: [1231 1245]
                        )
                      ]
                    )
                    (command.AndOr
                      ops: [Id.Op_DAmp Id.Op_DAmp]
                      children: [
                        (C {(_empty) (Id.Lit_QMark '?')} {(DQ (${ Id.VSub_Name ast))})
                        (command.ShAssignment
                          pairs: [
                            (assign_pair
                              lhs: (sh_lhs_expr.Name name:r)
                              op: assign_op.Equal
                              rhs: {(DQ (${ Id.VSub_Name ast))}
                              spids: [1280]
                            )
                          ]
                        )
                        (command.ControlFlow
                          token: (Token id:Id.ControlFlow_Return val:return span_id:1289)
                        )
                      ]
                    )
                    (command.Sentence
                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(0)})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:1302)
                    )
                    (C {(local)} {(Id.Lit_VarLike 'a0=') (DQ (${ Id.VSub_Name r))})
                    (command.Sentence
                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(1)})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:1323)
                    )
                    (C {(local)} {(Id.Lit_VarLike 'a1=') (DQ (${ Id.VSub_Name r))})
                    (command.Sentence
                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(2)})
                      terminator: (Token id:Id.Op_Semi val:';' span_id:1344)
                    )
                    (C {(local)} {(Id.Lit_VarLike 'a2=') (DQ (${ Id.VSub_Name r))})
                    (command.Case
                      to_match: 
                        {
                          (DQ 
                            (braced_var_sub
                              token: (Token id:Id.VSub_Name val:ANON span_id:1360)
                              bracket_op: 
                                (bracket_op.ArrayIndex
                                  expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a0))})
                                )
                            )
                          )
                        }
                      arms: [
                        (case_arm
                          pat_list: [{(def) (Id.KW_Bang '!')}]
                          action: [
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:1405)
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (C {(ENV_SET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} 
                              {(DQ (${ Id.VSub_Name r))}
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1431)
                            )
                          ]
                          spids: [1374 1376 1433 -1]
                        )
                        (case_arm
                          pat_list: [{(let) (Id.Lit_Star '*')}]
                          action: [
                            (command.Sentence
                              child: (C {(ENV)} {(DQ (${ Id.VSub_Name env))})
                              terminator: (Token id:Id.Op_Semi val:';' span_id:1447)
                            )
                            (C {(local)} {(Id.Lit_VarLike 'let_env=') (DQ (${ Id.VSub_Name r))})
                            (C {(local)} 
                              {(Id.Lit_VarLike 'let_pairs=') 
                                (sh_array_literal
                                  left: (Token id:Id.Op_LParen val:'(' span_id:1462)
                                  words: [
                                    {
                                      (braced_var_sub
                                        token: (Token id:Id.VSub_Name val:ANON span_id:1464)
                                        bracket_op: 
                                          (bracket_op.ArrayIndex
                                            expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name a1))})
                                          )
                                      )
                                    }
                                  ]
                                )
                              }
                            )
                            (C {(local)} {(Id.Lit_VarLike 'idx=') (0)})
                            (command.WhileUntil
                              keyword: (Token id:Id.KW_While val:while span_id:1486)
                              cond: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      expr: 
                                        (bool_expr.WordTest
                                          w: 
                                            {
                                              (DQ 
                                                (braced_var_sub
                                                  token: 
                                                    (Token
                                                      id: Id.VSub_Name
                                                      val: let_pairs
                                                      span_id: 1492
                                                    )
                                                  bracket_op: 
                                                    (bracket_op.ArrayIndex
                                                      expr: 
                                                        (arith_expr.ArithWord
                                                          w: {(DQ (${ Id.VSub_Name idx))}
                                                        )
                                                    )
                                                )
                                              )
                                            }
                                        )
                                    )
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:1504)
                                )
                              ]
                              body: 
                                (command.DoGroup
                                  children: [
                                    (C {(EVAL)} 
                                      {
                                        (DQ 
                                          (braced_var_sub
                                            token: (Token id:Id.VSub_Name val:let_pairs span_id:1513)
                                            bracket_op: 
                                              (bracket_op.ArrayIndex
                                                expr: 
                                                  (arith_expr.ArithWord
                                                    w: 
                                                      {
                                                        (word_part.ArithSub
                                                          anode: 
                                                            (arith_expr.Binary
                                                              op_id: Id.Arith_Plus
                                                              left: 
                                                                (arith_expr.VarRef
                                                                  token: 
                                                                    (Token
                                                                      id: Id.Lit_ArithVarLike
                                                                      val: idx
                                                                      span_id: 1517
                                                                    )
                                                                )
                                                              right: 
                                                                (arith_expr.ArithWord
                                                                  w: {(Id.Lit_Digits 1)}
                                                                )
                                                            )
                                                        )
                                                      }
                                                  )
                                              )
                                          )
                                        )
                                      } {(DQ (${ Id.VSub_Name let_env))}
                                    )
                                    (C {(ENV_SET)} {(DQ (${ Id.VSub_Name let_env))} 
                                      {
                                        (DQ 
                                          (braced_var_sub
                                            token: (Token id:Id.VSub_Name val:let_pairs span_id:1545)
                                            bracket_op: 
                                              (bracket_op.ArrayIndex
                                                expr: (arith_expr.ArithWord w:{(${ Id.VSub_Name idx)})
                                              )
                                          )
                                        )
                                      } {(DQ (${ Id.VSub_Name r))}
                                    )
                                    (command.ShAssignment
                                      pairs: [
                                        (assign_pair
                                          lhs: (sh_lhs_expr.Name name:idx)
                                          op: assign_op.Equal
                                          rhs: 
                                            {
                                              (word_part.ArithSub
                                                anode: 
                                                  (arith_expr.Binary
                                                    op_id: Id.Arith_Plus
                                                    left: 
                                                      (arith_expr.VarRef
                                                        token: 
                                                          (Token
                                                            id: Id.Lit_ArithVarLike
                                                            val: idx
                                                            span_id: 1564
                                                          )
                                                      )
                                                    right: (arith_expr.ArithWord w:{(Id.Lit_Digits 2)})
                                                  )
                                              )
                                            }
                                          spids: [1561]
                                        )
                                      ]
                                    )
                                  ]
                                )
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:ast)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name a2))}
                                  spids: [1576]
                                )
                              ]
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:env)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name let_env))}
                                  spids: [1584]
                                )
                              ]
                            )
                          ]
                          spids: [1436 1438 1596 -1]
                        )
                        (case_arm
                          pat_list: [{(quote)}]
                          action: [
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:r)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name a1))}
                                  spids: [1603]
                                )
                              ]
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1611)
                            )
                          ]
                          spids: [1599 1600 1613 -1]
                        )
                        (case_arm
                          pat_list: [{(quasiquote)}]
                          action: [
                            (C {(QUASIQUOTE)} {(DQ (${ Id.VSub_Name a1))})
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:ast)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name r))}
                                  spids: [1629]
                                )
                              ]
                            )
                          ]
                          spids: [1616 1617 1641 -1]
                        )
                        (case_arm
                          pat_list: [{(defmacro) (Id.KW_Bang '!')}]
                          action: [
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:1676)
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: 
                                    (sh_lhs_expr.IndexedName
                                      name: ANON
                                      index: 
                                        (arith_expr.ArithWord
                                          w: {(DQ (${ Id.VSub_Name r) (_ismacro_))}
                                        )
                                    )
                                  op: assign_op.Equal
                                  rhs: {(DQ (yes))}
                                  spids: [1681]
                                )
                              ]
                            )
                            (C {(ENV_SET)} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} 
                              {(DQ (${ Id.VSub_Name r))}
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1722)
                            )
                          ]
                          spids: [1644 1646 1724 -1]
                        )
                        (case_arm
                          pat_list: [{(macroexpand)}]
                          action: [
                            (C {(MACROEXPAND)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1746)
                            )
                          ]
                          spids: [1727 1728 1748 -1]
                        )
                        (case_arm
                          pat_list: [{(sh) (Id.Lit_Star '*')}]
                          action: [
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))})
                            (C {(local)} {(Id.Lit_VarLike 'output=') (DQ )})
                            (C {(local)} {(Id.Lit_VarLike 'line=') (DQ )})
                            (command.WhileUntil
                              keyword: (Token id:Id.KW_While val:while span_id:1784)
                              cond: [
                                (command.Sentence
                                  child: (C {(read)} {(line)})
                                  terminator: (Token id:Id.Op_Semi val:';' span_id:1789)
                                )
                              ]
                              body: 
                                (command.DoGroup
                                  children: [
                                    (command.ShAssignment
                                      pairs: [
                                        (assign_pair
                                          lhs: (sh_lhs_expr.Name name:output)
                                          op: assign_op.Equal
                                          rhs: 
                                            {
                                              (DQ (${ Id.VSub_Name output) (${ Id.VSub_Name line) 
                                                (Id.Lit_Other '\\') (n)
                                              )
                                            }
                                          spids: [1794]
                                        )
                                      ]
                                    )
                                  ]
                                )
                              redirects: [
                                (redir.Redir
                                  op: (Token id:Id.Redir_Less val:'<' span_id:1809)
                                  fd: -1
                                  arg_word: 
                                    {
                                      (command_sub
                                        left_token: 
                                          (Token
                                            id: Id.Left_ProcSubIn
                                            val: '<('
                                            span_id: 1811
                                          )
                                        command_list: 
                                          (command.CommandList
                                            children: [
                                              (C {(eval)} 
                                                {
                                                  (braced_var_sub
                                                    token: 
                                                      (Token
                                                        id: Id.VSub_Name
                                                        val: ANON
                                                        span_id: 1815
                                                      )
                                                    bracket_op: 
                                                      (bracket_op.ArrayIndex
                                                        expr: 
                                                          (arith_expr.ArithWord
                                                            w: {(DQ (${ Id.VSub_Name r))}
                                                          )
                                                      )
                                                  )
                                                }
                                              )
                                            ]
                                          )
                                      )
                                    }
                                )
                              ]
                            )
                            (C {(_string)} 
                              {
                                (DQ 
                                  (braced_var_sub
                                    token: (Token id:Id.VSub_Name val:output span_id:1831)
                                    suffix_op: 
                                      (suffix_op.Unary
                                        op_id: Id.VOp1_Percent
                                        arg_word: 
                                          {
                                            (word_part.EscapedLiteral
                                              token: 
                                                (Token
                                                  id: Id.Lit_EscapedChar
                                                  val: '\\\\'
                                                  span_id: 1833
                                                )
                                            ) (n)
                                          }
                                      )
                                  )
                                )
                              }
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:1839)
                            )
                          ]
                          spids: [1751 1753 1841 -1]
                        )
                        (case_arm
                          pat_list: [{(try) (Id.Lit_Star '*')}]
                          action: [
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: 
                                    (bool_expr.Unary
                                      op_id: Id.BoolUnary_z
                                      child: {(DQ (${ Id.VSub_Name __ERROR))}
                                    )
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:1877)
                                )
                              ]
                            )
                            (command.Sentence
                              child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(0)})
                              terminator: (Token id:Id.Op_Semi val:';' span_id:1889)
                            )
                            (C {(local)} {(Id.Lit_VarLike 'a20=') (DQ (${ Id.VSub_Name r))})
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (C {(Id.Lit_LBracket '[')} 
                                          {
                                            (DQ 
                                              (braced_var_sub
                                                token: (Token id:Id.VSub_Name val:ANON span_id:1907)
                                                bracket_op: 
                                                  (bracket_op.ArrayIndex
                                                    expr: 
                                                      (arith_expr.ArithWord
                                                        w: {(DQ (${ Id.VSub_Name a20))}
                                                      )
                                                  )
                                              )
                                            )
                                          } {(Id.Lit_Equals '=') (Id.Lit_Equals '=')} {(DQ (catch__STAR__))} {(Id.Lit_RBracket ']')}
                                        )
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:1926)
                                    )
                                  ]
                                  action: [
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(1)})
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:1940)
                                    )
                                    (C {(local)} {(Id.Lit_VarLike 'a21=') (DQ (${ Id.VSub_Name r))})
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name a2))} {(2)})
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:1961)
                                    )
                                    (C {(local)} {(Id.Lit_VarLike 'a22=') (DQ (${ Id.VSub_Name r))})
                                    (command.Sentence
                                      child: (C {(_list)} {(DQ (${ Id.VSub_Name a21))})
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:1980)
                                    )
                                    (C {(local)} {(Id.Lit_VarLike 'binds=') (DQ (${ Id.VSub_Name r))})
                                    (C {(ENV)} {(DQ (${ Id.VSub_Name env))} 
                                      {(DQ (${ Id.VSub_Name binds))} {(DQ (${ Id.VSub_Name __ERROR))}
                                    )
                                    (C {(local)} {(Id.Lit_VarLike 'try_env=') (DQ (${ Id.VSub_Name r))})
                                    (command.ShAssignment
                                      pairs: [
                                        (assign_pair
                                          lhs: (sh_lhs_expr.Name name:__ERROR)
                                          op: assign_op.Equal
                                          rhs: (word.Empty)
                                          spids: [2023]
                                        )
                                      ]
                                    )
                                    (C {(EVAL)} {(DQ (${ Id.VSub_Name a22))} 
                                      {(DQ (${ Id.VSub_Name try_env))}
                                    )
                                  ]
                                  spids: [1901 1928]
                                )
                              ]
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:2047)
                            )
                          ]
                          spids: [1844 1846 2049 -1]
                        )
                        (case_arm
                          pat_list: [{(Id.KW_Do do)}]
                          action: [
                            (C {(_count)} {(DQ (${ Id.VSub_Name ast))})
                            (C {(_slice)} {(DQ (${ Id.VSub_Name ast))} {(1)} 
                              {
                                (word_part.ArithSub
                                  anode: 
                                    (arith_expr.Binary
                                      op_id: Id.Arith_Minus
                                      left: (arith_expr.ArithWord w:{(${ Id.VSub_Name r)})
                                      right: (arith_expr.ArithWord w:{(Id.Lit_Digits 2)})
                                    )
                                )
                              }
                            )
                            (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                                )
                                (command.ShAssignment
                                  pairs: [
                                    (assign_pair
                                      lhs: (sh_lhs_expr.Name name:r)
                                      op: assign_op.Equal
                                      rhs: (word.Empty)
                                      spids: [2115]
                                    )
                                  ]
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:2119)
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (C {(_last)} {(DQ (${ Id.VSub_Name ast))})
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:ast)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name r))}
                                  spids: [2133]
                                )
                              ]
                            )
                          ]
                          spids: [2052 2053 2145 -1]
                        )
                        (case_arm
                          pat_list: [{(Id.KW_If if)}]
                          action: [
                            (C {(EVAL)} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:2178)
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.LogicalOr
                                              left: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobDEqual
                                                  left: {(DQ (${ Id.VSub_Name r))}
                                                  right: {(DQ (${ Id.VSub_Name __false))}
                                                )
                                              right: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobDEqual
                                                  left: {(DQ (${ Id.VSub_Name r))}
                                                  right: {(DQ (${ Id.VSub_Name __nil))}
                                                )
                                            )
                                        )
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:2218)
                                    )
                                  ]
                                  action: [
                                    (command.Sentence
                                      child: (C {(_nth)} {(DQ (${ Id.VSub_Name ast))} {(3)})
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:2236)
                                    )
                                    (C {(local)} {(Id.Lit_VarLike 'a3=') (DQ (${ Id.VSub_Name r))})
                                    (command.If
                                      arms: [
                                        (if_arm
                                          cond: [
                                            (command.Sentence
                                              child: 
                                                (command.DBracket
                                                  expr: 
                                                    (bool_expr.WordTest
                                                      w: {(DQ (${ Id.VSub_Name a3))}
                                                    )
                                                )
                                              terminator: (Token id:Id.Op_Semi val:';' span_id:2259)
                                            )
                                          ]
                                          action: [
                                            (command.ShAssignment
                                              pairs: [
                                                (assign_pair
                                                  lhs: (sh_lhs_expr.Name name:ast)
                                                  op: assign_op.Equal
                                                  rhs: {(DQ (${ Id.VSub_Name a3))}
                                                  spids: [2264]
                                                )
                                              ]
                                            )
                                          ]
                                          spids: [2248 2261]
                                        )
                                      ]
                                      else_action: [
                                        (command.ShAssignment
                                          pairs: [
                                            (assign_pair
                                              lhs: (sh_lhs_expr.Name name:r)
                                              op: assign_op.Equal
                                              rhs: {(DQ (${ Id.VSub_Name __nil))}
                                              spids: [2275]
                                            )
                                          ]
                                        )
                                        (command.ControlFlow
                                          token: 
                                            (Token
                                              id: Id.ControlFlow_Return
                                              val: return
                                              span_id: 2283
                                            )
                                        )
                                      ]
                                    )
                                  ]
                                  spids: [2183 2220]
                                )
                              ]
                              else_action: [
                                (command.ShAssignment
                                  pairs: [
                                    (assign_pair
                                      lhs: (sh_lhs_expr.Name name:ast)
                                      op: assign_op.Equal
                                      rhs: {(DQ (${ Id.VSub_Name a2))}
                                      spids: [2296]
                                    )
                                  ]
                                )
                              ]
                            )
                          ]
                          spids: [2148 2149 2311 -1]
                        )
                        (case_arm
                          pat_list: [{(fn) (Id.Lit_Star '*')}]
                          action: [
                            (C {(_function)} 
                              {
                                (DQ ('ENV ') 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2322)
                                  ) (${ Id.VSub_Name env) 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2326)
                                  ) (' ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2328)) 
                                  (${ Id.VSub_Name a1) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2332)) (' ') 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2334)
                                  ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\$' span_id:2335)) ('{@}') 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2337)
                                  ) ('; ') ('                         EVAL ') 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2341)
                                  ) (${ Id.VSub_Name a2) 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2345)
                                  ) (' ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2347)) 
                                  (word_part.EscapedLiteral
                                    token: (Token id:Id.Lit_EscapedChar val:'\\$' span_id:2348)
                                  ) ('{r}') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2350))
                                )
                              } {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))}
                            )
                            (command.ControlFlow
                              token: (Token id:Id.ControlFlow_Return val:return span_id:2374)
                            )
                          ]
                          spids: [2314 2316 2376 -1]
                        )
                        (case_arm
                          pat_list: [{(Id.Lit_Star '*')}]
                          action: [
                            (C {(EVAL_AST)} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                            (command.AndOr
                              ops: [Id.Op_DAmp Id.Op_DAmp]
                              children: [
                                (command.DBracket
                                  expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                                )
                                (command.ShAssignment
                                  pairs: [
                                    (assign_pair
                                      lhs: (sh_lhs_expr.Name name:r)
                                      op: assign_op.Equal
                                      rhs: (word.Empty)
                                      spids: [2409]
                                    )
                                  ]
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:2413)
                                  arg_word: {(1)}
                                )
                              ]
                            )
                            (C {(local)} {(Id.Lit_VarLike 'el=') (DQ (${ Id.VSub_Name r))})
                            (command.Sentence
                              child: (C {(_first)} {(DQ (${ Id.VSub_Name el))})
                              terminator: (Token id:Id.Op_Semi val:';' span_id:2435)
                            )
                            (C {(local)} 
                              {(Id.Lit_VarLike 'f=') 
                                (DQ 
                                  (braced_var_sub
                                    token: (Token id:Id.VSub_Name val:ANON span_id:2442)
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))})
                                      )
                                  )
                                )
                              }
                            )
                            (command.Sentence
                              child: (C {(_rest)} {(DQ (${ Id.VSub_Name el))})
                              terminator: (Token id:Id.Op_Semi val:';' span_id:2461)
                            )
                            (C {(local)} 
                              {(Id.Lit_VarLike 'args=') 
                                (DQ 
                                  (braced_var_sub
                                    token: (Token id:Id.VSub_Name val:ANON span_id:2468)
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name r))})
                                      )
                                  )
                                )
                              }
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobNEqual
                                              left: 
                                                {
                                                  (DQ 
                                                    (braced_var_sub
                                                      token: 
                                                        (Token
                                                          id: Id.VSub_Name
                                                          val: f
                                                          span_id: 2490
                                                        )
                                                      suffix_op: 
                                                        (suffix_op.PatSub
                                                          pat: {('@')}
                                                          replace: {(' ')}
                                                          replace_mode: Id.Lit_Slash
                                                        )
                                                    )
                                                  )
                                                }
                                              right: {(DQ (${ Id.VSub_Name f))}
                                            )
                                        )
                                      terminator: (Token id:Id.Op_Semi val:';' span_id:2508)
                                    )
                                  ]
                                  action: [
                                    (C {(Id.KW_Set set)} {(--)} 
                                      {
                                        (braced_var_sub
                                          token: (Token id:Id.VSub_Name val:f span_id:2518)
                                          suffix_op: 
                                            (suffix_op.PatSub
                                              pat: {('@')}
                                              replace: {(' ')}
                                              replace_mode: Id.Lit_Slash
                                            )
                                        )
                                      }
                                    )
                                    (command.ShAssignment
                                      pairs: [
                                        (assign_pair
                                          lhs: (sh_lhs_expr.Name name:ast)
                                          op: assign_op.Equal
                                          rhs: {(DQ (${ Id.VSub_Number 2))}
                                          spids: [2527]
                                        )
                                      ]
                                    )
                                    (C {(ENV)} {(DQ (${ Id.VSub_Number 3))} {(DQ (${ Id.VSub_Number 4))} 
                                      {(${ Id.VSub_Name args)}
                                    )
                                    (command.ShAssignment
                                      pairs: [
                                        (assign_pair
                                          lhs: (sh_lhs_expr.Name name:env)
                                          op: assign_op.Equal
                                          rhs: {(DQ (${ Id.VSub_Name r))}
                                          spids: [2554]
                                        )
                                      ]
                                    )
                                  ]
                                  spids: [2484 2510]
                                )
                              ]
                              else_action: [
                                (C {(eval)} 
                                  {
                                    (braced_var_sub
                                      token: (Token id:Id.VSub_Name val:f span_id:2568)
                                      suffix_op: 
                                        (suffix_op.Unary
                                          op_id: Id.VOp1_DPercent
                                          arg_word: {('@*')}
                                        )
                                    )
                                  } {(${ Id.VSub_Name args)}
                                )
                                (command.ControlFlow
                                  token: (Token id:Id.ControlFlow_Return val:return span_id:2578)
                                )
                              ]
                            )
                          ]
                          spids: [2379 2380 2588 -1]
                        )
                      ]
                    )
                  ]
                )
            )
          ]
        )
    )
    (command.ShFunction
      name: PRINT
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: 
                        (command.DBracket
                          expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                        )
                      terminator: (Token id:Id.Op_Semi val:';' span_id:2621)
                    )
                  ]
                  action: [
                    (C {(_pr_str)} {(DQ (${ Id.VSub_Name __ERROR))} {(yes)})
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ ('Error: ') (${ Id.VSub_Name r))}
                          spids: [2637]
                        )
                      ]
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:__ERROR)
                          op: assign_op.Equal
                          rhs: (word.Empty)
                          spids: [2646]
                        )
                      ]
                    )
                  ]
                  spids: [2610 2623]
                )
              ]
              else_action: [(C {(_pr_str)} {(DQ (${ Id.VSub_Number 1))} {(yes)})]
            )
          ]
        )
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: (C {(ENV)})
          terminator: (Token id:Id.Op_Semi val:';' span_id:2672)
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:REPL_ENV)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name r))}
              spids: [2674]
            )
          ]
        )
      ]
    )
    (command.ShFunction
      name: REP
      body: 
        (command.BraceGroup
          children: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: (word.Empty)
                  spids: [2689]
                )
              ]
            )
            (C {(READ)} {(DQ (${ Id.VSub_Number 1))})
            (C {(EVAL)} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Name REPL_ENV))})
            (C {(PRINT)} {(DQ (${ Id.VSub_Name r))})
          ]
        )
    )
    (command.ShFunction
      name: _fref
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: (C {(_symbol)} {(DQ (${ Id.VSub_Number 1))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:2745)
            )
            (C {(local)} {(Id.Lit_VarLike 'sym=') (DQ (${ Id.VSub_Name r))})
            (C {(_function)} 
              {
                (DQ (${ Id.VSub_Number 2) (' ') 
                  (word_part.EscapedLiteral
                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2764)
                  ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\$' span_id:2765)) ('{@}') 
                  (word_part.EscapedLiteral
                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2767)
                  )
                )
              }
            )
            (C {(ENV_SET)} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name sym))} 
              {(DQ (${ Id.VSub_Name r))}
            )
          ]
        )
    )
    (command.ForEach
      iter_name: n
      iter_words: [
        {
          (DQ 
            (braced_var_sub
              token: (Token id:Id.VSub_Name val:core_ns span_id:2802)
              prefix_op: (Id.VSub_Bang)
              bracket_op: (bracket_op.WholeArray op_id:Id.Lit_At)
            )
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.Sentence
              child: 
                (C {(_fref)} {(DQ (${ Id.VSub_Name n))} 
                  {
                    (DQ 
                      (braced_var_sub
                        token: (Token id:Id.VSub_Name val:core_ns span_id:2822)
                        bracket_op: 
                          (bracket_op.ArrayIndex
                            expr: (arith_expr.ArithWord w:{(DQ (${ Id.VSub_Name n))})
                          )
                      )
                    )
                  }
                )
              terminator: (Token id:Id.Op_Semi val:';' span_id:2832)
            )
          ]
        )
    )
    (command.ShFunction
      name: _eval
      body: 
        (command.BraceGroup
          children: [
            (command.Sentence
              child: (C {(EVAL)} {(DQ (${ Id.VSub_Number 1))} {(DQ (${ Id.VSub_Name REPL_ENV))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:2856)
            )
          ]
        )
    )
    (C {(_fref)} {(DQ (eval))} {(_eval)})
    (command.CommandList
      children: [
        (command.Sentence
          child: (C {(_list)})
          terminator: (Token id:Id.Op_Semi val:';' span_id:2869)
        )
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:argv)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name r))}
              spids: [2871]
            )
          ]
        )
      ]
    )
    (command.ForEach
      iter_name: _arg
      iter_words: [
        {
          (DQ 
            (braced_var_sub
              token: (Token id:Id.VSub_At val:'@' span_id:2886)
              suffix_op: (suffix_op.Slice begin:(arith_expr.ArithWord w:{(Id.Lit_Digits 2)}))
            )
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.Sentence
              child: (C {(_string)} {(DQ (${ Id.VSub_Name _arg))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:2902)
            )
            (command.Sentence
              child: 
                (C {(_conj) (Id.KW_Bang '!')} {(DQ (${ Id.VSub_Name argv))} {(DQ (${ Id.VSub_Name r))})
              terminator: (Token id:Id.Op_Semi val:';' span_id:2918)
            )
          ]
        )
    )
    (C {(_symbol)} {(DQ (__STAR__ARGV__STAR__))})
    (command.Sentence
      child: 
        (C {(ENV_SET)} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} 
          {(DQ (${ Id.VSub_Name argv))}
        )
      terminator: (Token id:Id.Op_Semi val:';' span_id:2947)
    )
    (C {(REP)} 
      {
        (DQ ('(def! *host-language* ') 
          (word_part.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2957)
          ) (bash) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2959)) (')')
        )
      }
    )
    (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.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2973)
          ) ('(do ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2975)) 
          (' (slurp f) ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2977)) (')') 
          (word_part.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:2979)
          ) (')))))')
        )
      }
    )
    (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.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2987)) 
          ('odd number of forms to cond') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:2989)) 
          (")) (cons 'cond (rest (rest xs)))))))")
        )
      }
    )
    (C {(REP)} {(DQ ('(def! *gensym-counter* (atom 0))'))})
    (C {(REP)} 
      {
        (DQ ('(def! gensym (fn* [] (symbol (str ') 
          (word_part.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3003)
          ) (G__) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3005)) 
          (' (swap! *gensym-counter* (fn* [x] (+ 1 x)))))))')
        )
      }
    )
    (C {(REP)} 
      {
        (DQ 
          (
'(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) (let* (condvar (gensym)) '
          ) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\`' span_id:3013)) 
          ('(let* (~condvar ~(first xs)) (if ~condvar ~condvar (or ~@(rest xs)))))))))')
        )
      }
    )
    (command.If
      arms: [
        (if_arm
          cond: [
            (command.Sentence
              child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Number 1))}))
              terminator: (Token id:Id.Op_Semi val:';' span_id:3032)
            )
          ]
          action: [
            (C {(REP)} 
              {
                (DQ ('(load-file ') 
                  (word_part.EscapedLiteral
                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3041)
                  ) (${ Id.VSub_Number 1) 
                  (word_part.EscapedLiteral
                    token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3045)
                  ) (')')
                )
              }
            )
            (command.ControlFlow
              token: (Token id:Id.ControlFlow_Exit val:exit span_id:3050)
              arg_word: {(0)}
            )
          ]
          spids: [3021 3034]
        )
      ]
    )
    (C {(REP)} 
      {
        (DQ ('(println (str ') 
          (word_part.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3065)
          ) ('Mal [') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3067)) 
          (' *host-language* ') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:3069)) (']') 
          (word_part.EscapedLiteral
            token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:3071)
          ) ('))')
        )
      }
    )
    (command.WhileUntil
      keyword: (Token id:Id.KW_While val:while span_id:3075)
      cond: [
        (command.Sentence
          child: (C {(true)})
          terminator: (Token id:Id.Op_Semi val:';' span_id:3078)
        )
      ]
      body: 
        (command.DoGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DPipe]
              children: [
                (C {(READLINE)} {(DQ ('user> '))})
                (command.ControlFlow
                  token: (Token id:Id.ControlFlow_Exit val:exit span_id:3091)
                  arg_word: {(DQ ($ Id.VSub_QMark '$?'))}
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))}))
                (C {(REP)} {(DQ (${ Id.VSub_Name r))})
                (C {(echo)} {(DQ (${ Id.VSub_Name r))})
              ]
            )
          ]
        )
    )
  ]
)