(command.CommandList
  children: [
    (command.AndOr
      children: [
        (command.Simple
          blame_tok: <Id.Lit_LBracket '['>
          more_env: []
          words: [
            {<Id.Lit_LBracket '['>}
            {
              (BracedVarSub
                left: <Id.Left_DollarBrace '${'>
                token: <Id.VSub_Name SPECIALFORMS_LAMBDA_SH>
                var_name: SPECIALFORMS_LAMBDA_SH
                suffix_op: (suffix_op.Unary op:<Id.VTest_Plus _> arg_word:{<true>})
                right: <Id.Right_DollarBrace '}'>
              )
            }
            {<Id.Lit_RBracket ']'>}
          ]
          redirects: []
          do_fork: T
        )
        (command.ControlFlow keyword:<Id.ControlFlow_Return return>)
      ]
      ops: [<Id.Op_DAmp _>]
    )
    (command.Simple
      blame_tok: <declare>
      more_env: []
      words: [{<declare>} {<-g>} {<Id.Lit_VarLike 'SPECIALFORMS_LAMBDA_SH='> <true>}]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [
        {<.>}
        {
          (BracedVarSub
            left: <Id.Left_DollarBrace '${'>
            token: <Id.VSub_Name BASH_SOURCE>
            var_name: BASH_SOURCE
            suffix_op: 
              (suffix_op.Unary
                op: <Id.VOp1_Percent '%'>
                arg_word: {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
              )
            right: <Id.Right_DollarBrace '}'>
          ) <'/common.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [
        {<.>}
        {
          (BracedVarSub
            left: <Id.Left_DollarBrace '${'>
            token: <Id.VSub_Name BASH_SOURCE>
            var_name: BASH_SOURCE
            suffix_op: 
              (suffix_op.Unary
                op: <Id.VOp1_Percent '%'>
                arg_word: {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
              )
            right: <Id.Right_DollarBrace '}'>
          ) <'/test.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [
        {<.>}
        {
          (BracedVarSub
            left: <Id.Left_DollarBrace '${'>
            token: <Id.VSub_Name BASH_SOURCE>
            var_name: BASH_SOURCE
            suffix_op: 
              (suffix_op.Unary
                op: <Id.VOp1_Percent '%'>
                arg_word: {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
              )
            right: <Id.Right_DollarBrace '}'>
          ) <'/specialforms.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <.>
      more_env: []
      words: [
        {<.>}
        {
          (BracedVarSub
            left: <Id.Left_DollarBrace '${'>
            token: <Id.VSub_Name BASH_SOURCE>
            var_name: BASH_SOURCE
            suffix_op: 
              (suffix_op.Unary
                op: <Id.VOp1_Percent '%'>
                arg_word: {<Id.Lit_Slash '/'> <Id.Lit_Other '*'>}
              )
            right: <Id.Right_DollarBrace '}'>
          ) <'/callable.lambda.sh'>
        }
      ]
      redirects: []
      do_fork: T
    )
    (command.ShFunction
      keyword: <Id.KW_Function function>
      name_tok: <evaluator>
      name: 'evaluator::specialforms::lambda'
      body: 
        (BraceGroup
          left: <Id.Lit_LBrace '{'>
          children: [
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<Id.Lit_VarLike 'env='> (DQ (${ Id.VSub_Number 1))}]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<Id.Lit_VarLike 'functionName='> (DQ (${ Id.VSub_Number 2))}]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<Id.Lit_VarLike 'args='> (DQ (${ Id.VSub_Number 3))}]
              redirects: []
              do_fork: T
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <variable>
                  more_env: []
                  words: [
                    {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                      <Id.Lit_Colon ':'> <length>
                    }
                    {($ Id.VSub_DollarName args)}
                  ]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<-i>} {<Id.Lit_VarLike 'length='> (DQ (${ Id.VSub_Name RESULT))}]
              redirects: []
              do_fork: T
            )
            (command.If
              if_kw: <Id.KW_If if>
              arms: [
                (IfArm
                  keyword: <Id.KW_If if>
                  cond: 
                    (condition.Shell
                      commands: [
                        (command.Sentence
                          child: 
                            (command.DBracket
                              left: <Id.KW_DLeftBracket '[['>
                              expr: 
                                (bool_expr.Binary
                                  op_id: Id.Op_Less
                                  left: {($ Id.VSub_DollarName length)}
                                  right: {<2>}
                                )
                              right: <Id.Lit_DRightBracket ']]'>
                              redirects: []
                            )
                          terminator: <Id.Op_Semi _>
                        )
                      ]
                    )
                  then_kw: <Id.KW_Then then>
                  action: [
                    (command.Simple
                      blame_tok: <stderr>
                      more_env: []
                      words: [{<stderr>} {(DQ <'usage: (if condition true-branch false-branch)'>)}]
                      redirects: []
                      do_fork: T
                    )
                    (command.ControlFlow
                      keyword: <Id.ControlFlow_Exit exit>
                      arg_word: {<1>}
                    )
                  ]
                  spids: [206 219]
                )
              ]
              else_action: []
              fi_kw: <Id.KW_Fi fi>
              redirects: []
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <variable>
                  more_env: []
                  words: [
                    {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                      <Id.Lit_Colon ':'> <first>
                    }
                    {($ Id.VSub_DollarName args)}
                  ]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<Id.Lit_VarLike 'formalArgs='> (${ Id.VSub_Name RESULT)}]
              redirects: []
              do_fork: T
            )
            (command.Sentence
              child: 
                (command.Simple
                  blame_tok: <variable>
                  more_env: []
                  words: [
                    {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                      <Id.Lit_Colon ':'> <rest>
                    }
                    {($ Id.VSub_DollarName args)}
                  ]
                  redirects: []
                  do_fork: T
                )
              terminator: <Id.Op_Semi _>
            )
            (command.Simple
              blame_tok: <declare>
              more_env: []
              words: [{<declare>} {<Id.Lit_VarLike 'expressions='> (${ Id.VSub_Name RESULT)}]
              redirects: []
              do_fork: T
            )
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <Lambda> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
                {
                  (DQ (${ Id.VSub_Name env) <' '> (${ Id.VSub_Name formalArgs) <' '> 
                    (${ Id.VSub_Name expressions)
                  )
                }
              ]
              redirects: []
              do_fork: T
            )
            (command.ShAssignment
              left: <Id.Lit_VarLike 'RESULT='>
              pairs: [
                (AssignPair
                  left: <Id.Lit_VarLike 'RESULT='>
                  lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'RESULT='> name:RESULT)
                  op: assign_op.Equal
                  rhs: {(DQ (${ Id.VSub_Name RESULT))}
                )
              ]
              redirects: []
            )
          ]
          redirects: []
          right: <Id.Lit_RBrace '}'>
        )
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.Simple
                      blame_tok: <Id.Lit_LBracket '['>
                      more_env: []
                      words: [
                        {<Id.Lit_LBracket '['>}
                        {($ Id.VSub_Number 0)}
                        {<Id.KW_Bang '!'> <Id.Lit_Equals '='>}
                        {($ Id.VSub_DollarName BASH_SOURCE)}
                        {<Id.Lit_RBracket ']'>}
                      ]
                      redirects: []
                      do_fork: T
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [(command.ControlFlow keyword:<Id.ControlFlow_Return return>)]
          spids: [320 334]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <createTestEnv>
              more_env: []
              words: [{<createTestEnv>}]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'env='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'env='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'env='> name:env)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'command='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'command='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'command='> name:command)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Identifier>} {(DQ <lambda>)}]
      redirects: []
      do_fork: T
    )
    (command.Sentence
      child: 
        (command.Simple
          blame_tok: <variable>
          more_env: []
          words: [
            {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
              <Id.Lit_Colon ':'> <new>
            }
          ]
          redirects: []
          do_fork: T
        )
      terminator: <Id.Op_Semi _>
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName RESULT)}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Integer>} {<1>}]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <evaluator>
              more_env: []
              words: [
                {<evaluator> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <eval>}
                {($ Id.VSub_DollarName env)}
                {($ Id.VSub_DollarName command)}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'lambda='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'lambda='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'lambda='> name:lambda)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <toSexp>}
                {(DQ (${ Id.VSub_Name lambda))}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.Simple
          blame_tok: <assert>
          more_env: []
          words: [
            {<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <equals>}
            {(DQ <'(lambda () 1)'>)}
            {(DQ (${ Id.VSub_Name RESULT))}
            {(DQ <'(lambda () 1)'>)}
          ]
          redirects: []
          do_fork: T
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <Lambda> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <getEnv>
                }
                {($ Id.VSub_DollarName lambda)}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.Simple
          blame_tok: <assert>
          more_env: []
          words: [
            {<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <equals>}
            {($ Id.VSub_DollarName env)}
            {($ Id.VSub_DollarName RESULT)}
            {(DQ <'<original env> = <stored env>'>)}
          ]
          redirects: []
          do_fork: T
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <createTestEnv>
              more_env: []
              words: [{<createTestEnv>}]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'env='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'env='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'env='> name:env)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'command='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'command='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'command='> name:command)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Identifier>} {(DQ <lambda>)}]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'argList='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'argList='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'argList='> name:argList)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [
        {<appendToList>}
        {(${ Id.VSub_Name argList)}
        {<Identifier>}
        {<a>}
        {<Identifier>}
        {<b>}
        {<Identifier>}
        {<c>}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName argList)}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Integer>} {<1>}]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <evaluator>
              more_env: []
              words: [
                {<evaluator> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <eval>}
                {($ Id.VSub_DollarName env)}
                {($ Id.VSub_DollarName command)}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'lambda='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'lambda='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'lambda='> name:lambda)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <toSexp>}
                {(DQ (${ Id.VSub_Name lambda))}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.Simple
          blame_tok: <assert>
          more_env: []
          words: [
            {<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <equals>}
            {(DQ <'(lambda (a b c) 1)'>)}
            {(DQ (${ Id.VSub_Name RESULT))}
            {(DQ <'(lambda (a b c) 1)'>)}
          ]
          redirects: []
          do_fork: T
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <createTestEnv>
              more_env: []
              words: [{<createTestEnv>}]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'env='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'env='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'env='> name:env)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'command='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'command='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'command='> name:command)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Identifier>} {(DQ <lambda>)}]
      redirects: []
      do_fork: T
    )
    (command.Sentence
      child: 
        (command.Simple
          blame_tok: <variable>
          more_env: []
          words: [
            {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
              <Id.Lit_Colon ':'> <new>
            }
          ]
          redirects: []
          do_fork: T
        )
      terminator: <Id.Op_Semi _>
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName RESULT)}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Identifier>} {<x>} {<Identifier>} {<y>}]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <evaluator>
              more_env: []
              words: [
                {<evaluator> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <eval>}
                {($ Id.VSub_DollarName env)}
                {($ Id.VSub_DollarName command)}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'lambda='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'lambda='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'lambda='> name:lambda)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <toSexp>}
                {(DQ (${ Id.VSub_Name lambda))}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.Simple
          blame_tok: <assert>
          more_env: []
          words: [
            {<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <equals>}
            {(DQ <'(lambda () x y)'>)}
            {(DQ (${ Id.VSub_Name RESULT))}
            {(DQ <'(lambda () x y)'>)}
          ]
          redirects: []
          do_fork: T
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <createTestEnv>
              more_env: []
              words: [{<createTestEnv>}]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'env='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'env='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'env='> name:env)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'command='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'command='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'command='> name:command)
              op: assign_op.Equal
              rhs: {(DQ (${ Id.VSub_Name RESULT))}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [{<appendToList>} {($ Id.VSub_DollarName command)} {<Identifier>} {(DQ <lambda>)}]
      redirects: []
      do_fork: T
    )
    (command.Sentence
      child: 
        (command.Simple
          blame_tok: <variable>
          more_env: []
          words: [
            {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
              <Id.Lit_Colon ':'> <new>
            }
          ]
          redirects: []
          do_fork: T
        )
      terminator: <Id.Op_Semi _>
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName RESULT)}
      ]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'sc1='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'sc1='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'sc1='> name:sc1)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [
        {<appendToList>}
        {($ Id.VSub_DollarName sc1)}
        {<Identifier>}
        {<Id.Lit_Other '+'>}
        {<Integer>}
        {<1>}
        {<Integer>}
        {<2>}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName sc1)}
      ]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
                  <Id.Lit_Colon ':'> <new>
                }
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'sc2='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'sc2='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'sc2='> name:sc2)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.Simple
      blame_tok: <appendToList>
      more_env: []
      words: [
        {<appendToList>}
        {($ Id.VSub_DollarName sc2)}
        {<Identifier>}
        {<Id.Lit_Other '+'>}
        {<Integer>}
        {<2>}
        {<Integer>}
        {<3>}
      ]
      redirects: []
      do_fork: T
    )
    (command.Simple
      blame_tok: <variable>
      more_env: []
      words: [
        {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <LinkedList> <Id.Lit_Colon ':'> 
          <Id.Lit_Colon ':'> <append>
        }
        {($ Id.VSub_DollarName command)}
        {($ Id.VSub_DollarName sc2)}
      ]
      redirects: []
      do_fork: T
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <evaluator>
              more_env: []
              words: [
                {<evaluator> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <eval>}
                {($ Id.VSub_DollarName env)}
                {($ Id.VSub_DollarName command)}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.ShAssignment
          left: <Id.Lit_VarLike 'lambda='>
          pairs: [
            (AssignPair
              left: <Id.Lit_VarLike 'lambda='>
              lhs: (sh_lhs_expr.Name left:<Id.Lit_VarLike 'lambda='> name:lambda)
              op: assign_op.Equal
              rhs: {(${ Id.VSub_Name RESULT)}
            )
          ]
          redirects: []
        )
      ]
    )
    (command.CommandList
      children: [
        (command.Sentence
          child: 
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [
                {<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <toSexp>}
                {(DQ (${ Id.VSub_Name lambda))}
              ]
              redirects: []
              do_fork: T
            )
          terminator: <Id.Op_Semi _>
        )
        (command.Simple
          blame_tok: <assert>
          more_env: []
          words: [
            {<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <equals>}
            {(DQ <'(lambda () (+ 1 2) (+ 2 3))'>)}
            {(DQ (${ Id.VSub_Name RESULT))}
            {(DQ <'(lambda () (+ 1 2) (+ 2 3))'>)}
          ]
          redirects: []
          do_fork: T
        )
      ]
    )
    (command.Simple
      blame_tok: <assert>
      more_env: []
      words: [{<assert> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <report>}]
      redirects: []
      do_fork: T
    )
    (command.If
      if_kw: <Id.KW_If if>
      arms: [
        (IfArm
          keyword: <Id.KW_If if>
          cond: 
            (condition.Shell
              commands: [
                (command.Sentence
                  child: 
                    (command.AndOr
                      children: [
                        (command.Simple
                          blame_tok: <Id.Lit_LBracket '['>
                          more_env: []
                          words: [
                            {<Id.Lit_LBracket '['>}
                            {
                              (BracedVarSub
                                left: <Id.Left_DollarBrace '${'>
                                token: <Id.VSub_Number 1>
                                var_name: 1
                                suffix_op: (suffix_op.Unary op:<Id.VTest_Plus _> arg_word:{<isset>})
                                right: <Id.Right_DollarBrace '}'>
                              )
                            }
                            {<Id.Lit_RBracket ']'>}
                          ]
                          redirects: []
                          do_fork: T
                        )
                        (command.Simple
                          blame_tok: <Id.Lit_LBracket '['>
                          more_env: []
                          words: [
                            {<Id.Lit_LBracket '['>}
                            {(DQ ($ Id.VSub_Number 1))}
                            {<Id.Lit_Equals '='> <Id.Lit_Equals '='>}
                            {(DQ <debug>)}
                            {<Id.Lit_RBracket ']'>}
                          ]
                          redirects: []
                          do_fork: T
                        )
                      ]
                      ops: [<Id.Op_DAmp _>]
                    )
                  terminator: <Id.Op_Semi _>
                )
              ]
            )
          then_kw: <Id.KW_Then then>
          action: [
            (command.Simple
              blame_tok: <variable>
              more_env: []
              words: [{<variable> <Id.Lit_Colon ':'> <Id.Lit_Colon ':'> <printMetadata>}]
              redirects: []
              do_fork: T
            )
          ]
          spids: [1024 1054]
        )
      ]
      else_action: []
      fi_kw: <Id.KW_Fi fi>
      redirects: []
    )
  ]
)