interpreterLoopTests :: Test
interpreterLoopTests =
  testGroup "Loop Tests" [testCase "interprets loop" test_loop_program]
interpreterLoopTests :: Test
interpreterLoopTests =
  testGroup "Loop Tests" [testCase "interprets loop" test_loop_program]
interpreterLoopTests =
  testGroup "Loop Tests" [testCase "interprets loop" test_loop_program]