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

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