(command.CommandList children: [ (C {(echo)} {(DQ ('Testing rtop...'))}) (command.Pipeline children: [ (C {(echo)} {(DQ ('let f a => a;'))}) (C {(utop)} {(-init)} {(src/rtop_init.ml)} {(-I)} {($ Id.VSub_DollarName '$HOME')}) (command.Simple words: [{(grep)} {(DQ ("let f : 'a => 'a = <fun>"))}] redirects: [ (redir.Redir op: (Token id:Id.Redir_Great val:'>' span_id:64) fd: -1 arg_word: {(/dev/null)} ) ] ) ] negated: F ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(Id.Lit_LBracket '[')} {($ Id.VSub_QMark '$?')} {(-ne)} {(0)} {(Id.Lit_RBracket ']')}) terminator: (Token id:Id.Op_Semi val:';' span_id:79) ) ] action: [ (C {(echo)} { (DQ ('rtop is failing! Failed to evaluate ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\`' span_id:88) ) ('let f a => a;') (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\`' span_id:90)) ) } ) (command.ControlFlow token: (Token id:Id.ControlFlow_Exit val:exit span_id:94) arg_word: {(1)} ) ] spids: [68 81] ) ] else_action: [ (command.Pipeline children: [ (C {(echo)} { (DQ ('let f a => 1 + ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:105) ) (hi) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:107)) (';') ) } ) (C {(utop)} {(-init)} {(src/rtop_init.ml)} {(-I)} {($ Id.VSub_DollarName '$HOME')}) (command.Simple words: [{(grep)} {(DQ ('Error: This expression has type'))}] redirects: [ (redir.Redir op: (Token id:Id.Redir_Great val:'>' span_id:135) fd: -1 arg_word: {(/dev/null)} ) ] ) ] negated: F ) (command.If arms: [ (if_arm cond: [ (command.Sentence child: (C {(Id.Lit_LBracket '[')} {($ Id.VSub_QMark '$?')} {(-ne)} {(0)} {(Id.Lit_RBracket ']')} ) terminator: (Token id:Id.Op_Semi val:';' span_id:151) ) ] action: [ (C {(echo)} { (DQ ('rtop is failing! Failed to (correctly) error on ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\`' span_id:160) ) ('let f a => 1 + ') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\"' span_id:162) ) (hi) (word_part.EscapedLiteral token:(Token id:Id.Lit_EscapedChar val:'\\"' span_id:164)) (';') (word_part.EscapedLiteral token: (Token id:Id.Lit_EscapedChar val:'\\`' span_id:166) ) ) } ) (command.ControlFlow token: (Token id:Id.ControlFlow_Exit val:exit span_id:170) arg_word: {(1)} ) ] spids: [140 153] ) ] ) ] ) ] )