main = do prg <- loadFile (file)
          checkResult $ runProgram prg tape (-1)
main = do prg <- loadFile (file)
          checkResult $ runProgram prg tape (-1)
main = do prg <- loadFile (file)
          checkResult $ runProgram prg tape (-1)