(CommandList children: [ (C {(echo)} {(DQ ('Testing rtop...'))}) (Pipeline children: [ (C {(echo)} {(DQ ('let f a => a;'))}) (C {(utop)} {(-init)} {(src/rtop_init.ml)} {(-I)} {($ VSub_Name '$HOME')}) (SimpleCommand words: [{(grep)} {(DQ ("let f : 'a => 'a = <fun>"))}] redirects: [(Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(/dev/null)})] ) ] negated: F ) (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} {($ VSub_QMark '$?')} {(-ne)} {(0)} {(Lit_Other ']')}) terminator: <Op_Semi ';'> ) ] action: [ (C {(echo)} { (DQ ('rtop is failing! Failed to evaluate ') (EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ('let f a => a;') (EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ) } ) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)}) ] spids: [16777215 81] ) ] else_action: [ (Pipeline children: [ (C {(echo)} { (DQ ('let f a => 1 + ') (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (hi) (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (';') ) } ) (C {(utop)} {(-init)} {(src/rtop_init.ml)} {(-I)} {($ VSub_Name '$HOME')}) (SimpleCommand words: [{(grep)} {(DQ ('Error: This expression has type'))}] redirects: [(Redir op:<Redir_Great '>'> fd:16777215 arg_word:{(/dev/null)})] ) ] negated: F ) (If arms: [ (if_arm cond: [ (Sentence child: (C {(Lit_Other '[')} {($ VSub_QMark '$?')} {(-ne)} {(0)} {(Lit_Other ']')}) terminator: <Op_Semi ';'> ) ] action: [ (C {(echo)} { (DQ ('rtop is failing! Failed to (correctly) error on ') (EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ('let f a => 1 + ') (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (hi) (EscapedLiteralPart token:<Lit_EscapedChar '\\"'>) (';') (EscapedLiteralPart token:<Lit_EscapedChar '\\`'>) ) } ) (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)}) ] spids: [16777215 153] ) ] spids: [16777215 175] ) ] spids: [98 177] ) ] )