(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: IS_PAIR body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(_sequential) (Lit_Other '?')} {(DQ (${ VSub_Number 1))}) terminator: <Op_Semi ';'> ) ] action: [ (C {(_count)} {(DQ (${ VSub_Number 1))}) (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.BoolBinary op_id: Redir_Great left: {(DQ (${ VSub_Name r))} right: {(0)} ) ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(0)} ) ] ) ] spids: [16777215 110] ) ] spids: [16777215 143] ) (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [95] ) spids: [90 94] ) (command.FuncDef name: QUASIQUOTE body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [(C {(IS_PAIR)} {(DQ (${ VSub_Number 1))})] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(_symbol)} {(quote)}) (C {(_list)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Number 1))}) (command.ControlFlow token:<ControlFlow_Return return>) ] spids: [16777215 174] ) ] else_action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Number 1))} {(0)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a0 spids:[216]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [216] ) ] spids: [214] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name a0))}) ) spids: [229 238] ) ) } right: {(DQ (unquote))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (C {(_nth)} {(DQ (${ VSub_Number 1))} {(1)}) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [16777215 250] ) (if_arm cond: [ (command.Sentence child: (C {(IS_PAIR)} {(DQ (${ VSub_Name a0))}) terminator: <Op_Semi ';'> ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name a0))} {(0)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a00 spids:[294]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [294] ) ] spids: [292] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.BoolBinary op_id: BoolBinary_GlobDEqual left: { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ VSub_Name a00))} ) ) spids: [307 316] ) ) } right: {(DQ (splice-unquote))} ) ) terminator: <Op_Semi ';'> ) ] action: [ (command.Sentence child: (C {(_symbol)} {(concat)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a spids:[338]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [338] ) ] spids: [336] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name a0))} {(1)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:b spids:[359]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [359] ) ] spids: [357] ) (C {(_rest)} {(DQ (${ VSub_Number 1))}) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:c spids:[387]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [387] ) ] spids: [385] ) (C {(_list)} {(DQ (${ VSub_Name a))} {(DQ (${ VSub_Name b))} {(DQ (${ VSub_Name c))} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [16777215 328] ) ] spids: [16777215 419] ) ] spids: [267 278] ) ] spids: [16777215 422] ) ] spids: [200 425] ) (command.Sentence child:(C {(_symbol)} {(cons)}) terminator:<Op_Semi ';'>) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a spids:[435]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [435] ) ] spids: [433] ) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name a0))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:b spids:[454]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [454] ) ] spids: [452] ) (C {(_rest)} {(DQ (${ VSub_Number 1))}) (command.Sentence child: (C {(QUASIQUOTE)} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:c spids:[482]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [482] ) ] spids: [480] ) (C {(_list)} {(DQ (${ VSub_Name a))} {(DQ (${ VSub_Name b))} {(DQ (${ VSub_Name c))}) (command.ControlFlow token:<ControlFlow_Return return>) ] spids: [158] ) spids: [153 157] ) (command.FuncDef name: IS_MACRO_CALL body: (command.BraceGroup children: [ (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Number 1))})] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (command.Sentence child: (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) terminator: <Op_Semi ';'> ) ] spids: [16777215 538] ) ] spids: [16777215 545] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Number 1))} {(0)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a0 spids:[561]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [561] ) ] spids: [559] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(_symbol) (Lit_Other '?')} {(DQ (${ VSub_Name a0))}) terminator: <Op_Semi ';'> ) ] action: [ (C {(ENV_FIND)} {(DQ (${ VSub_Number 2))} {(DQ (${ VSub_Name a0))}) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr: (bool_expr.WordTest w:{(DQ (${ VSub_Name r))}) ) terminator: <Op_Semi ';'> ) ] action: [ (C {(ENV_GET)} {(DQ (${ VSub_Number 2))} {(DQ (${ VSub_Name a0))}) (C {(Lit_Other '[')} { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ VSub_Name r) (_ismacro_))} ) ) spids: [633 643] ) ) } {(Lit_Other ']')} ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {($ VSub_QMark '$?')} ) ] spids: [16777215 612] ) ] spids: [16777215 654] ) ] spids: [16777215 581] ) ] spids: [16777215 657] ) (command.ControlFlow token:<ControlFlow_Return return> arg_word:{(1)}) ] spids: [521] ) spids: [516 520] ) (command.FuncDef name: MACROEXPAND body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[677]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [677] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[684]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [684] ) ] spids: [675] ) (command.WhileUntil keyword: <KW_While while> cond: [ (command.Sentence child: (C {(IS_MACRO_CALL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) terminator: <Op_Semi ';'> ) ] body: (command.DoGroup children: [ (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:[725]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [725] ) ] spids: [723] ) (command.Sentence child: (C {(ENV_GET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a0))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:mac spids:[750]) 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: [752 761] ) ) } spids: [750] ) ] spids: [748] ) (C {(_rest)} {(DQ (${ VSub_Name ast))}) (C { (word_part.BracedVarSub token: <VSub_Name mac> suffix_op: (suffix_op.StringUnary op_id:VOp1_DPercent arg_word:{('@*')}) spids: [774 778] ) } { (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w:{(DQ (${ VSub_Name r))}) ) spids: [780 789] ) } ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[792]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [792] ) ] spids: [792] ) ] spids: [709 800] ) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[803]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [803] ) ] spids: [803] ) ] spids: [672] ) spids: [667 671] ) (command.FuncDef name: EVAL_AST body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[824]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [824] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[831]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [831] ) ] spids: [822] ) (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:[854]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [854] ) ] spids: [852] ) (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: [873 874 894 16777215] ) (case_arm pat_list: [{(list)}] action: [ (C {(_map_with_type)} {(_list)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [897 898 919 16777215] ) (case_arm pat_list: [{(vector)}] action: [ (C {(_map_with_type)} {(_vector)} {(EVAL)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))} ) ] spids: [922 923 944 16777215] ) (case_arm pat_list: [{(hash_map)}] action: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:res spids:[953]) op: Equal rhs: {(DQ )} spids: [953] ) (assign_pair lhs: (lhs_expr.LhsName name:key spids:[957]) op: Equal rhs: (word.EmptyWord) spids: [957] ) (assign_pair lhs: (lhs_expr.LhsName name:val spids:[959]) op: Equal rhs: {(DQ )} spids: [959] ) (assign_pair lhs: (lhs_expr.LhsName name:hm spids:[963]) 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: [965 974] ) ) } spids: [963] ) ] spids: [951] ) (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:[983]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [983] ) ] spids: [981] ) (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: [1017 1076] ) spids: [1011 1015] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1079]) op: Equal rhs: {(DQ (${ VSub_Name new_hm))} spids: [1079] ) ] spids: [1079] ) ] spids: [947 948 1086 16777215] ) (case_arm pat_list: [{(Lit_Other '*')}] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1093]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [1093] ) ] spids: [1093] ) ] spids: [1089 1090 1100 16777215] ) ] spids: [862 870 1103] ) ] spids: [819] ) spids: [814 818] ) (command.FuncDef name: EVAL body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1118]) op: Equal rhs: {(DQ (${ VSub_Number 1))} spids: [1118] ) (assign_pair lhs: (lhs_expr.LhsName name:env spids:[1125]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [1125] ) ] spids: [1116] ) (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:[1141]) op: Equal rhs: (word.EmptyWord) spids: [1141] ) ] spids: [1141] ) (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.Pipeline children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Name ast))})] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [16777215 1179] ) ] spids: [16777215 1200] ) (C {(MACROEXPAND)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1223]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1223] ) ] spids: [1223] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.Pipeline children: [(C {(_list) (Lit_Other '?')} {(DQ (${ VSub_Name ast))})] negated: T ) terminator: <Op_Semi ';'> ) ] action: [ (C {(EVAL_AST)} {(DQ (${ VSub_Name ast))} {(DQ (${ VSub_Name env))}) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [16777215 1245] ) ] spids: [16777215 1266] ) (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:[1280]) op: Equal rhs: {(DQ (${ VSub_Name ast))} spids: [1280] ) ] spids: [1280] ) (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:[1306]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1306] ) ] spids: [1304] ) (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:[1327]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1327] ) ] spids: [1325] ) (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:[1348]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1348] ) ] spids: [1346] ) (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: [1359 1368] ) ) } 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: [1374 1376 1433 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:[1451]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1451] ) ] spids: [1449] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:let_pairs spids:[1461]) 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: [1463 1472] ) } ] ) } spids: [1461] ) ] spids: [1459] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:idx spids:[1478]) op: Equal rhs: {(0)} spids: [1478] ) ] spids: [1476] ) (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: [1491 1500] ) ) } ) ) 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: [1515 1523] ) } ) ) spids: [1512 1525] ) ) } {(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: [1544 1551] ) ) } {(DQ (${ VSub_Name r))} ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:idx spids:[1561]) 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: [1562 1570] ) } spids: [1561] ) ] spids: [1561] ) ] spids: [1506 1573] ) ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1576]) op: Equal rhs: {(DQ (${ VSub_Name a2))} spids: [1576] ) ] spids: [1576] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:env spids:[1584]) op: Equal rhs: {(DQ (${ VSub_Name let_env))} spids: [1584] ) ] spids: [1584] ) ] spids: [1436 1438 1596 16777215] ) (case_arm pat_list: [{(quote)}] action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[1603]) op: Equal rhs: {(DQ (${ VSub_Name a1))} spids: [1603] ) ] spids: [1603] ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1599 1600 1613 16777215] ) (case_arm pat_list: [{(quasiquote)}] action: [ (C {(QUASIQUOTE)} {(DQ (${ VSub_Name a1))}) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[1629]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1629] ) ] spids: [1629] ) ] spids: [1616 1617 1641 16777215] ) (case_arm pat_list: [{(defmacro) (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)} ) ] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsIndexedName name: ANON index: (arith_expr.ArithWord w: {(DQ (${ VSub_Name r) (_ismacro_))} ) spids: [1681] ) op: Equal rhs: {(DQ (yes))} spids: [1681] ) ] spids: [1681] ) (C {(ENV_SET)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name r))} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1644 1646 1717 16777215] ) (case_arm pat_list: [{(macroexpand)}] action: [ (C {(MACROEXPAND)} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name env))}) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1720 1721 1741 16777215] ) (case_arm pat_list: [{(try) (Lit_Other '*')}] action: [ (C {(EVAL)} {(DQ (${ VSub_Name a1))} {(DQ (${ VSub_Name env))}) (command.AndOr ops: [Op_DAmp] children: [ (command.DBracket expr: (bool_expr.BoolUnary op_id: BoolUnary_z child: {(DQ (${ VSub_Name __ERROR))} ) ) (command.ControlFlow token: <ControlFlow_Return return> ) ] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(0)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a20 spids:[1793]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1793] ) ] spids: [1791] ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(Lit_Other '[')} { (DQ (word_part.BracedVarSub token: <VSub_Name ANON> bracket_op: (bracket_op.ArrayIndex expr: (arith_expr.ArithWord w: {(DQ (${ VSub_Name a20))} ) ) spids: [1806 1815] ) ) } {(Lit_Other '=') (Lit_Other '=')} {(DQ (catch__STAR__))} {(Lit_Other ']')} ) terminator: <Op_Semi ';'> ) ] action: [ (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(1)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a21 spids:[1844]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1844] ) ] spids: [1842] ) (command.Sentence child: (C {(_nth)} {(DQ (${ VSub_Name a2))} {(2)}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:a22 spids:[1865]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1865] ) ] spids: [1863] ) (command.Sentence child: (C {(_list)} {(DQ (${ VSub_Name a21))}) terminator: <Op_Semi ';'> ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:binds spids:[1884]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1884] ) ] spids: [1882] ) (C {(ENV)} {(DQ (${ VSub_Name env))} {(DQ (${ VSub_Name binds))} {(DQ (${ VSub_Name __ERROR))} ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:try_env spids:[1915]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [1915] ) ] spids: [1913] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:__ERROR spids:[1923]) op: Equal rhs: (word.EmptyWord) spids: [1923] ) ] spids: [1923] ) (C {(EVAL)} {(DQ (${ VSub_Name a22))} {(DQ (${ VSub_Name try_env))}) ] spids: [16777215 1828] ) ] spids: [16777215 1941] ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [1744 1746 1949 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: [1974 1985] ) } ) (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:[2015]) op: Equal rhs: (word.EmptyWord) spids: [2015] ) ] spids: [2015] ) (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:[2033]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2033] ) ] spids: [2033] ) ] spids: [1952 1953 2045 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:[2140]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2140] ) ] spids: [2138] ) (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:[2164]) op: Equal rhs: {(DQ (${ VSub_Name a3))} spids: [2164] ) ] spids: [2164] ) ] spids: [16777215 2161] ) ] else_action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[2175]) op: Equal rhs: {(DQ (${ VSub_Name __nil))} spids: [2175] ) ] spids: [2175] ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [2172 2186] ) ] spids: [16777215 2120] ) ] else_action: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[2196]) op: Equal rhs: {(DQ (${ VSub_Name a2))} spids: [2196] ) ] spids: [2196] ) ] spids: [2189 2204] ) ] spids: [2048 2049 2211 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: [2214 2216 2276 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:[2309]) op: Equal rhs: (word.EmptyWord) spids: [2309] ) ] spids: [2309] ) (command.ControlFlow token: <ControlFlow_Return return> arg_word: {(1)} ) ] ) (command.Assignment keyword: Assign_Local pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:el spids:[2320]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2320] ) ] spids: [2318] ) (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:[2339]) 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: [2341 2350] ) ) } spids: [2339] ) ] spids: [2337] ) (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:[2365]) 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: [2367 2376] ) ) } spids: [2365] ) ] spids: [2363] ) (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: [2391] ) spids: [2389 2396] ) ) } 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: [2419] ) spids: [2417 2424] ) } ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:ast spids:[2427]) op: Equal rhs: {(DQ (${ VSub_Number 2))} spids: [2427] ) ] spids: [2427] ) (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:[2454]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2454] ) ] spids: [2454] ) ] spids: [16777215 2410] ) ] else_action: [ (C {(eval)} { (word_part.BracedVarSub token: <VSub_Name f> suffix_op: (suffix_op.StringUnary op_id: VOp1_DPercent arg_word: {('@*')} ) spids: [2467 2471] ) } {(${ VSub_Name args)} ) (command.ControlFlow token: <ControlFlow_Return return> ) ] spids: [2462 2481] ) ] spids: [2279 2280 2488 16777215] ) ] spids: [1356 1371 2491] ) ] spids: [1138 2494] ) ) ] spids: [1113] ) spids: [1108 1112] ) (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:[2537]) op: Equal rhs: {(DQ ('Error: ') (${ VSub_Name r))} spids: [2537] ) ] spids: [2537] ) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:__ERROR spids:[2546]) op: Equal rhs: (word.EmptyWord) spids: [2546] ) ] spids: [2546] ) ] spids: [16777215 2523] ) ] else_action: [(C {(_pr_str)} {(DQ (${ VSub_Number 1))} {(yes)})] spids: [2549 2563] ) ] spids: [2507] ) spids: [2502 2506] ) (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:[2574]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2574] ) ] spids: [2574] ) ] ) (command.FuncDef name: REP body: (command.BraceGroup children: [ (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:r spids:[2589]) op: Equal rhs: (word.EmptyWord) spids: [2589] ) ] spids: [2589] ) (C {(READ)} {(DQ (${ VSub_Number 1))}) (C {(EVAL)} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name REPL_ENV))}) (C {(PRINT)} {(DQ (${ VSub_Name r))}) ] spids: [2586] ) spids: [2581 2585] ) (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:[2649]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2649] ) ] spids: [2647] ) (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: [2635] ) spids: [2630 2634] ) (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: [2700 2706] ) ) } ] 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: [2721 2730] ) ) } ) terminator: <Op_Semi ';'> ) ] spids: [2710 2734] ) spids: [2698 2708] ) (command.FuncDef name: _eval body: (command.BraceGroup children: [ (command.Sentence child: (C {(EVAL)} {(DQ (${ VSub_Number 1))} {(DQ (${ VSub_Name REPL_ENV))}) terminator: <Op_Semi ';'> ) ] spids: [2741] ) spids: [2736 2740] ) (C {(_fref)} {(DQ (eval))} {(_eval)}) (command.CommandList children: [ (command.Sentence child:(C {(_list)}) terminator:<Op_Semi ';'>) (command.Assignment keyword: Assign_None pairs: [ (assign_pair lhs: (lhs_expr.LhsName name:argv spids:[2771]) op: Equal rhs: {(DQ (${ VSub_Name r))} spids: [2771] ) ] spids: [2771] ) ] ) (command.ForEach iter_name: _arg iter_words: [ { (DQ (word_part.BracedVarSub token: <VSub_At '@'> suffix_op: (suffix_op.Slice begin:(arith_expr.ArithWord w:{(Lit_Digits 2)})) spids: [2785 2789] ) ) } ] do_arg_iter: F body: (command.DoGroup children: [ (command.Sentence child: (C {(_string)} {(DQ (${ VSub_Name _arg))}) terminator: <Op_Semi ';'> ) (command.Sentence child: (C {(_conj) (KW_Bang '!')} {(DQ (${ VSub_Name argv))} {(DQ (${ VSub_Name r))}) terminator: <Op_Semi ';'> ) ] spids: [2793 2820] ) spids: [2783 2791] ) (C {(_symbol)} {(DQ (__STAR__ARGV__STAR__))}) (command.Sentence child: (C {(ENV_SET)} {(DQ (${ VSub_Name REPL_ENV))} {(DQ (${ VSub_Name r))} {(DQ (${ VSub_Name argv))}) terminator: <Op_Semi ';'> ) (C {(REP)} {(DQ ('(def! not (fn* (a) (if a false true)))'))}) (C {(REP)} { (DQ ('(def! load-file (fn* (f) (eval (read-string (str ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ('(do ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (' (slurp f) ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')))))') ) } ) (C {(REP)} { (DQ ( "(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> (count xs) 1) (nth xs 1) (throw " ) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) ('odd number of forms to cond') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (")) (cons 'cond (rest (rest xs)))))))") ) } ) (C {(REP)} { (DQ ('(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ('(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))') ) } ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (command.DBracket expr:(bool_expr.WordTest w:{(DQ (${ VSub_Number 1))})) terminator: <Op_Semi ';'> ) ] action: [ (C {(REP)} { (DQ ('(load-file ') (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (${ VSub_Number 1) (word_part.EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (')') ) } ) (command.ControlFlow token:<ControlFlow_Exit exit> arg_word:{(0)}) ] spids: [16777215 2908] ) ] spids: [16777215 2928] ) (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: [2940 2988] ) ) ] )