(command.CommandList
  children: [
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/reader.sh'>
      }
    )
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/printer.sh'>
      }
    )
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/env.sh'>
      }
    )
    (C {<source>} 
      {
        (command_sub
          left_token: <Id.Left_DollarParen '$('>
          child: (C {<dirname>} {($ Id.VSub_Number '$0')})
        ) <'/core.sh'>
      }
    )
    (command.ShFunction
      name: READ
      body: 
        (BraceGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DPipe]
              children: [
                (C {<Id.Lit_LBracket '['>} {(DQ (${ Id.VSub_Number 1))} {<Id.Lit_RBracket ']'>})
                (command.ShAssignment
                  pairs: [
                    (assign_pair
                      lhs: (sh_lhs_expr.Name name:r)
                      op: assign_op.Equal
                      rhs: {(DQ (${ Id.VSub_Number 1))}
                      spids: [64]
                    )
                  ]
                )
                (C {<READLINE>})
              ]
            )
            (C {<READ_STR>} {(DQ (${ Id.VSub_Name r))})
          ]
        )
    )
    (command.ShFunction
      name: IS_PAIR
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: (C {<_sequential> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Number 1))})
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  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: <Id.ControlFlow_Return return>
                          arg_word: {<0>}
                        )
                      ]
                    )
                  ]
                  spids: [98 110]
                )
              ]
            )
            (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<1>})
          ]
        )
    )
    (command.ShFunction
      name: QUASIQUOTE
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.Pipeline
                              children: [(C {<IS_PAIR>} {(DQ (${ Id.VSub_Number 1))})]
                              negated: T
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<_symbol>} {<quote>})
                    (C {<_list>} {(DQ (${ Id.VSub_Name r))} {(DQ (${ Id.VSub_Number 1))})
                    (command.ControlFlow token:<Id.ControlFlow_Return return>)
                  ]
                  spids: [161 174]
                )
              ]
              else_action: [
                (command.Sentence
                  child: (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<0>})
                  terminator: <Id.Op_Semi _>
                )
                (C {<local>} {<Id.Lit_VarLike 'a0='> (DQ (${ Id.VSub_Name r))})
                (command.If
                  arms: [
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: 
                                (command.DBracket
                                  expr: 
                                    (bool_expr.Binary
                                      op_id: Id.BoolBinary_GlobDEqual
                                      left: 
                                        {
                                          (DQ 
                                            (braced_var_sub
                                              token: <Id.VSub_Name ANON>
                                              bracket_op: 
                                                (bracket_op.ArrayIndex
                                                  expr: {(DQ (${ Id.VSub_Name a0))}
                                                )
                                            )
                                          )
                                        }
                                      right: {(DQ <unquote>)}
                                    )
                                )
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [
                        (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<1>})
                        (command.ControlFlow
                          token: <Id.ControlFlow_Return return>
                        )
                      ]
                      spids: [224 250]
                    )
                    (if_arm
                      cond: 
                        (condition.Shell
                          commands: [
                            (command.Sentence
                              child: (C {<IS_PAIR>} {(DQ (${ Id.VSub_Name a0))})
                              terminator: <Id.Op_Semi _>
                            )
                          ]
                        )
                      action: [
                        (command.Sentence
                          child: (C {<_nth>} {(DQ (${ Id.VSub_Name a0))} {<0>})
                          terminator: <Id.Op_Semi _>
                        )
                        (C {<local>} {<Id.Lit_VarLike 'a00='> (DQ (${ Id.VSub_Name r))})
                        (command.If
                          arms: [
                            (if_arm
                              cond: 
                                (condition.Shell
                                  commands: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.Binary
                                              op_id: Id.BoolBinary_GlobDEqual
                                              left: 
                                                {
                                                  (DQ 
                                                    (braced_var_sub
                                                      token: <Id.VSub_Name ANON>
                                                      bracket_op: 
                                                        (bracket_op.ArrayIndex
                                                          expr: {(DQ (${ Id.VSub_Name a00))}
                                                        )
                                                    )
                                                  )
                                                }
                                              right: {(DQ <splice-unquote>)}
                                            )
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                )
                              action: [
                                (command.Sentence
                                  child: (C {<_symbol>} {<concat>})
                                  terminator: <Id.Op_Semi _>
                                )
                                (C {<local>} {<Id.Lit_VarLike 'a='> (DQ (${ Id.VSub_Name r))})
                                (command.Sentence
                                  child: (C {<_nth>} {(DQ (${ Id.VSub_Name a0))} {<1>})
                                  terminator: <Id.Op_Semi _>
                                )
                                (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: <Id.Op_Semi _>
                                )
                                (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: <Id.ControlFlow_Return return>
                                )
                              ]
                              spids: [302 328]
                            )
                          ]
                        )
                      ]
                      spids: [267 278]
                    )
                  ]
                )
              ]
            )
            (command.Sentence child:(C {<_symbol>} {<cons>}) terminator:<Id.Op_Semi _>)
            (C {<local>} {<Id.Lit_VarLike 'a='> (DQ (${ Id.VSub_Name r))})
            (command.Sentence
              child: (C {<QUASIQUOTE>} {(DQ (${ Id.VSub_Name a0))})
              terminator: <Id.Op_Semi _>
            )
            (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: <Id.Op_Semi _>
            )
            (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:<Id.ControlFlow_Return return>)
          ]
        )
    )
    (command.ShFunction
      name: IS_MACRO_CALL
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.Pipeline
                              children: [(C {<_list> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Number 1))})]
                              negated: T
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (command.Sentence
                      child: (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<1>})
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                  spids: [524 538]
                )
              ]
            )
            (command.Sentence
              child: (C {<_nth>} {(DQ (${ Id.VSub_Number 1))} {<0>})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'a0='> (DQ (${ Id.VSub_Name r))})
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: (C {<_symbol> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Name a0))})
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<ENV_FIND>} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))})
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.DBracket
                                      expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))})
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<ENV_GET>} {(DQ (${ Id.VSub_Number 2))} {(DQ (${ Id.VSub_Name a0))})
                            (C {<Id.Lit_LBracket '['>} 
                              {
                                (DQ 
                                  (braced_var_sub
                                    token: <Id.VSub_Name ANON>
                                    bracket_op: 
                                      (bracket_op.ArrayIndex
                                        expr: {(DQ (${ Id.VSub_Name r) <_ismacro_>)}
                                      )
                                  )
                                )
                              } {<Id.Lit_RBracket ']'>}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                              arg_word: {($ Id.VSub_QMark '$?')}
                            )
                          ]
                          spids: [599 612]
                        )
                      ]
                    )
                  ]
                  spids: [569 581]
                )
              ]
            )
            (command.ControlFlow token:<Id.ControlFlow_Return return> arg_word:{<1>})
          ]
        )
    )
    (command.ShFunction
      name: MACROEXPAND
      body: 
        (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: <Id.KW_While while>
              cond: 
                (condition.Shell
                  commands: [
                    (command.Sentence
                      child: 
                        (C {<IS_MACRO_CALL>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                      terminator: <Id.Op_Semi _>
                    )
                  ]
                )
              body: 
                (command.DoGroup
                  children: [
                    (command.Sentence
                      child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<0>})
                      terminator: <Id.Op_Semi _>
                    )
                    (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: <Id.Op_Semi _>
                    )
                    (C {<local>} 
                      {<Id.Lit_VarLike 'mac='> 
                        (DQ 
                          (braced_var_sub
                            token: <Id.VSub_Name ANON>
                            bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name r))})
                          )
                        )
                      }
                    )
                    (C {<_rest>} {(DQ (${ Id.VSub_Name ast))})
                    (C 
                      {
                        (braced_var_sub
                          token: <Id.VSub_Name mac>
                          suffix_op: 
                            (suffix_op.Unary
                              tok: <Id.VOp1_DPercent '%%'>
                              arg_word: {<Id.Lit_Other '@'> <Id.Lit_Other '*'>}
                            )
                        )
                      } 
                      {
                        (braced_var_sub
                          token: <Id.VSub_Name ANON>
                          bracket_op: (bracket_op.ArrayIndex expr:{(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: [793]
                        )
                      ]
                    )
                  ]
                )
            )
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: {(DQ (${ Id.VSub_Name ast))}
                  spids: [804]
                )
              ]
            )
          ]
        )
    )
    (command.ShFunction
      name: EVAL_AST
      body: 
        (BraceGroup
          children: [
            (C {<local>} {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))} 
              {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
            )
            (command.Sentence
              child: (C {<_obj_type>} {(DQ (${ Id.VSub_Name ast))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'ot='> (DQ (${ Id.VSub_Name r))})
            (command.Case
              to_match: {(DQ (${ Id.VSub_Name ot))}
              arms: [
                (case_arm
                  pat_list: [{<symbol>}]
                  action: [
                    (C {<ENV_GET>} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name ast))})
                    (command.ControlFlow token:<Id.ControlFlow_Return return>)
                  ]
                  spids: [874 875 895 -1]
                )
                (case_arm
                  pat_list: [{<list>}]
                  action: [
                    (C {<_map_with_type>} {<_list>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [898 899 920 -1]
                )
                (case_arm
                  pat_list: [{<vector>}]
                  action: [
                    (C {<_map_with_type>} {<_vector>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} 
                      {(DQ (${ Id.VSub_Name env))}
                    )
                  ]
                  spids: [923 924 945 -1]
                )
                (case_arm
                  pat_list: [{<hash_map>}]
                  action: [
                    (C {<local>} {<Id.Lit_VarLike 'res='> (DQ )} {<Id.Lit_VarLike 'key='>} 
                      {<Id.Lit_VarLike 'val='> (DQ )} 
                      {<Id.Lit_VarLike 'hm='> 
                        (DQ 
                          (braced_var_sub
                            token: <Id.VSub_Name ANON>
                            bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name ast))})
                          )
                        )
                      }
                    )
                    (command.Sentence
                      child: (C {<_hash_map>})
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<local>} {<Id.Lit_VarLike 'new_hm='> (DQ (${ Id.VSub_Name r))})
                    (C {<eval>} {<local>} 
                      {<Id.Lit_VarLike 'keys='> 
                        (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{!'> 
                          (${ Id.VSub_Name hm) <'[@]}'>
                        )
                      }
                    )
                    (command.ForEach
                      iter_name: key
                      iter_words: [{(${ Id.VSub_Name keys)}]
                      do_arg_iter: F
                      body: 
                        (command.DoGroup
                          children: [
                            (C {<eval>} 
                              {<Id.Lit_VarLike 'val='> 
                                (DQ (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{'> 
                                  (${ Id.VSub_Name hm) <'['> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (${ Id.VSub_Name key) 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) <']}'>
                                )
                              }
                            )
                            (C {<EVAL>} {(DQ (${ Id.VSub_Name val))} {(DQ (${ Id.VSub_Name env))})
                            (C {<_assoc> <Id.KW_Bang '!'>} {(DQ (${ Id.VSub_Name new_hm))} 
                              {(DQ (${ Id.VSub_Name key))} {(DQ (${ Id.VSub_Name r))}
                            )
                          ]
                        )
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ (${ Id.VSub_Name new_hm))}
                          spids: [1080]
                        )
                      ]
                    )
                  ]
                  spids: [948 949 1087 -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: [1094]
                        )
                      ]
                    )
                  ]
                  spids: [1090 1091 1101 -1]
                )
              ]
            )
          ]
        )
    )
    (command.ShFunction
      name: EVAL
      body: 
        (BraceGroup
          children: [
            (C {<local>} {<Id.Lit_VarLike 'ast='> (DQ (${ Id.VSub_Number 1))} 
              {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 2))}
            )
            (command.WhileUntil
              keyword: <Id.KW_While while>
              cond: 
                (condition.Shell
                  commands: [(command.Sentence child:(C {<true>}) terminator:<Id.Op_Semi _>)]
                )
              body: 
                (command.DoGroup
                  children: [
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: (word.Empty)
                          spids: [1142]
                        )
                      ]
                    )
                    (command.AndOr
                      ops: [Id.Op_DAmp]
                      children: [
                        (command.DBracket
                          expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                        )
                        (command.ControlFlow
                          token: <Id.ControlFlow_Return return>
                          arg_word: {<1>}
                        )
                      ]
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.Pipeline
                                      children: [
                                        (C {<_list> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Name ast))})
                                      ]
                                      negated: T
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1166 1180]
                        )
                      ]
                    )
                    (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: [1224]
                        )
                      ]
                    )
                    (command.If
                      arms: [
                        (if_arm
                          cond: 
                            (condition.Shell
                              commands: [
                                (command.Sentence
                                  child: 
                                    (command.Pipeline
                                      children: [
                                        (C {<_list> <Id.Lit_QMark '?'>} {(DQ (${ Id.VSub_Name ast))})
                                      ]
                                      negated: T
                                    )
                                  terminator: <Id.Op_Semi _>
                                )
                              ]
                            )
                          action: [
                            (C {<EVAL_AST>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1232 1246]
                        )
                      ]
                    )
                    (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: [1281]
                            )
                          ]
                        )
                        (command.ControlFlow
                          token: <Id.ControlFlow_Return return>
                        )
                      ]
                    )
                    (command.Sentence
                      child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<0>})
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<local>} {<Id.Lit_VarLike 'a0='> (DQ (${ Id.VSub_Name r))})
                    (command.Sentence
                      child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<1>})
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<local>} {<Id.Lit_VarLike 'a1='> (DQ (${ Id.VSub_Name r))})
                    (command.Sentence
                      child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<2>})
                      terminator: <Id.Op_Semi _>
                    )
                    (C {<local>} {<Id.Lit_VarLike 'a2='> (DQ (${ Id.VSub_Name r))})
                    (command.Case
                      to_match: 
                        {
                          (DQ 
                            (braced_var_sub
                              token: <Id.VSub_Name ANON>
                              bracket_op: (bracket_op.ArrayIndex expr:{(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: <Id.ControlFlow_Return return>
                                  arg_word: {<1>}
                                )
                              ]
                            )
                            (C {<ENV_SET>} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} 
                              {(DQ (${ Id.VSub_Name r))}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1375 1377 1434 -1]
                        )
                        (case_arm
                          pat_list: [{<let> <Id.Lit_Star '*'>}]
                          action: [
                            (command.Sentence
                              child: (C {<ENV>} {(DQ (${ Id.VSub_Name env))})
                              terminator: <Id.Op_Semi _>
                            )
                            (C {<local>} {<Id.Lit_VarLike 'let_env='> (DQ (${ Id.VSub_Name r))})
                            (C {<local>} 
                              {<Id.Lit_VarLike 'let_pairs='> 
                                (sh_array_literal
                                  left: <Id.Op_LParen _>
                                  words: [
                                    {
                                      (braced_var_sub
                                        token: <Id.VSub_Name ANON>
                                        bracket_op: 
                                          (bracket_op.ArrayIndex
                                            expr: {(DQ (${ Id.VSub_Name a1))}
                                          )
                                      )
                                    }
                                  ]
                                )
                              }
                            )
                            (C {<local>} {<Id.Lit_VarLike 'idx='> <0>})
                            (command.WhileUntil
                              keyword: <Id.KW_While while>
                              cond: 
                                (condition.Shell
                                  commands: [
                                    (command.Sentence
                                      child: 
                                        (command.DBracket
                                          expr: 
                                            (bool_expr.WordTest
                                              w: 
                                                {
                                                  (DQ 
                                                    (braced_var_sub
                                                      token: <Id.VSub_Name let_pairs>
                                                      bracket_op: 
                                                        (bracket_op.ArrayIndex
                                                          expr: {(DQ (${ Id.VSub_Name idx))}
                                                        )
                                                    )
                                                  )
                                                }
                                            )
                                        )
                                      terminator: <Id.Op_Semi _>
                                    )
                                  ]
                                )
                              body: 
                                (command.DoGroup
                                  children: [
                                    (C {<EVAL>} 
                                      {
                                        (DQ 
                                          (braced_var_sub
                                            token: <Id.VSub_Name let_pairs>
                                            bracket_op: 
                                              (bracket_op.ArrayIndex
                                                expr: 
                                                  {
                                                    (word_part.ArithSub
                                                      anode: 
                                                        (arith_expr.Binary
                                                          op_id: Id.Arith_Plus
                                                          left: <Id.Lit_ArithVarLike idx>
                                                          right: {<Id.Lit_Digits 1>}
                                                        )
                                                    )
                                                  }
                                              )
                                          )
                                        )
                                      } {(DQ (${ Id.VSub_Name let_env))}
                                    )
                                    (C {<ENV_SET>} {(DQ (${ Id.VSub_Name let_env))} 
                                      {
                                        (DQ 
                                          (braced_var_sub
                                            token: <Id.VSub_Name let_pairs>
                                            bracket_op: 
                                              (bracket_op.ArrayIndex
                                                expr: {(${ 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: <Id.Lit_ArithVarLike idx>
                                                    right: {<Id.Lit_Digits 2>}
                                                  )
                                              )
                                            }
                                          spids: [1562]
                                        )
                                      ]
                                    )
                                  ]
                                )
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:ast)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name a2))}
                                  spids: [1577]
                                )
                              ]
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: (sh_lhs_expr.Name name:env)
                                  op: assign_op.Equal
                                  rhs: {(DQ (${ Id.VSub_Name let_env))}
                                  spids: [1585]
                                )
                              ]
                            )
                          ]
                          spids: [1437 1439 1597 -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: [1604]
                                )
                              ]
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1600 1601 1614 -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: [1630]
                                )
                              ]
                            )
                          ]
                          spids: [1617 1618 1642 -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: <Id.ControlFlow_Return return>
                                  arg_word: {<1>}
                                )
                              ]
                            )
                            (command.ShAssignment
                              pairs: [
                                (assign_pair
                                  lhs: 
                                    (sh_lhs_expr.IndexedName
                                      name: ANON
                                      index: {(DQ (${ Id.VSub_Name r) <_ismacro_>)}
                                    )
                                  op: assign_op.Equal
                                  rhs: {(DQ <yes>)}
                                  spids: [1682]
                                )
                              ]
                            )
                            (C {<ENV_SET>} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))} 
                              {(DQ (${ Id.VSub_Name r))}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1645 1647 1725 -1]
                        )
                        (case_arm
                          pat_list: [{<macroexpand>}]
                          action: [
                            (C {<MACROEXPAND>} {(DQ (${ Id.VSub_Name a1))} {(DQ (${ Id.VSub_Name env))})
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [1728 1729 1749 -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: {(${ Id.VSub_Name r)}
                                      right: {<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: [1815]
                                    )
                                  ]
                                )
                                (command.ControlFlow
                                  token: <Id.ControlFlow_Return return>
                                  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: [1833]
                                )
                              ]
                            )
                          ]
                          spids: [1752 1753 1845 -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: <Id.ControlFlow_Return return>
                                  arg_word: {<1>}
                                )
                              ]
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (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: <Id.Op_Semi _>
                                        )
                                      ]
                                    )
                                  action: [
                                    (command.Sentence
                                      child: (C {<_nth>} {(DQ (${ Id.VSub_Name ast))} {<3>})
                                      terminator: <Id.Op_Semi _>
                                    )
                                    (C {<local>} {<Id.Lit_VarLike 'a3='> (DQ (${ Id.VSub_Name r))})
                                    (command.If
                                      arms: [
                                        (if_arm
                                          cond: 
                                            (condition.Shell
                                              commands: [
                                                (command.Sentence
                                                  child: 
                                                    (command.DBracket
                                                      expr: 
                                                        (bool_expr.WordTest
                                                          w: {(DQ (${ Id.VSub_Name a3))}
                                                        )
                                                    )
                                                  terminator: <Id.Op_Semi _>
                                                )
                                              ]
                                            )
                                          action: [
                                            (command.ShAssignment
                                              pairs: [
                                                (assign_pair
                                                  lhs: (sh_lhs_expr.Name name:ast)
                                                  op: assign_op.Equal
                                                  rhs: {(DQ (${ Id.VSub_Name a3))}
                                                  spids: [1964]
                                                )
                                              ]
                                            )
                                          ]
                                          spids: [1948 1961]
                                        )
                                      ]
                                      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: [1975]
                                            )
                                          ]
                                        )
                                        (command.ControlFlow
                                          token: <Id.ControlFlow_Return return>
                                        )
                                      ]
                                    )
                                  ]
                                  spids: [1883 1920]
                                )
                              ]
                              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: [1996]
                                    )
                                  ]
                                )
                              ]
                            )
                          ]
                          spids: [1848 1849 2011 -1]
                        )
                        (case_arm
                          pat_list: [{<fn> <Id.Lit_Star '*'>}]
                          action: [
                            (C {<_function>} 
                              {
                                (DQ <'ENV '> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) (${ Id.VSub_Name env) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) (${ Id.VSub_Name a1) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{@}'> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) <'; '> <'                         EVAL '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                                  (${ Id.VSub_Name a2) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' '> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  ) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{r}'> 
                                  (word_part.EscapedLiteral
                                    token: <Id.Lit_EscapedChar '\\"'>
                                  )
                                )
                              } {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name env))} {(DQ (${ Id.VSub_Name a1))}
                            )
                            (command.ControlFlow
                              token: <Id.ControlFlow_Return return>
                            )
                          ]
                          spids: [2014 2016 2076 -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: [2109]
                                    )
                                  ]
                                )
                                (command.ControlFlow
                                  token: <Id.ControlFlow_Return return>
                                  arg_word: {<1>}
                                )
                              ]
                            )
                            (C {<local>} {<Id.Lit_VarLike 'el='> (DQ (${ Id.VSub_Name r))})
                            (command.Sentence
                              child: (C {<_first>} {(DQ (${ Id.VSub_Name el))})
                              terminator: <Id.Op_Semi _>
                            )
                            (C {<local>} 
                              {<Id.Lit_VarLike 'f='> 
                                (DQ 
                                  (braced_var_sub
                                    token: <Id.VSub_Name ANON>
                                    bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name r))})
                                  )
                                )
                              }
                            )
                            (command.Sentence
                              child: (C {<_rest>} {(DQ (${ Id.VSub_Name el))})
                              terminator: <Id.Op_Semi _>
                            )
                            (C {<local>} 
                              {<Id.Lit_VarLike 'args='> 
                                (DQ 
                                  (braced_var_sub
                                    token: <Id.VSub_Name ANON>
                                    bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name r))})
                                  )
                                )
                              }
                            )
                            (command.If
                              arms: [
                                (if_arm
                                  cond: 
                                    (condition.Shell
                                      commands: [
                                        (command.Sentence
                                          child: 
                                            (command.DBracket
                                              expr: 
                                                (bool_expr.Binary
                                                  op_id: Id.BoolBinary_GlobNEqual
                                                  left: 
                                                    {
                                                      (DQ 
                                                        (braced_var_sub
                                                          token: <Id.VSub_Name f>
                                                          suffix_op: 
                                                            (suffix_op.PatSub
                                                              pat: {<Id.Lit_Other '@'>}
                                                              replace: {<' '>}
                                                              replace_mode: Id.Lit_Slash
                                                            )
                                                        )
                                                      )
                                                    }
                                                  right: {(DQ (${ Id.VSub_Name f))}
                                                )
                                            )
                                          terminator: <Id.Op_Semi _>
                                        )
                                      ]
                                    )
                                  action: [
                                    (C {<set>} {<-->} 
                                      {
                                        (braced_var_sub
                                          token: <Id.VSub_Name f>
                                          suffix_op: 
                                            (suffix_op.PatSub
                                              pat: {<Id.Lit_Other '@'>}
                                              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: [2227]
                                        )
                                      ]
                                    )
                                    (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: [2254]
                                        )
                                      ]
                                    )
                                  ]
                                  spids: [2184 2210]
                                )
                              ]
                              else_action: [
                                (C {<eval>} 
                                  {
                                    (braced_var_sub
                                      token: <Id.VSub_Name f>
                                      suffix_op: 
                                        (suffix_op.Unary
                                          tok: <Id.VOp1_DPercent '%%'>
                                          arg_word: {<Id.Lit_Other '@'> <Id.Lit_Other '*'>}
                                        )
                                    )
                                  } {(${ Id.VSub_Name args)}
                                )
                                (command.ControlFlow
                                  token: <Id.ControlFlow_Return return>
                                )
                              ]
                            )
                          ]
                          spids: [2079 2080 2289 -1]
                        )
                      ]
                    )
                  ]
                )
            )
          ]
        )
    )
    (command.ShFunction
      name: PRINT
      body: 
        (BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              expr: (bool_expr.WordTest w:{(DQ (${ Id.VSub_Name __ERROR))})
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  action: [
                    (C {<_pr_str>} {(DQ (${ Id.VSub_Name __ERROR))} {<yes>})
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:r)
                          op: assign_op.Equal
                          rhs: {(DQ <'Error: '> (${ Id.VSub_Name r))}
                          spids: [2338]
                        )
                      ]
                    )
                    (command.ShAssignment
                      pairs: [
                        (assign_pair
                          lhs: (sh_lhs_expr.Name name:__ERROR)
                          op: assign_op.Equal
                          rhs: (word.Empty)
                          spids: [2347]
                        )
                      ]
                    )
                  ]
                  spids: [2311 2324]
                )
              ]
              else_action: [(C {<_pr_str>} {(DQ (${ Id.VSub_Number 1))} {<yes>})]
            )
          ]
        )
    )
    (command.CommandList
      children: [
        (command.Sentence child:(C {<ENV>}) terminator:<Id.Op_Semi _>)
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:REPL_ENV)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name r))}
              spids: [2375]
            )
          ]
        )
      ]
    )
    (command.ShFunction
      name: REP
      body: 
        (BraceGroup
          children: [
            (command.ShAssignment
              pairs: [
                (assign_pair
                  lhs: (sh_lhs_expr.Name name:r)
                  op: assign_op.Equal
                  rhs: (word.Empty)
                  spids: [2390]
                )
              ]
            )
            (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: 
        (BraceGroup
          children: [
            (command.Sentence
              child: (C {<_symbol>} {(DQ (${ Id.VSub_Number 1))})
              terminator: <Id.Op_Semi _>
            )
            (C {<local>} {<Id.Lit_VarLike 'sym='> (DQ (${ Id.VSub_Name r))})
            (C {<_function>} 
              {
                (DQ (${ Id.VSub_Number 2) <' '> 
                  (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\$'>) <'{@}'> 
                  (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>)
                )
              }
            )
            (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: <Id.VSub_Name core_ns>
              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: <Id.VSub_Name core_ns>
                        bracket_op: (bracket_op.ArrayIndex expr:{(DQ (${ Id.VSub_Name n))})
                      )
                    )
                  }
                )
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (command.ShFunction
      name: _eval
      body: 
        (BraceGroup
          children: [
            (command.Sentence
              child: (C {<EVAL>} {(DQ (${ Id.VSub_Number 1))} {(DQ (${ Id.VSub_Name REPL_ENV))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (C {<_fref>} {(DQ <eval>)} {<_eval>})
    (command.CommandList
      children: [
        (command.Sentence child:(C {<_list>}) terminator:<Id.Op_Semi _>)
        (command.ShAssignment
          pairs: [
            (assign_pair
              lhs: (sh_lhs_expr.Name name:argv)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name r))}
              spids: [2572]
            )
          ]
        )
      ]
    )
    (command.ForEach
      iter_name: _arg
      iter_words: [
        {
          (DQ 
            (braced_var_sub
              token: <Id.VSub_At '@'>
              suffix_op: (suffix_op.Slice begin:{<Id.Lit_Digits 2>})
            )
          )
        }
      ]
      do_arg_iter: F
      body: 
        (command.DoGroup
          children: [
            (command.Sentence
              child: (C {<_string>} {(DQ (${ Id.VSub_Name _arg))})
              terminator: <Id.Op_Semi _>
            )
            (command.Sentence
              child: 
                (C {<_conj> <Id.KW_Bang '!'>} {(DQ (${ Id.VSub_Name argv))} {(DQ (${ Id.VSub_Name r))})
              terminator: <Id.Op_Semi _>
            )
          ]
        )
    )
    (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: <Id.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.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <'(do '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <' (slurp f) '> 
          (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <')'> (word_part.EscapedLiteral token:<Id.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.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <'odd number of forms to cond'> 
          (word_part.EscapedLiteral token:<Id.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.EscapedLiteral token:<Id.Lit_EscapedChar '\\`'>) <'(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))'>
        )
      }
    )
    (command.If
      arms: [
        (if_arm
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Number 1))}))
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          action: [
            (C {<REP>} 
              {
                (DQ <'(load-file '> (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) 
                  (${ Id.VSub_Number 1) (word_part.EscapedLiteral token:<Id.Lit_EscapedChar '\\"'>) <')'>
                )
              }
            )
            (command.ControlFlow token:<Id.ControlFlow_Exit exit> arg_word:{<0>})
          ]
          spids: [2696 2709]
        )
      ]
    )
    (command.WhileUntil
      keyword: <Id.KW_While while>
      cond: 
        (condition.Shell
          commands: [(command.Sentence child:(C {<true>}) terminator:<Id.Op_Semi _>)]
        )
      body: 
        (command.DoGroup
          children: [
            (command.AndOr
              ops: [Id.Op_DPipe]
              children: [
                (C {<READLINE>} {(DQ <'user> '>)})
                (command.ControlFlow
                  token: <Id.ControlFlow_Exit exit>
                  arg_word: {(DQ ($ Id.VSub_QMark '$?'))}
                )
              ]
            )
            (command.AndOr
              ops: [Id.Op_DAmp Id.Op_DAmp]
              children: [
                (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ Id.VSub_Name r))}))
                (C {<REP>} {(DQ (${ Id.VSub_Name r))})
                (C {<echo>} {(DQ (${ Id.VSub_Name r))})
              ]
            )
          ]
        )
    )
  ]
)