(command.CommandList children: [ (C {(source)} { (word_part.CommandSubPart command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})]) left_token: <Left_CommandSub '$('> spids: [6 10] ) (/reader.sh) } ) (C {(source)} { (word_part.CommandSubPart command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})]) left_token: <Left_CommandSub '$('> spids: [15 19] ) (/printer.sh) } ) (C {(source)} { (word_part.CommandSubPart command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})]) left_token: <Left_CommandSub '$('> spids: [24 28] ) (/env.sh) } ) (C {(source)} { (word_part.CommandSubPart command_list: (command.CommandList children:[(C {(dirname)} {($ VSub_Number '$0')})]) left_token: <Left_CommandSub '$('> spids: [33 37] ) (/core.sh) } ) (command.FuncDef name: READ body: (command.BraceGroup children: [ (command.AndOr ops: [Op_DAmp Op_DPipe] children: [ (C {(Lit_Other '[')} {(DQ (${ VSub_Number 1))} {(Lit_Other ']')}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[64]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [64] ) ] spids: [64] ) (C {(READLINE)}) ] ) (C {(READ_STR)} {(DQ (${ VSub_Name r))}) ] spids: [49] ) spids: [44 48] ) (command.FuncDef name: EVAL_AST body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[100]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [100] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[107]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [107] ) ] spids: [98] ) (command.Sentence child: (C {(_obj_type)} {(DQ (${ VSub_Name ast))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ot spids:[130]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [130] ) ] spids: [128] ) (command.Case to_match: {(DQ (${ VSub_Name ot))} arms: [ (case_arm pat_list: [{(symbol)}] action: [ (C {(ENV_GET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name ast))}) (command.ControlFlow token:<ControlFlow_Return return>) ] spids: [149 150 170 16777215] ) (case_arm pat_list: [{(list)}] action: [ (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [173 174 195 16777215] ) (case_arm pat_list: [{(vector)}] action: [ (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [198 199 220 16777215] ) (case_arm pat_list: [{(hash_map)}] action: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:res spids:[229]) op: Equal rhs: {(DQ )} spids: [229] ) (assign_pair lhs: (lhs_expr.LhsName name:key spids:[233]) op: Equal rhs: (word.EmptyWord) spids: [233] ) (assign_pair lhs: (lhs_expr.LhsName name:val spids:[235]) op: Equal rhs: {(DQ )} spids: [235] ) (assign_pair lhs: (lhs_expr.LhsName name:hm spids:[239]) op: Equal rhs: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name ast))}) ) spids: [241 250] ) ) } spids: [239] ) ] spids: [227] ) (command.Sentence child: (C {(_hash_map)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:new_hm spids:[259]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [259] ) ] spids: [257] ) (C {(eval)} {(Assign_Local local)} {(Lit_VarLike 'keys=') (DQ (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{!') (${ VSub_Name hm) ('[@]}') ) } ) (command.ForEach iter_name: key iter_words: [{(${ VSub_Name keys)}] do_arg_iter: F body: (command.DoGroup children: [ (C {(eval)} {(Lit_VarLike 'val=') (DQ (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{') (${ VSub_Name hm) ('[') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (${ VSub_Name key) (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) (']}') ) } ) (C {(EVAL)} {(DQ (${ VSub_Name val))} {(DQ (${ VSub_Name env))}) (C {(_assoc) (KW_Bang '!')} {(DQ (${ VSub_Name new_hm))} {(DQ (${ VSub_Name key))} {(DQ (${ VSub_Name r))} ) ] spids: [293 352] ) spids: [287 291] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[355]) op: Equal rhs: {(DQ (${ VSub_Name new_hm))} spids: [355] ) ] spids: [355] ) ] spids: [223 224 362 16777215] ) (case_arm pat_list: [{(Lit_Other '*')}] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[369]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [369] ) ] spids: [369] ) ] spids: [365 366 376 16777215] ) ] spids: [138 146 379] ) ] spids: [95] ) spids: [90 94] ) (command.FuncDef name: EVAL body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[394]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [394] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[401]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [401] ) ] spids: [392] ) (command.WhileUntil keyword: <KW_While while> cond: [(command.Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)] body: (command.DoGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[417]) op: Equal rhs: (word.EmptyWord) spids: [417] ) ] spids: [417] ) (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.Sentence child: (C {(_obj_type)} {(DQ (${ VSub_Name ast))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ot spids:[452]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [452] ) ] spids: [450] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.BoolBinary op_id: BoolBinary_GlobNEqual left: {(DQ (${ VSub_Name ot))} right: {(DQ (list))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [16777215 479] ) ] spids: [16777215 500] ) (command.AndOr ops: [Op_DAmp Op_DAmp] children: [ (C {(_empty) (Lit_Other '?')} {(DQ (${ VSub_Name ast))}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[514]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [514] ) ] spids: [514] ) (command.ControlFlow token: <ControlFlow_Return return> ) ] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(0)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a0 spids:[544]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [544] ) ] spids: [542] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(1)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a1 spids:[565]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [565] ) ] spids: [563] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(2)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a2 spids:[586]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [586] ) ] spids: [584] ) (command.Case to_match: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name a0))}) ) spids: [597 606] ) ) } arms: [ (case_arm pat_list: [{(def) (KW_Bang '!')}] action: [ (C {(EVAL)} {(DQ (${ VSub_Name a2))} {(DQ (${ VSub_Name env))}) (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}) ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] ) (C {(ENV_SET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name r))} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [612 614 671 16777215] ) (case_arm pat_list: [{(let) (Lit_Other '*')}] action: [ (command.Sentence child: (C {(ENV)} {(DQ (${ VSub_Name env))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:let_env spids:[689]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [689] ) ] spids: [687] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:let_pairs spids:[699]) op: Equal rhs: { (word_part.ArrayLiteralPart words: [ { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ VSub_Name a1))} ) ) spids: [701 710] ) } ] ) } spids: [699] ) ] spids: [697] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:idx spids:[716]) op: Equal rhs: {(0)} spids: [716] ) ] spids: [714] ) (command.WhileUntil keyword: <KW_While while> cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w: { (DQ (word_part.BracedVarSub token: <VSub_Name let_pairs> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ VSub_Name idx))} ) ) spids: [729 738] ) ) } ) ) terminator: <Op_Semi ';'> ) ] body: (command.DoGroup children: [ (C {(EVAL)} { (DQ (word_part.BracedVarSub token: <VSub_Name let_pairs> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Plus left: (arith_expr.ArithVarRef token: <Lit_ArithVarLike idx> ) right: (arith_expr.ArithWord w: {(Lit_Digits 1)} ) ) spids: [753 761] ) } ) ) spids: [750 763] ) ) } {(DQ (${ VSub_Name let_env))} ) (C {(ENV_SET)} {(DQ (${ VSub_Name let_env))} { (DQ (word_part.BracedVarSub token: <VSub_Name let_pairs> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(${ VSub_Name idx)}) ) spids: [782 789] ) ) } {(DQ (${ VSub_Name r))} ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:idx spids:[799]) op: Equal rhs: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Plus left: (arith_expr.ArithVarRef token: <Lit_ArithVarLike idx> ) right: (arith_expr.ArithWord w:{(Lit_Digits 2)}) ) spids: [800 808] ) } spids: [799] ) ] spids: [799] ) ] spids: [744 811] ) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[814]) op: Equal rhs: {(DQ (${ VSub_Name a2))} spids: [814] ) ] spids: [814] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:env spids:[822]) op: Equal rhs: {(DQ (${ VSub_Name let_env))} spids: [822] ) ] spids: [822] ) ] spids: [674 676 834 16777215] ) (case_arm pat_list: [{(KW_Do do)}] action: [ (C {(_count)} {(DQ (${ VSub_Name ast))}) (C {(_slice)} {(DQ (${ VSub_Name ast))} {(1)} { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Minus left: (arith_expr.ArithWord w:{(${ VSub_Name r)}) right: (arith_expr.ArithWord w:{(Lit_Digits 2)}) ) spids: [859 870] ) } ) (C {(EVAL_AST)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name env))}) (command.AndOr ops: [Op_DAmp Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[900]) op: Equal rhs: (word.EmptyWord) spids: [900] ) ] spids: [900] ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] ) (C {(_last)} {(DQ (${ VSub_Name ast))}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[918]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [918] ) ] spids: [918] ) ] spids: [837 838 930 16777215] ) (case_arm pat_list: [{(KW_If if)}] action: [ (C {(EVAL)} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name env))}) (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}) ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.LogicalOr left: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: {(DQ (${ VSub_Name r))} right: {(DQ (${ VSub_Name __false))} ) right: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: {(DQ (${ VSub_Name r))} right: {(DQ (${ VSub_Name __nil))} ) ) ) terminator: <Op_Semi ';'> ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name ast))} {(3)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a3 spids:[1025]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1025] ) ] spids: [1023] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name a3))}) ) terminator: <Op_Semi ';'> ) ] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1049]) op: Equal rhs: {(DQ (${ VSub_Name a3))} spids: [1049] ) ] spids: [1049] ) ] spids: [16777215 1046] ) ] else_action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1060]) op: Equal rhs: {(DQ (${ VSub_Name __nil))} spids: [1060] ) ] spids: [1060] ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1057 1071] ) ] spids: [16777215 1005] ) ] else_action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1081]) op: Equal rhs: {(DQ (${ VSub_Name a2))} spids: [1081] ) ] spids: [1081] ) ] spids: [1074 1089] ) ] spids: [933 934 1096 16777215] ) (case_arm pat_list: [{(fn) (Lit_Other '*')}] action: [ (C {(_function)} { (DQ ('ENV ') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) (${ VSub_Name env) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) (${ VSub_Name a1) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{@}') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) ('; ') (' EVAL ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (${ VSub_Name a2) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' ') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{r}') (word_part.EscapedLiteralPart token: <Lit_EscapedChar '\\"'> ) ) } {(DQ (${ VSub_Name a2))} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1099 1101 1161 16777215] ) (case_arm pat_list: [{(Lit_Other '*')}] action: [ (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) (command.AndOr ops: [Op_DAmp Op_DAmp] children: [ (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))}) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1194]) op: Equal rhs: (word.EmptyWord) spids: [1194] ) ] spids: [1194] ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:el spids:[1205]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1205] ) ] spids: [1203] ) (command.Sentence child: (C {(_first)} {(DQ (${ VSub_Name el))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:f spids:[1224]) op: Equal rhs: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name r))}) ) spids: [1226 1235] ) ) } spids: [1224] ) ] spids: [1222] ) (command.Sentence child: (C {(_rest)} {(DQ (${ VSub_Name el))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:args spids:[1250]) op: Equal rhs: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name r))}) ) spids: [1252 1261] ) ) } spids: [1250] ) ] spids: [1248] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.BoolBinary op_id: BoolBinary_GlobNEqual left: { (DQ (word_part.BracedVarSub token: <VSub_Name f> suffix_op: (suffix_op.PatSub pat: {('@')} replace: {(' ')} replace_mode: Lit_Slash spids: [1276] ) spids: [1274 1281] ) ) } right: {(DQ (${ VSub_Name f))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (C {(set)} {(--)} { (word_part.BracedVarSub token: <VSub_Name f> suffix_op: (suffix_op.PatSub pat: {('@')} replace: {(' ')} replace_mode: Lit_Slash spids: [1304] ) spids: [1302 1309] ) } ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1312]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [1312] ) ] spids: [1312] ) (C {(ENV)} {(DQ (${ VSub_Number 3))} {(DQ (${ VSub_Number 4))} {(${ VSub_Name args)} ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:env spids:[1339]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1339] ) ] spids: [1339] ) ] spids: [16777215 1295] ) ] else_action: [ (C {(eval)} { (word_part.BracedVarSub token: <VSub_Name f> suffix_op: (suffix_op.StringUnary op_id: VOp1_DPercent arg_word: {('@*')} ) spids: [1352 1356] ) } {(${ VSub_Name args)} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1347 1366] ) ] spids: [1164 1165 1373 16777215] ) ] spids: [594 609 1376] ) ] spids: [414 1379] ) ) ] spids: [389] ) spids: [384 388] ) (command.FuncDef name: PRINT body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name __ERROR))})) terminator: <Op_Semi ';'> ) ] action: [ (C {(_pr_str)} {(DQ (${ VSub_Name __ERROR))} {(yes)}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1422]) op: Equal rhs: {(DQ ('Error: ') (${ VSub_Name r))} spids: [1422] ) ] spids: [1422] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:__ERROR spids:[1431]) op: Equal rhs: (word.EmptyWord) spids: [1431] ) ] spids: [1431] ) ] spids: [16777215 1408] ) ] else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})] spids: [1434 1448] ) ] spids: [1392] ) spids: [1387 1391] ) (command.CommandList children: [ (command.Sentence child:(C {(ENV)}) terminator:<Op_Semi ';'>) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:REPL_ENV spids:[1459]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1459] ) ] spids: [1459] ) ] ) (command.FuncDef name: REP body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1474]) op: Equal rhs: (word.EmptyWord) spids: [1474] ) ] spids: [1474] ) (C {(READ)} {(DQ (${ VSub_Number 1))}) (C {(EVAL)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name REPL_ENV))}) (C {(PRINT)} {(DQ (${ VSub_Name r))}) ] spids: [1471] ) spids: [1466 1470] ) (command.FuncDef name: _fref body: (command.BraceGroup children: [ (command.Sentence child: (C {(_symbol)} {(DQ (${ VSub_Number 1))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:sym spids:[1534]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1534] ) ] spids: [1532] ) (C {(_function)} { (DQ (${ VSub_Number 2) (' ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{@}') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ) } ) (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name sym))} {(DQ (${ VSub_Name r))} ) ] spids: [1520] ) spids: [1515 1519] ) (command.ForEach iter_name: n iter_words: [ { (DQ (word_part.BracedVarSub token: <VSub_Name core_ns> prefix_op: VSub_Bang bracket_op: (bracket_op.WholeArray op_id:Lit_At) spids: [1585 1591] ) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.Sentence child: (C {(_fref)} {(DQ (${ VSub_Name n))} { (DQ (word_part.BracedVarSub token: <VSub_Name core_ns> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name n))}) ) spids: [1606 1615] ) ) } ) terminator: <Op_Semi ';'> ) ] spids: [1595 1619] ) spids: [1583 1593] ) (C {(REP)} {(DQ ('(def! not (fn* (a) (if a false true)))'))}) (command.WhileUntil keyword: <KW_While while> cond: [(command.Sentence child:(C {(true)}) terminator:<Op_Semi ';'>)] body: (command.DoGroup children: [ (command.AndOr ops: [Op_DPipe] children: [ (C {(READLINE)} {(DQ ('user> '))}) (command.ControlFlow token: <ControlFlow_Exit exit> arg_word: {(DQ ($ VSub_QMark '$?'))} ) ] ) (command.AndOr ops: [Op_DAmp Op_DAmp] children: [ (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Name r))})) (C {(REP)} {(DQ (${ VSub_Name r))}) (C {(echo)} {(DQ (${ VSub_Name r))}) ] ) ] spids: [1640 1688] ) ) ] )