(CommandList
  children: [
    (C {(set)} {(-eu)})
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:WARNING) op:Equal rhs:{(SQ <'\\033[0;31m'>)} spids:[12])]
      spids: [12]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:SUCCESS) op:Equal rhs:{(SQ <'\\033[0;32m'>)} spids:[17])]
      spids: [17]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:INFO) op:Equal rhs:{(SQ )} spids:[22])]
      spids: [22]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:DEBUG) op:Equal rhs:{(SQ )} spids:[26])]
      spids: [26]
    )
    (Assignment
      keyword: Assign_None
      pairs: [(assign_pair lhs:(LhsName name:RESET) op:Equal rhs:{(SQ <'\\033[0m'>)} spids:[30])]
      spids: [30]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:VERBOSE)
          op: Equal
          rhs: 
            {
              (BracedVarSub
                token: <VSub_Name VERBOSE>
                suffix_op: (StringUnary op_id:VTest_ColonHyphen arg_word:{})
                spids: [36 39]
              )
            }
          spids: [35]
        )
      ]
      spids: [35]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:DIR)
          op: Equal
          rhs: 
            {
              (DQ 
                (CommandSubPart
                  command_list: 
                    (CommandList
                      children: [
                        (AndOr
                          ops: [Op_DAmp]
                          children: [
                            (C {(cd)} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [
                                          (C {(dirname)} 
                                            {
                                              (DQ 
                                                (BracedVarSub
                                                  token: <VSub_Name BASH_SOURCE>
                                                  bracket_op: 
                                                    (ArrayIndex
                                                      expr: (ArithWord w:{(Lit_Digits 0)})
                                                    )
                                                  spids: [54 59]
                                                )
                                              )
                                            }
                                          )
                                        ]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [49 62]
                                  )
                                )
                              }
                            )
                            (C {(pwd)})
                          ]
                        )
                      ]
                    )
                  left_token: <Left_CommandSub '$('>
                  spids: [44 69]
                )
              )
            }
          spids: [42]
        )
      ]
      spids: [42]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:REFMT)
          op: Equal
          rhs: {(DQ ($ VSub_Name '$DIR') (/../refmt_impl.native))}
          spids: [73]
        )
      ]
      spids: [73]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: (DBracket expr:(BoolUnary op_id:BoolUnary_f child:{(REFMT)}))
              terminator: <Op_Semi ';'>
            )
          ]
          action: [
            (SimpleCommand
              words: [{(echo)} {(DQ ('Cannot find refmt at ') ($ VSub_Name '$REFMT'))}]
              redirects: [(Redir op_id:Redir_GreatAnd fd:1 arg_word:{(2)} spids:[101])]
            )
            (Sentence
              child: (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)})
              terminator: <Op_Semi ';'>
            )
          ]
          spids: [16777215 91]
        )
      ]
      spids: [16777215 110]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:UNIT_TEST_INPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/unit_tests/input)}
          spids: [113]
        )
      ]
      spids: [113]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:UNIT_TEST_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/unit_tests/actual_output)}
          spids: [118]
        )
      ]
      spids: [118]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:UNIT_TEST_EXPECTED_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/unit_tests/expected_output)}
          spids: [123]
        )
      ]
      spids: [123]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:TYPE_TEST_INPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/input)}
          spids: [129]
        )
      ]
      spids: [129]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:TYPE_TEST_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/actual_output)}
          spids: [134]
        )
      ]
      spids: [134]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:TYPE_TEST_EXPECTED_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/typeCheckedTests/expected_output)}
          spids: [139]
        )
      ]
      spids: [139]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:ERROR_TEST_INPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/errorTests/input)}
          spids: [145]
        )
      ]
      spids: [145]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:ERROR_TEST_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/errorTests/actual_output)}
          spids: [150]
        )
      ]
      spids: [150]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:ERROR_TEST_EXPECTED_OUTPUT)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/errorTests/expected_output)}
          spids: [155]
        )
      ]
      spids: [155]
    )
    (Assignment
      keyword: Assign_None
      pairs: [
        (assign_pair
          lhs: (LhsName name:FAILED_TESTS)
          op: Equal
          rhs: {($ VSub_Name '$DIR') (/failed_tests)}
          spids: [161]
        )
      ]
      spids: [161]
    )
    (FuncDef
      name: info
      body: 
        (BraceGroup
          children: [
            (C {(printf)} 
              {
                (DQ (${ VSub_Name INFO) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n))
              }
            )
          ]
          spids: [172]
        )
      spids: [166 171]
    )
    (FuncDef
      name: debug
      body: 
        (BraceGroup
          children: [
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other '[')} {(KW_Bang '!')} {(-z)} {(DQ ($ VSub_Name '$VERBOSE'))} 
                          {(Lit_Other ']')}
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(printf)} 
                      {
                        (DQ (${ VSub_Name DEBUG) ($ VSub_Number '$1') (${ VSub_Name RESET) 
                          (Lit_Other '\\') (n)
                        )
                      }
                    )
                  ]
                  spids: [16777215 216]
                )
              ]
              spids: [16777215 234]
            )
          ]
          spids: [198]
        )
      spids: [192 197]
    )
    (FuncDef
      name: success
      body: 
        (BraceGroup
          children: [
            (C {(printf)} 
              {
                (DQ (${ VSub_Name SUCCESS) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n))
              }
            )
          ]
          spids: [245]
        )
      spids: [239 244]
    )
    (FuncDef
      name: output
      body: 
        (BraceGroup
          children: [(C {(printf)} {(DQ ($ VSub_Number '$1') (Lit_Other '\\') (n))})]
          spids: [271]
        )
      spids: [265 270]
    )
    (FuncDef
      name: warning
      body: 
        (BraceGroup
          children: [
            (C {(printf)} 
              {
                (DQ (${ VSub_Name WARNING) ($ VSub_Number '$1') (${ VSub_Name RESET) (Lit_Other '\\') (n))
              }
            )
          ]
          spids: [291]
        )
      spids: [285 290]
    )
    (FuncDef
      name: setup_test_dir
      body: 
        (BraceGroup
          children: [
            (C {(echo)} 
              {(DQ ("Setting up test dirs actual_output alongside the tests' expected_output"))}
            )
            (C {(mkdir)} {(-p)} {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_OUTPUT')} 
              {($ VSub_Name '$ERROR_TEST_OUTPUT')}
            )
            (C {(touch)} {($ VSub_Name '$FAILED_TESTS')})
          ]
          spids: [317]
        )
      spids: [311 316]
    )
    (C {(setup_test_dir)})
    (C {(set)} {(Lit_Other '+') (e)})
    (FuncDef
      name: stdin_test
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:INPUT_FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [363]
                )
              ]
              spids: [363]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:OUTPUT_FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                  spids: [367]
                )
              ]
              spids: [367]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:EXPECTED_OUTPUT_FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$3')}
                  spids: [371]
                )
              ]
              spids: [371]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:HEURISTICS_FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$4')}
                  spids: [379]
                )
              ]
              spids: [379]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILENAME)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(basename)} {($ VSub_Name '$INPUT_FILE')})]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [385 389]
                      )
                    }
                  spids: [384]
                )
              ]
              spids: [384]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILEEXT)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (BracedVarSub
                          token: <VSub_Name FILENAME>
                          suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')})
                          spids: [394 398]
                        )
                      )
                    }
                  spids: [392]
                )
              ]
              spids: [392]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {($ VSub_Name '$FILEEXT')}
                              right: {(DQ (re))}
                            )
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (Pipeline
                      children: [
                        (C {(cat)} {($ VSub_Name '$INPUT_FILE')})
                        (SimpleCommand
                          words: [
                            {($ VSub_Name '$REFMT')}
                            {(-is-interface-pp)}
                            {(false)}
                            {(-print-width)}
                            {(50)}
                            {(-parse)}
                            {(re)}
                            {(-print)}
                            {(re)}
                            {(-use-stdin)}
                            {(true)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 2
                              arg_word: {(1)}
                              spids: [449]
                            )
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {($ VSub_Name '$OUTPUT_FILE')}
                              spids: [452]
                            )
                          ]
                        )
                      ]
                      negated: F
                    )
                  ]
                  spids: [16777215 418]
                )
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {($ VSub_Name '$FILEEXT')}
                              right: {(DQ (rei))}
                            )
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (Pipeline
                      children: [
                        (C {(cat)} {($ VSub_Name '$INPUT_FILE')})
                        (SimpleCommand
                          words: [
                            {($ VSub_Name '$REFMT')}
                            {(-is-interface-pp)}
                            {(true)}
                            {(-print-width)}
                            {(50)}
                            {(-parse)}
                            {(re)}
                            {(-print)}
                            {(re)}
                            {(-use-stdin)}
                            {(true)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 2
                              arg_word: {(1)}
                              spids: [503]
                            )
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {($ VSub_Name '$OUTPUT_FILE')}
                              spids: [506]
                            )
                          ]
                        )
                      ]
                      negated: F
                    )
                  ]
                  spids: [457 472]
                )
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {($ VSub_Name '$FILEEXT')}
                              right: {(DQ (ml))}
                            )
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (Pipeline
                      children: [
                        (C {(cat)} {($ VSub_Name '$INPUT_FILE')})
                        (SimpleCommand
                          words: [
                            {($ VSub_Name '$REFMT')}
                            {(-heuristics-file)}
                            {($ VSub_Name '$HEURISTICS_FILE')}
                            {(-is-interface-pp)}
                            {(false)}
                            {(-print-width)}
                            {(50)}
                            {(-parse)}
                            {(ml)}
                            {(-print)}
                            {(re)}
                            {(-use-stdin)}
                            {(true)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 2
                              arg_word: {(1)}
                              spids: [561]
                            )
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {($ VSub_Name '$OUTPUT_FILE')}
                              spids: [564]
                            )
                          ]
                        )
                      ]
                      negated: F
                    )
                  ]
                  spids: [511 526]
                )
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (DBracket
                          expr: 
                            (BoolBinary
                              op_id: BoolBinary_GlobEqual
                              left: {($ VSub_Name '$FILEEXT')}
                              right: {(DQ (mli))}
                            )
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (Pipeline
                      children: [
                        (C {(cat)} {($ VSub_Name '$INPUT_FILE')})
                        (SimpleCommand
                          words: [
                            {($ VSub_Name '$REFMT')}
                            {(-heuristics-file)}
                            {($ VSub_Name '$HEURISTICS_FILE')}
                            {(-is-interface-pp)}
                            {(true)}
                            {(-print-width)}
                            {(50)}
                            {(-parse)}
                            {(ml)}
                            {(-print)}
                            {(re)}
                            {(-use-stdin)}
                            {(true)}
                          ]
                          redirects: [
                            (Redir
                              op_id: Redir_GreatAnd
                              fd: 2
                              arg_word: {(1)}
                              spids: [619]
                            )
                            (Redir
                              op_id: Redir_Great
                              fd: 16777215
                              arg_word: {($ VSub_Name '$OUTPUT_FILE')}
                              spids: [622]
                            )
                          ]
                        )
                      ]
                      negated: F
                    )
                  ]
                  spids: [569 584]
                )
              ]
              else_action: [
                (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))})
                (C {(info)} 
                  {
                    (DQ ('  Cannot determine default implementation parser for extension ') 
                      (${ VSub_Name FILEEXT)
                    )
                  }
                )
                (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
              ]
              spids: [627 654]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))})
                    (C {(info)} {(DQ ('  There was an error when testing -use-stdin'))})
                    (C {(info)} {(DQ ('  for input file ') ($ VSub_Name '$INPUT_FILE'))})
                    (C {(info)} 
                      {(DQ ('  and output file ') ($ VSub_Name '$OUTPUT_FILE') (${ VSub_Name RESET))}
                    )
                    (C {(echo)} {(DQ )})
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 673]
                )
              ]
              spids: [16777215 722]
            )
            (C {(debug)} 
              {
                (DQ ('  Comparing -use-stdin results:  diff ') ($ VSub_Name '$OUTPUT_FILE') (' ') 
                  ($ VSub_Name '$EXPECTED_OUTPUT_FILE')
                )
              }
            )
            (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} 
              {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {($ VSub_Name '$OUTPUT_FILE')} 
              {($ VSub_Name '$EXPECTED_OUTPUT_FILE')}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED -use-stdin ') (Lit_Other '\\') (n))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT_FILE') (${ VSub_Name RESET))
                      }
                    )
                    (C {(info)} {(DQ ("  doesn't match expected output"))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT_FILE') 
                          (${ VSub_Name RESET)
                        )
                      }
                    )
                    (C {(echo)} {(DQ )})
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 776]
                )
              ]
              spids: [16777215 834]
            )
            (ControlFlow token:<ControlFlow_Return return> arg_word:{(0)})
          ]
          spids: [360]
        )
      spids: [354 359]
    )
    (FuncDef
      name: unit_test
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [853]
                )
              ]
              spids: [853]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:INPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                  spids: [857]
                )
              ]
              spids: [857]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$3')}
                  spids: [861]
                )
              ]
              spids: [861]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:EXPECTED_OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$4')}
                  spids: [865]
                )
              ]
              spids: [865]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILENAME)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [871 875]
                      )
                    }
                  spids: [870]
                )
              ]
              spids: [870]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILEEXT)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (BracedVarSub
                          token: <VSub_Name FILENAME>
                          suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')})
                          spids: [880 884]
                        )
                      )
                    }
                  spids: [878]
                )
              ]
              spids: [878]
            )
            (C {(info)} {(DQ ('Unit Test: ') ($ VSub_Name '$FILE'))})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (AndOr
                          ops: [Op_DPipe]
                          children: [
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [902 906]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [913 919]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [929 933]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [940 946]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                          ]
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (C {(Lit_Other '[')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [960 964]
                                      )
                                    )
                                  } {(KW_Bang '!') (Lit_Other '=')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [971 977]
                                      )
                                    )
                                  } {(Lit_Other ']')}
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (LhsName name:REFILE)
                                  op: Equal
                                  rhs: 
                                    {
                                      (DQ 
                                        (CommandSubPart
                                          command_list: 
                                            (CommandList
                                              children: [
                                                (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})
                                              ]
                                            )
                                          left_token: <Left_CommandSub '$('>
                                          spids: [988 994]
                                        ) (.re)
                                      )
                                    }
                                  spids: [986]
                                )
                              ]
                              spids: [986]
                            )
                          ]
                          spids: [16777215 983]
                        )
                      ]
                      else_action: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:REFILE)
                              op: Equal
                              rhs: 
                                {
                                  (DQ 
                                    (CommandSubPart
                                      command_list: 
                                        (CommandList
                                          children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                        )
                                      left_token: <Left_CommandSub '$('>
                                      spids: [1004 1010]
                                    ) (.rei)
                                  )
                                }
                              spids: [1002]
                            )
                          ]
                          spids: [1002]
                        )
                      ]
                      spids: [999 1015]
                    )
                    (C {(debug)} 
                      {
                        (DQ ($ VSub_Name '$REFMT') (' -heuristics-file ') ($ VSub_Name '$INPUT') 
                          ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) 
                          ($ VSub_Name '$REFILE')
                        )
                      }
                    )
                    (SimpleCommand
                      words: [
                        {($ VSub_Name '$REFMT')}
                        {(-heuristics-file)}
                        {($ VSub_Name '$INPUT') (/arity.txt)}
                        {(-print-width)}
                        {(50)}
                        {(-print)}
                        {(re)}
                        {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                      ]
                      redirects: [
                        (Redir
                          op_id: Redir_GreatAnd
                          fd: 2
                          arg_word: {(1)}
                          spids: [1054]
                        )
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')}
                          spids: [1057]
                        )
                      ]
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(warning)} 
                              {
                                (DQ ('  \xe2\x8a\x98 TEST FAILED CONVERTING ML TO RE') 
                                  (Lit_Other '\\') (n)
                                )
                              }
                            )
                            (ControlFlow
                              token: <ControlFlow_Return return>
                              arg_word: {(1)}
                            )
                          ]
                          spids: [16777215 1079]
                        )
                      ]
                      spids: [16777215 1096]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:FILE)
                          op: Equal
                          rhs: {($ VSub_Name '$REFILE')}
                          spids: [1099]
                        )
                      ]
                      spids: [1099]
                    )
                  ]
                  spids: [16777215 952]
                )
              ]
              else_action: [
                (C {(debug)} 
                  {
                    (DQ ("  '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') 
                      ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'")
                    )
                  }
                )
                (SimpleCommand
                  words: [
                    {($ VSub_Name '$REFMT')}
                    {(-print-width)}
                    {(50)}
                    {(-print)}
                    {(re)}
                    {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                  ]
                  redirects: [
                    (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1137])
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                      spids: [1140]
                    )
                  ]
                )
              ]
              spids: [1103 1147]
            )
            (C {(debug)} 
              {
                (DQ ('  Comparing results:  diff ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                  (' ') ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')
                )
              }
            )
            (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} 
              {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} 
              {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                          (${ VSub_Name RESET)
                        )
                      }
                    )
                    (C {(info)} {(DQ ("  doesn't match expected output"))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT') (/) 
                          ($ VSub_Name '$FILE') (${ VSub_Name RESET)
                        )
                      }
                    )
                    (C {(echo)} {(DQ )})
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 1210]
                )
              ]
              spids: [16777215 1272]
            )
            (C {(debug)} {(DQ ('Testing -use-stdin'))})
            (C {(stdin_test)} {($ VSub_Name '$INPUT') (/) ($ VSub_Number '$1')} 
              {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
                  spids: [16777215 1317]
                )
              ]
              else_action: [(C {(success)} {(DQ ('  \xe2\x98\x91 PASS'))}) (C {(echo)})]
              spids: [1325 1338]
            )
          ]
          spids: [850]
        )
      spids: [844 849]
    )
    (FuncDef
      name: idempotent_test
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [1352]
                )
              ]
              spids: [1352]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:INPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                  spids: [1356]
                )
              ]
              spids: [1356]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$3')}
                  spids: [1360]
                )
              ]
              spids: [1360]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILENAME)
                  op: Equal
                  rhs: 
                    {
                      (CommandSubPart
                        command_list: 
                          (CommandList
                            children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                          )
                        left_token: <Left_CommandSub '$('>
                        spids: [1366 1370]
                      )
                    }
                  spids: [1365]
                )
              ]
              spids: [1365]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILEEXT)
                  op: Equal
                  rhs: 
                    {
                      (DQ 
                        (BracedVarSub
                          token: <VSub_Name FILENAME>
                          suffix_op: (StringUnary op_id:VOp1_DPound arg_word:{('*.')})
                          spids: [1375 1379]
                        )
                      )
                    }
                  spids: [1373]
                )
              ]
              spids: [1373]
            )
            (C {(info)} {(DQ ('Idempotent Test: ') ($ VSub_Name '$FILE'))})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (AndOr
                          ops: [Op_DPipe]
                          children: [
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [1397 1401]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [1408 1414]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [1424 1428]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [1435 1441]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                          ]
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (C {(Lit_Other '[')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [1455 1459]
                                      )
                                    )
                                  } {(KW_Bang '!') (Lit_Other '=')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [1466 1472]
                                      )
                                    )
                                  } {(Lit_Other ']')}
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (LhsName name:REFILE)
                                  op: Equal
                                  rhs: 
                                    {
                                      (DQ 
                                        (CommandSubPart
                                          command_list: 
                                            (CommandList
                                              children: [
                                                (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})
                                              ]
                                            )
                                          left_token: <Left_CommandSub '$('>
                                          spids: [1483 1489]
                                        ) (.re)
                                      )
                                    }
                                  spids: [1481]
                                )
                              ]
                              spids: [1481]
                            )
                          ]
                          spids: [16777215 1478]
                        )
                      ]
                      else_action: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:REFILE)
                              op: Equal
                              rhs: 
                                {
                                  (DQ 
                                    (CommandSubPart
                                      command_list: 
                                        (CommandList
                                          children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                        )
                                      left_token: <Left_CommandSub '$('>
                                      spids: [1499 1505]
                                    ) (.rei)
                                  )
                                }
                              spids: [1497]
                            )
                          ]
                          spids: [1497]
                        )
                      ]
                      spids: [1494 1510]
                    )
                    (C {(debug)} 
                      {
                        (DQ ('  Converting ') ($ VSub_Name '$FILE') (' to ') ($ VSub_Name '$REFILE') 
                          (':')
                        )
                      }
                    )
                    (C {(debug)} 
                      {
                        (DQ ('  Formatting Once: ') ($ VSub_Name '$REFMT') (' -heuristics-file ') 
                          ($ VSub_Name '$INPUT') ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') 
                          ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')
                        )
                      }
                    )
                    (SimpleCommand
                      words: [
                        {($ VSub_Name '$REFMT')}
                        {(-heuristics-file)}
                        {($ VSub_Name '$INPUT') (/arity.txt)}
                        {(-print-width)}
                        {(50)}
                        {(-print)}
                        {(re)}
                        {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                      ]
                      redirects: [
                        (Redir
                          op_id: Redir_GreatAnd
                          fd: 2
                          arg_word: {(1)}
                          spids: [1562]
                        )
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')}
                          spids: [1565]
                        )
                      ]
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(warning)} {(DQ ('\xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                            (ControlFlow
                              token: <ControlFlow_Return return>
                              arg_word: {(1)}
                            )
                          ]
                          spids: [16777215 1587]
                        )
                      ]
                      spids: [16777215 1604]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:FILE)
                          op: Equal
                          rhs: {($ VSub_Name '$REFILE')}
                          spids: [1607]
                        )
                      ]
                      spids: [1607]
                    )
                    (C {(debug)} 
                      {
                        (DQ ('  Generating output again: ') ($ VSub_Name '$REFMT') 
                          (' -print-width 50 -print re ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) 
                          ($ VSub_Name '$FILE') (.formatted)
                        )
                      }
                    )
                    (SimpleCommand
                      words: [
                        {($ VSub_Name '$REFMT')}
                        {(-print-width)}
                        {(50)}
                        {(-print)}
                        {(re)}
                        {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                      ]
                      redirects: [
                        (Redir
                          op_id: Redir_GreatAnd
                          fd: 2
                          arg_word: {(1)}
                          spids: [1642]
                        )
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)}
                          spids: [1645]
                        )
                      ]
                    )
                  ]
                  spids: [16777215 1447]
                )
              ]
              else_action: [
                (C {(debug)} 
                  {
                    (DQ ("  Formatting Once: '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') 
                      ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'")
                    )
                  }
                )
                (SimpleCommand
                  words: [
                    {($ VSub_Name '$REFMT')}
                    {(-print-width)}
                    {(50)}
                    {(-print)}
                    {(re)}
                    {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                  ]
                  redirects: [
                    (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1687])
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                      spids: [1690]
                    )
                  ]
                )
                (C {(debug)} 
                  {
                    (DQ ('  Generating output again: ') ($ VSub_Name '$REFMT') 
                      (' -print-width 50 -print re ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) 
                      ($ VSub_Name '$FILE') (.formatted)
                    )
                  }
                )
                (SimpleCommand
                  words: [
                    {($ VSub_Name '$REFMT')}
                    {(-print-width)}
                    {(50)}
                    {(-print)}
                    {(re)}
                    {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                  ]
                  redirects: [
                    (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[1729])
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)}
                      spids: [1732]
                    )
                  ]
                )
              ]
              spids: [1653 1740]
            )
            (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} 
              {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} 
              {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('\xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                          (.formatted) (${ VSub_Name RESET) (Lit_Other '\\') (n)
                        )
                      }
                    )
                    (C {(info)} {(DQ ('  is not same as'))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                          (${ VSub_Name RESET)
                        )
                      }
                    )
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 1788]
                )
              ]
              spids: [16777215 1847]
            )
            (C {(debug)} {(DQ ('Testing -use-stdin'))})
            (C {(stdin_test)} {($ VSub_Name '$INPUT') (/) ($ VSub_Number '$1')} 
              {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
                  spids: [16777215 1892]
                )
              ]
              else_action: [
                (C {(stdin_test)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} 
                  {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') (.formatted)} {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$INPUT') (/arity.txt)}
                )
                (If
                  arms: [
                    (if_arm
                      cond: [
                        (Sentence
                          child: 
                            (Pipeline
                              children: [
                                (DBracket
                                  expr: 
                                    (BoolBinary
                                      op_id: BoolBinary_eq
                                      left: {($ VSub_QMark '$?')}
                                      right: {(0)}
                                    )
                                )
                              ]
                              negated: T
                            )
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      action: [(ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})]
                      spids: [16777215 1937]
                    )
                  ]
                  else_action: [(C {(success)} {(DQ ('  \xe2\x98\x91 PASS'))}) (C {(echo)})]
                  spids: [1945 1958]
                )
              ]
              spids: [1900 1961]
            )
          ]
          spids: [1349]
        )
      spids: [1343 1348]
    )
    (FuncDef
      name: typecheck_test
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [1975]
                )
              ]
              spids: [1975]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:INPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                  spids: [1979]
                )
              ]
              spids: [1979]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$3')}
                  spids: [1983]
                )
              ]
              spids: [1983]
            )
            (C {(info)} {(DQ ('Typecheck Test: ') ($ VSub_Name '$FILE'))})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (AndOr
                          ops: [Op_DPipe]
                          children: [
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2001 2005]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2012 2018]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2028 2032]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2039 2045]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                          ]
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (C {(Lit_Other '[')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [2059 2063]
                                      )
                                    )
                                  } {(KW_Bang '!') (Lit_Other '=')} 
                                  {
                                    (DQ 
                                      (CommandSubPart
                                        command_list: 
                                          (CommandList
                                            children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                          )
                                        left_token: <Left_CommandSub '$('>
                                        spids: [2070 2076]
                                      )
                                    )
                                  } {(Lit_Other ']')}
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (Assignment
                              keyword: Assign_None
                              pairs: [
                                (assign_pair
                                  lhs: (LhsName name:REFILE)
                                  op: Equal
                                  rhs: 
                                    {
                                      (DQ 
                                        (CommandSubPart
                                          command_list: 
                                            (CommandList
                                              children: [
                                                (C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})
                                              ]
                                            )
                                          left_token: <Left_CommandSub '$('>
                                          spids: [2087 2093]
                                        ) (.re)
                                      )
                                    }
                                  spids: [2085]
                                )
                              ]
                              spids: [2085]
                            )
                          ]
                          spids: [16777215 2082]
                        )
                      ]
                      else_action: [
                        (Assignment
                          keyword: Assign_None
                          pairs: [
                            (assign_pair
                              lhs: (LhsName name:REFILE)
                              op: Equal
                              rhs: 
                                {
                                  (DQ 
                                    (CommandSubPart
                                      command_list: 
                                        (CommandList
                                          children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                        )
                                      left_token: <Left_CommandSub '$('>
                                      spids: [2103 2109]
                                    ) (.rei)
                                  )
                                }
                              spids: [2101]
                            )
                          ]
                          spids: [2101]
                        )
                      ]
                      spids: [2098 2114]
                    )
                    (C {(debug)} 
                      {
                        (DQ ('  Converting ') ($ VSub_Name '$FILE') (' to ') ($ VSub_Name '$REFILE') 
                          (':')
                        )
                      }
                    )
                    (C {(debug)} 
                      {
                        (DQ ($ VSub_Name '$REFMT') (' -heuristics-file ') ($ VSub_Name '$INPUT') 
                          ('/arity.txt -print-width 50 -print re ') ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) 
                          ($ VSub_Name '$REFILE')
                        )
                      }
                    )
                    (SimpleCommand
                      words: [
                        {($ VSub_Name '$REFMT')}
                        {(-heuristics-file)}
                        {($ VSub_Name '$INPUT') (/arity.txt)}
                        {(-print-width)}
                        {(50)}
                        {(-print)}
                        {(re)}
                        {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                      ]
                      redirects: [
                        (Redir
                          op_id: Redir_GreatAnd
                          fd: 2
                          arg_word: {(1)}
                          spids: [2164]
                        )
                        (Redir
                          op_id: Redir_Great
                          fd: 16777215
                          arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$REFILE')}
                          spids: [2167]
                        )
                      ]
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                            (ControlFlow
                              token: <ControlFlow_Return return>
                              arg_word: {(1)}
                            )
                          ]
                          spids: [16777215 2189]
                        )
                      ]
                      spids: [16777215 2206]
                    )
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:FILE)
                          op: Equal
                          rhs: {($ VSub_Name '$REFILE')}
                          spids: [2209]
                        )
                      ]
                      spids: [2209]
                    )
                  ]
                  spids: [16777215 2051]
                )
              ]
              else_action: [
                (C {(debug)} 
                  {
                    (DQ ('  Formatting: ') ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') 
                      ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' 2>&1 > ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')
                    )
                  }
                )
                (SimpleCommand
                  words: [
                    {($ VSub_Name '$REFMT')}
                    {(-print-width)}
                    {(50)}
                    {(-print)}
                    {(re)}
                    {($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE')}
                  ]
                  redirects: [
                    (Redir op_id:Redir_GreatAnd fd:2 arg_word:{(1)} spids:[2246])
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                      spids: [2249]
                    )
                  ]
                )
                (If
                  arms: [
                    (if_arm
                      cond: [
                        (Sentence
                          child: 
                            (Pipeline
                              children: [
                                (DBracket
                                  expr: 
                                    (BoolBinary
                                      op_id: BoolBinary_eq
                                      left: {($ VSub_QMark '$?')}
                                      right: {(0)}
                                    )
                                )
                              ]
                              negated: T
                            )
                          terminator: <Op_Semi ';'>
                        )
                      ]
                      action: [
                        (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                        (ControlFlow
                          token: <ControlFlow_Return return>
                          arg_word: {(1)}
                        )
                      ]
                      spids: [16777215 2271]
                    )
                  ]
                  spids: [16777215 2288]
                )
              ]
              spids: [2213 2291]
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (C {(Lit_Other '[')} 
                          {
                            (DQ 
                              (CommandSubPart
                                command_list: 
                                  (CommandList
                                    children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                  )
                                left_token: <Left_CommandSub '$('>
                                spids: [2299 2303]
                              )
                            )
                          } {(KW_Bang '!') (Lit_Other '=')} 
                          {
                            (DQ 
                              (CommandSubPart
                                command_list: 
                                  (CommandList
                                    children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.re)})]
                                  )
                                left_token: <Left_CommandSub '$('>
                                spids: [2310 2316]
                              )
                            )
                          } {(Lit_Other ']')}
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (Assignment
                      keyword: Assign_None
                      pairs: [
                        (assign_pair
                          lhs: (LhsName name:COMPILE_FLAGS)
                          op: Equal
                          rhs: {(DQ ('-intf-suffix .rei -impl'))}
                          spids: [2325]
                        )
                      ]
                      spids: [2325]
                    )
                  ]
                  spids: [16777215 2322]
                )
              ]
              else_action: [
                (Assignment
                  keyword: Assign_None
                  pairs: [
                    (assign_pair
                      lhs: (LhsName name:COMPILE_FLAGS)
                      op: Equal
                      rhs: {(DQ (-intf))}
                      spids: [2334]
                    )
                  ]
                  spids: [2334]
                )
              ]
              spids: [2331 2340]
            )
            (C {(debug)} 
              {
                (DQ ('  Compiling: ocamlc -c -pp ') ($ VSub_Name '$REFMT') (' ') 
                  ($ VSub_Name '$COMPILE_FLAGS') (' ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')
                )
              }
            )
            (C {(ocamlc)} {(-c)} {(-pp)} {($ VSub_Name '$REFMT')} {($ VSub_Name '$COMPILE_FLAGS')} 
              {(DQ ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE'))}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 2390]
                )
              ]
              spids: [16777215 2407]
            )
            (C {(success)} {(DQ ('  \xe2\x98\x91 PASS'))})
            (C {(echo)})
          ]
          spids: [1972]
        )
      spids: [1966 1971]
    )
    (FuncDef
      name: error_test
      body: 
        (BraceGroup
          children: [
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:FILE)
                  op: Equal
                  rhs: {($ VSub_Number '$1')}
                  spids: [2432]
                )
              ]
              spids: [2432]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:INPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$2')}
                  spids: [2436]
                )
              ]
              spids: [2436]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$3')}
                  spids: [2440]
                )
              ]
              spids: [2440]
            )
            (Assignment
              keyword: Assign_None
              pairs: [
                (assign_pair
                  lhs: (LhsName name:EXPECTED_OUTPUT)
                  op: Equal
                  rhs: {($ VSub_Number '$4')}
                  spids: [2444]
                )
              ]
              spids: [2444]
            )
            (C {(info)} {(DQ ('Error Test: ') ($ VSub_Name '$FILE'))})
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (AndOr
                          ops: [Op_DPipe]
                          children: [
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2462 2466]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.ml)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2473 2479]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                            (C {(Lit_Other '[')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2489 2493]
                                  )
                                )
                              } {(KW_Bang '!') (Lit_Other '=')} 
                              {
                                (DQ 
                                  (CommandSubPart
                                    command_list: 
                                      (CommandList
                                        children: [(C {(basename)} {($ VSub_Name '$FILE')} {(.mli)})]
                                      )
                                    left_token: <Left_CommandSub '$('>
                                    spids: [2500 2506]
                                  )
                                )
                              } {(Lit_Other ']')}
                            )
                          ]
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} 
                      {
                        (DQ 
                          (
'  \xe2\x8a\x98 FAILED: .ml files should not need to be run against error tests. '
                          ) (Lit_Other '\\') (n)
                        )
                      }
                    )
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 2512]
                )
              ]
              else_action: [
                (C {(debug)} 
                  {
                    (DQ ("  '") ($ VSub_Name '$REFMT') (' -print-width 50 -print re ') 
                      ($ VSub_Name '$INPUT') (/) ($ VSub_Name '$FILE') (' &> ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') ("'")
                    )
                  }
                )
                (C {(cd)} {($ VSub_Name '$INPUT')})
                (Sentence
                  child: 
                    (C {($ VSub_Name '$REFMT')} {(-print-width)} {(50)} {(-print)} {(re)} 
                      {
                        (CommandSubPart
                          command_list: 
                            (CommandList
                              children: [(C {(basename)} {($ VSub_Name '$FILE')})]
                            )
                          left_token: <Left_CommandSub '$('>
                          spids: [2568 2572]
                        )
                      }
                    )
                  terminator: <Op_Amp '&'>
                )
                (SimpleCommand
                  redirects: [
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')}
                      spids: [2575]
                    )
                  ]
                )
                (SimpleCommand
                  words: [{(cd)} {(-)}]
                  redirects: [
                    (Redir
                      op_id: Redir_Great
                      fd: 16777215
                      arg_word: {(/dev/null)}
                      spids: [2586]
                    )
                  ]
                )
              ]
              spids: [2529 2591]
            )
            (C {(debug)} 
              {
                (DQ ('  Comparing results:  diff ') ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                  (' ') ($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')
                )
              }
            )
            (C {(diff)} {(--unchanged-line-format) (Lit_Other '=') (DQ )} 
              {(--new-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} {(--old-line-format) (Lit_Other '=') (DQ (':%dn: %L'))} 
              {($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE')} {($ VSub_Name '$EXPECTED_OUTPUT') (/) ($ VSub_Name '$FILE')}
            )
            (If
              arms: [
                (if_arm
                  cond: [
                    (Sentence
                      child: 
                        (Pipeline
                          children: [
                            (DBracket
                              expr: 
                                (BoolBinary
                                  op_id: BoolBinary_eq
                                  left: {($ VSub_QMark '$?')}
                                  right: {(0)}
                                )
                            )
                          ]
                          negated: T
                        )
                      terminator: <Op_Semi ';'>
                    )
                  ]
                  action: [
                    (C {(warning)} {(DQ ('  \xe2\x8a\x98 FAILED') (Lit_Other '\\') (n))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$OUTPUT') (/) ($ VSub_Name '$FILE') 
                          (${ VSub_Name RESET)
                        )
                      }
                    )
                    (C {(info)} {(DQ ("  doesn't match expected output"))})
                    (C {(info)} 
                      {
                        (DQ ('  ') (${ VSub_Name INFO) ($ VSub_Name '$EXPECTED_OUTPUT') (/) 
                          ($ VSub_Name '$FILE') (${ VSub_Name RESET)
                        )
                      }
                    )
                    (C {(echo)} {(DQ )})
                    (ControlFlow token:<ControlFlow_Return return> arg_word:{(1)})
                  ]
                  spids: [16777215 2654]
                )
              ]
              spids: [16777215 2716]
            )
            (C {(success)} {(DQ ('  \xe2\x98\x91 PASS'))})
            (C {(echo)})
          ]
          spids: [2429]
        )
      spids: [2423 2428]
    )
    (AndOr
      ops: [Op_DAmp]
      children: [
        (C {(cd)} {($ VSub_Name '$UNIT_TEST_INPUT')})
        (Pipeline
          children: [
            (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} 
              {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)}
            )
            (While
              cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)]
              body: 
                (DoGroup
                  children: [
                    (C {(unit_test)} {($ VSub_Name '$file')} {($ VSub_Name '$UNIT_TEST_INPUT')} 
                      {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$UNIT_TEST_EXPECTED_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed unit_test'))}]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [2812]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 2802]
                        )
                      ]
                      spids: [16777215 2817]
                    )
                    (C {(idempotent_test)} {($ VSub_Name '$file')} {($ VSub_Name '$UNIT_TEST_INPUT')} 
                      {($ VSub_Name '$UNIT_TEST_OUTPUT')} {($ VSub_Name '$UNIT_TEST_EXPECTED_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [
                                {(echo)}
                                {(DQ ($ VSub_Name '$file') (' -- failed idempotent_test'))}
                              ]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [2857]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 2847]
                        )
                      ]
                      spids: [16777215 2862]
                    )
                  ]
                  spids: [2773 2864]
                )
            )
          ]
          negated: F
        )
      ]
    )
    (AndOr
      ops: [Op_DAmp]
      children: [
        (C {(cd)} {($ VSub_Name '$TYPE_TEST_INPUT')})
        (Pipeline
          children: [
            (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} 
              {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)}
            )
            (C {(sort)})
            (While
              cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)]
              body: 
                (DoGroup
                  children: [
                    (C {(typecheck_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} 
                      {($ VSub_Name '$TYPE_TEST_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [
                                {(echo)}
                                {(DQ ($ VSub_Name '$file') (' -- failed typecheck_test'))}
                              ]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [2949]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 2939]
                        )
                      ]
                      spids: [16777215 2954]
                    )
                    (C {(unit_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} 
                      {($ VSub_Name '$TYPE_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_EXPECTED_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed unit_test'))}]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [2993]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 2983]
                        )
                      ]
                      spids: [16777215 2998]
                    )
                    (C {(idempotent_test)} {($ VSub_Name '$file')} {($ VSub_Name '$TYPE_TEST_INPUT')} 
                      {($ VSub_Name '$TYPE_TEST_OUTPUT')} {($ VSub_Name '$TYPE_TEST_EXPECTED_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [
                                {(echo)}
                                {(DQ ($ VSub_Name '$file') (' -- failed idempotent_test'))}
                              ]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [3037]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 3027]
                        )
                      ]
                      spids: [16777215 3042]
                    )
                  ]
                  spids: [2912 3044]
                )
            )
          ]
          negated: F
        )
      ]
    )
    (AndOr
      ops: [Op_DAmp]
      children: [
        (C {(cd)} {($ VSub_Name '$ERROR_TEST_INPUT')})
        (Pipeline
          children: [
            (C {(find)} {(.)} {(-type)} {(f)} {(EscapedLiteralPart token:<Lit_EscapedChar '\\('>)} 
              {(-name)} {(DQ ('*.re*'))} {(-or)} {(-name)} {(DQ ('*.ml*'))} {(EscapedLiteralPart token:<Lit_EscapedChar '\\)'>)}
            )
            (While
              cond: [(Sentence child:(C {(read)} {(file)}) terminator:<Op_Semi ';'>)]
              body: 
                (DoGroup
                  children: [
                    (C {(error_test)} {($ VSub_Name '$file')} {($ VSub_Name '$ERROR_TEST_INPUT')} 
                      {($ VSub_Name '$ERROR_TEST_OUTPUT')} {($ VSub_Name '$ERROR_TEST_EXPECTED_OUTPUT')}
                    )
                    (If
                      arms: [
                        (if_arm
                          cond: [
                            (Sentence
                              child: 
                                (Pipeline
                                  children: [
                                    (DBracket
                                      expr: 
                                        (BoolBinary
                                          op_id: BoolBinary_eq
                                          left: {($ VSub_QMark '$?')}
                                          right: {(0)}
                                        )
                                    )
                                  ]
                                  negated: T
                                )
                              terminator: <Op_Semi ';'>
                            )
                          ]
                          action: [
                            (SimpleCommand
                              words: [{(echo)} {(DQ ($ VSub_Name '$file') (' -- failed error_test'))}]
                              redirects: [
                                (Redir
                                  op_id: Redir_DGreat
                                  fd: 16777215
                                  arg_word: {($ VSub_Name '$FAILED_TESTS')}
                                  spids: [3127]
                                )
                              ]
                            )
                          ]
                          spids: [16777215 3117]
                        )
                      ]
                      spids: [16777215 3132]
                    )
                  ]
                  spids: [3088 3134]
                )
            )
          ]
          negated: F
        )
      ]
    )
    (If
      arms: [
        (if_arm
          cond: [
            (Sentence
              child: (DBracket expr:(BoolUnary op_id:BoolUnary_s child:{($ VSub_Name '$FAILED_TESTS')}))
              terminator: <Op_Semi ';'>
            )
          ]
          action: [
            (C {(warning)} {(DQ ('Failed tests:'))})
            (C {(cat)} {($ VSub_Name '$FAILED_TESTS')})
            (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(1)})
          ]
          spids: [16777215 3148]
        )
      ]
      spids: [16777215 3167]
    )
    (ControlFlow token:<ControlFlow_Exit exit> arg_word:{(0)})
  ]
)