Trying out IORef.