add runIOFastExit :: IO a -> IO a