-- 122p
:module Data.IORef
x <- newIORef 0
:t x
-- 123p
readIORef x
readIORef x >>= print
modifyIORef x (+1)
readIORef x >>= print
writeIORef x 10
readIORef x >>= print
