import Data.IORef
a = newIORef 10
main = do
ref <- newIORef 10
let test
= readIORef ref
>>= print writeIORef ref 1
test
aW1wb3J0IERhdGEuSU9SZWYKCmEgPSBuZXdJT1JlZiAxMAoKbWFpbiA9IGRvCglyZWYgPC0gbmV3SU9SZWYgMTAKCWxldCB0ZXN0ID0gcmVhZElPUmVmIHJlZiA+Pj0gcHJpbnQKCXdyaXRlSU9SZWYgcmVmIDEKCXRlc3Q=