(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'> } ) (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: [55] ) ] ) (C {<READLINE>}) ] ) (C {<READ_STR>} {(DQ (${ Id.VSub_Name r))}) ] ) ) (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: [140 141 161 -1] ) (case_arm pat_list: [{<list>}] action: [ (C {<_map_with_type>} {<_list>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))} ) ] spids: [164 165 186 -1] ) (case_arm pat_list: [{<vector>}] action: [ (C {<_map_with_type>} {<_vector>} {<EVAL>} {(DQ (${ Id.VSub_Name ast))} {(DQ (${ Id.VSub_Name env))} ) ] spids: [189 190 211 -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: [346] ) ] ) ] spids: [214 215 353 -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: [360] ) ] ) ] spids: [356 357 367 -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.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: (word.Empty) spids: [400] ) ] ) (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.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.If arms: [ (if_arm cond: (condition.Shell commands: [ (command.Sentence child: (command.DBracket expr: (bool_expr.Binary op_id: Id.BoolBinary_GlobNEqual left: {(DQ (${ Id.VSub_Name ot))} right: {(DQ <list>)} ) ) 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: [443 462] ) ] ) (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: [497] ) ] ) (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: [595 597 654 -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: [782] ) ] ) ] ) ) (C {<EVAL>} {(DQ (${ Id.VSub_Name a2))} {(DQ (${ Id.VSub_Name let_env))}) (command.ControlFlow token:<Id.ControlFlow_Return return>) ] spids: [657 659 814 -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: [847] ) ] ) (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 (${ 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))}) ) ) } ) (C {<eval>} {(${ Id.VSub_Name f)} {(${ Id.VSub_Name args)}) (command.ControlFlow token:<Id.ControlFlow_Return return>) ] spids: [817 818 928 -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: [974] ) ] ) (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:__ERROR) op: assign_op.Equal rhs: (word.Empty) spids: [983] ) ] ) ] spids: [947 960] ) ] 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: [1011] ) ] ) ] ) (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: [1026] ) ] ) (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: plus body: (BraceGroup children: [ (command.Sentence child: (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Plus left: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 1))} ) ) } right: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 2))} ) ) } ) ) } spids: [1071] ) ] ) terminator: <Id.Op_Semi _> ) (command.Sentence child: (C {<_number>} {(DQ (${ Id.VSub_Name r))}) terminator: <Id.Op_Semi _> ) ] ) ) (command.ShFunction name: minus body: (BraceGroup children: [ (command.Sentence child: (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Minus left: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 1))} ) ) } right: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 2))} ) ) } ) ) } spids: [1120] ) ] ) terminator: <Id.Op_Semi _> ) (command.Sentence child: (C {<_number>} {(DQ (${ Id.VSub_Name r))}) terminator: <Id.Op_Semi _> ) ] ) ) (command.ShFunction name: multiply body: (BraceGroup children: [ (command.Sentence child: (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Star left: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 1))} ) ) } right: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 2))} ) ) } ) ) } spids: [1169] ) ] ) terminator: <Id.Op_Semi _> ) (command.Sentence child: (C {<_number>} {(DQ (${ Id.VSub_Name r))}) terminator: <Id.Op_Semi _> ) ] ) ) (command.ShFunction name: divide body: (BraceGroup children: [ (command.Sentence child: (command.ShAssignment pairs: [ (assign_pair lhs: (sh_lhs_expr.Name name:r) op: assign_op.Equal rhs: { (word_part.ArithSub anode: (arith_expr.Binary op_id: Id.Arith_Slash left: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 1))} ) ) } right: { (braced_var_sub token: <Id.VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: {(DQ (${ Id.VSub_Number 2))} ) ) } ) ) } spids: [1218] ) ] ) terminator: <Id.Op_Semi _> ) (command.Sentence child: (C {<_number>} {(DQ (${ Id.VSub_Name r))}) terminator: <Id.Op_Semi _> ) ] ) ) (command.CommandList children: [ (command.Sentence child:(C {<_symbol>} {(DQ <'+'>)}) terminator:<Id.Op_Semi _>) (C {<ENV_SET>} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} {<plus>}) ] ) (command.CommandList children: [ (command.Sentence child:(C {<_symbol>} {(DQ <->)}) terminator:<Id.Op_Semi _>) (C {<ENV_SET>} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} {<minus>}) ] ) (command.CommandList children: [ (command.Sentence child:(C {<_symbol>} {(DQ <__STAR__>)}) terminator:<Id.Op_Semi _>) (C {<ENV_SET>} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} {<multiply>}) ] ) (command.CommandList children: [ (command.Sentence child:(C {<_symbol>} {(DQ <'/'>)}) terminator:<Id.Op_Semi _>) (C {<ENV_SET>} {(DQ (${ Id.VSub_Name REPL_ENV))} {(DQ (${ Id.VSub_Name r))} {<divide>}) ] ) (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))}) ] ) ] ) ) ] )