import Data.IORef

a = newIORef 10

main = do
	ref <- newIORef 10
	let test = readIORef ref >>= print
	writeIORef ref 1
	test