(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]
            )
          ]
        )
      ]
    )
  ]
)