(command.CommandList
  children: [
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
        ) (/reader.sh)
      }
    )
    (C {(source)} 
      {
        (word_part.CommandSubPart
          command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})])
          left_token: <Left_CommandSub '$('>
        ) (/printer.sh)
      }
    )
    (command.FuncDef
      name: READ
      body: 
        (command.BraceGroup
          children: [
            (command.AndOr
              ops: [Op_DAmp Op_DPipe]
              children: [
                (C {(Lit_Other '[')} {(DQ (${ VSub_Number 1))} {(Lit_Other ']')})
                (command.Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (lhs_expr.LhsName name:r)
                      op: Equal
                      rhs: {(DQ (${ VSub_Number 1))}
                    )
                  ]
                )
                (C {(READLINE)})
              ]
            )
            (C {(READ_STR)} {(DQ (${ VSub_Name r))})
          ]
        )
    )
    (command.FuncDef
      name: EVAL
      body: 
        (command.BraceGroup
          children: [
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:ast)
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 1))}
                )
              ]
            )
            (command.Assignment
              keyword: Assign_Local
              pairs: [
                (assign_pair
                  lhs: (lhs_expr.LhsName name:env)
                  op: Equal
                  rhs: {(DQ (${ VSub_Number 2))}
                )
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(lhs_expr.LhsName name:r) op:Equal rhs:(word.EmptyWord))]
            )
            (command.AndOr
              ops: [Op_DAmp]
              children: [
                (command.DBracket
                  expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))})
                )
                (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
            )
            (command.Assignment
              keyword: Assign_None
              pairs: [(assign_pair lhs:(lhs_expr.LhsName name:r) op:Equal rhs:{(DQ (${ VSub_Name ast))})]
            )
          ]
        )
    )
    (command.FuncDef
      name: PRINT
      body: 
        (command.BraceGroup
          children: [
            (command.If
              arms: [
                (if_arm
                  cond: [
                    (command.Sentence
                      child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}))
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(_pr_str)} {(DQ (${ VSub_Name __ERROR))} {(yes)})
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (lhs_expr.LhsName name:r)
                          op: Equal
                          rhs: {(DQ ('Error: ') (${ VSub_Name r))}
                        )
                      ]
                    )
                    (command.Assignment
                      keyword: Assign_None
                      pairs: [(assign_pair lhs:(lhs_expr.LhsName name:__ERROR) op:Equal rhs:(word.EmptyWord))]
                    )
                  ]
                )
              ]
              else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})]
            )
          ]
        )
    )
    (command.FuncDef
      name: REP
      body: 
        (command.BraceGroup
          children: [
            (C {(READ)} {(DQ (${ VSub_Number 1))})
            (C {(EVAL)} {(DQ (${ VSub_Name r))})
            (C {(PRINT)} {(DQ (${ VSub_Name r))})
          ]
        )
    )
    (command.WhileUntil
      keyword: <KW_While while>
      cond: [(command.Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)]
      body: 
        (command.DoGroup
          children: [
            (command.AndOr
              ops: [Op_DPipe]
              children: [
                (C {(READLINE)} {(DQ ('user> '))})
                (command.ControlFlow
                  token: <ControlFlow_Exit exit>
                  arg_word: {(DQ ($ VSub_QMark '$?'))}
                )
              ]
            )
            (command.AndOr
              ops: [Op_DAmp Op_DAmp]
              children: [
                (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name r))}))
                (C {(REP)} {(DQ (${ VSub_Name r))})
                (C {(echo)} {(DQ (${ VSub_Name r))})
              ]
            )
          ]
        )
    )
  ]
)