(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) } ) (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:[46]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [46] ) ] spids: [46] ) (C {(READLINE)}) ] ) (C {(READ_STR)} {(DQ (${ VSub_Name r))}) ] spids: [31] ) spids: [26 30] ) (command.FuncDef name: EVAL_AST body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[82]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [82] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[89]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [89] ) ] spids: [80] ) (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:[112]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [112] ) ] spids: [110] ) (command.Case to_match: {(DQ (${ VSub_Name ot))} arms: [ (case_arm pat_list: [{(symbol)}] action: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:val spids:[137]) 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: [139 148] ) ) } spids: [137] ) ] spids: [135] ) (C {(eval)} {(Lit_VarLike 'r=') (DQ (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\$'>) ('{') (${ VSub_Name env) ('[') ) (${ VSub_Name val) (DQ (']}')) } ) (command.AndOr ops: [Op_DPipe] children: [ (C {(Lit_Other '[')} {(DQ (${ VSub_Name r))} {(Lit_Other ']')}) (C {(_error)} {(DQ ("'") (${ VSub_Name val) ("' not found"))}) ] ) ] spids: [131 132 193 16777215] ) (case_arm pat_list: [{(list)}] action: [ (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [196 197 218 16777215] ) (case_arm pat_list: [{(vector)}] action: [ (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [221 222 243 16777215] ) (case_arm pat_list: [{(hash_map)}] action: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:res spids:[252]) op: Equal rhs: {(DQ )} spids: [252] ) (assign_pair lhs: (lhs_expr.LhsName name:key spids:[256]) op: Equal rhs: (word.EmptyWord) spids: [256] ) (assign_pair lhs: (lhs_expr.LhsName name:val spids:[258]) op: Equal rhs: {(DQ )} spids: [258] ) (assign_pair lhs: (lhs_expr.LhsName name:hm spids:[262]) 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: [264 273] ) ) } spids: [262] ) ] spids: [250] ) (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:[282]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [282] ) ] spids: [280] ) (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: [316 375] ) spids: [310 314] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[378]) op: Equal rhs: {(DQ (${ VSub_Name new_hm))} spids: [378] ) ] spids: [378] ) ] spids: [246 247 385 16777215] ) (case_arm pat_list: [{(Lit_Other '*')}] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[392]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [392] ) ] spids: [392] ) ] spids: [388 389 399 16777215] ) ] spids: [120 128 402] ) ] spids: [77] ) spids: [72 76] ) (command.FuncDef name: EVAL body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[417]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [417] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[424]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [424] ) ] spids: [415] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[432]) op: Equal rhs: (word.EmptyWord) spids: [432] ) ] spids: [432] ) (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:[467]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [467] ) ] spids: [465] ) (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 494] ) ] spids: [16777215 515] ) (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:[529]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [529] ) ] spids: [529] ) (command.ControlFlow token:<ControlFlow_Return return>) ] ) (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(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.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:el spids:[580]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [580] ) ] spids: [578] ) (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:[599]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [599] ) ] spids: [597] ) (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:[618]) 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: [620 629] ) ) } spids: [618] ) ] spids: [616] ) (C {(eval)} {(${ VSub_Name f)} {(${ VSub_Name args)}) ] spids: [412] ) spids: [407 411] ) (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:[688]) op: Equal rhs: {(DQ ('Error: ') (${ VSub_Name r))} spids: [688] ) ] spids: [688] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:__ERROR spids:[697]) op: Equal rhs: (word.EmptyWord) spids: [697] ) ] spids: [697] ) ] spids: [16777215 674] ) ] else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})] spids: [700 714] ) ] spids: [658] ) spids: [653 657] ) (command.Assignment keyword: Assign_Declare flags: [-A] pairs: [(assign_pair lhs:(lhs_expr.LhsName name:REPL_ENV spids:[726]) op:Equal spids:[726])] spids: [722] ) (command.FuncDef name: REP body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[736]) op: Equal rhs: (word.EmptyWord) spids: [736] ) ] spids: [736] ) (C {(READ)} {(DQ (${ VSub_Number 1))}) (C {(EVAL)} {(DQ (${ VSub_Name r))} {(REPL_ENV)}) (C {(PRINT)} {(DQ (${ VSub_Name r))}) ] spids: [733] ) spids: [728 732] ) (command.FuncDef name: plus body: (command.BraceGroup children: [ (command.Sentence child: (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[777]) op: Equal rhs: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Plus left: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))}) ) spids: [780 789] ) } ) right: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))}) ) spids: [793 802] ) } ) ) spids: [778 805] ) } spids: [777] ) ] spids: [777] ) terminator: <Op_Semi ';'> ) (command.Sentence child: (C {(_number)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) ] spids: [775] ) spids: [770 774] ) (command.FuncDef name: minus body: (command.BraceGroup children: [ (command.Sentence child: (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[826]) op: Equal rhs: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Minus left: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))}) ) spids: [829 838] ) } ) right: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))}) ) spids: [842 851] ) } ) ) spids: [827 854] ) } spids: [826] ) ] spids: [826] ) terminator: <Op_Semi ';'> ) (command.Sentence child: (C {(_number)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) ] spids: [824] ) spids: [819 823] ) (command.FuncDef name: multiply body: (command.BraceGroup children: [ (command.Sentence child: (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[875]) op: Equal rhs: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Star left: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))}) ) spids: [878 887] ) } ) right: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))}) ) spids: [891 900] ) } ) ) spids: [876 903] ) } spids: [875] ) ] spids: [875] ) terminator: <Op_Semi ';'> ) (command.Sentence child: (C {(_number)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) ] spids: [873] ) spids: [868 872] ) (command.FuncDef name: divide body: (command.BraceGroup children: [ (command.Sentence child: (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[924]) op: Equal rhs: { (word_part.ArithSubPart anode: (arith_expr.ArithBinary op_id: Arith_Slash left: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 1))}) ) spids: [927 936] ) } ) right: (arith_expr.ArithWord w: { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Number 2))}) ) spids: [940 949] ) } ) ) spids: [925 952] ) } spids: [924] ) ] spids: [924] ) terminator: <Op_Semi ';'> ) (command.Sentence child: (C {(_number)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) ] spids: [922] ) spids: [917 921] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsIndexedName name: REPL_ENV index: (arith_expr.ArithWord w:{(DQ ('+'))}) spids: [967] ) op: Equal rhs: {(plus)} spids: [967] ) ] spids: [967] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsIndexedName name: REPL_ENV index: (arith_expr.ArithWord w:{(DQ (-))}) spids: [974] ) op: Equal rhs: {(minus)} spids: [974] ) ] spids: [974] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsIndexedName name: REPL_ENV index: (arith_expr.ArithWord w:{(DQ (__STAR__))}) spids: [981] ) op: Equal rhs: {(multiply)} spids: [981] ) ] spids: [981] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsIndexedName name: REPL_ENV index: (arith_expr.ArithWord w:{(DQ (/))}) spids: [988] ) op: Equal rhs: {(divide)} spids: [988] ) ] spids: [988] ) (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: [1004 1052] ) ) ] )