import Data.IORef main :: IO () main = do x <- newIORef 7 writeIORef x 8 a <- readIORef x print a
x :: IORef Integer
a :: Integer