import Control.Concurrent.STM
import System.IO.Unsafe

main :: IO ()
main = print =<< atomically (return $! unsafePerformIO (atomically (return 42)))