Data.IORef.RunOnce

runOnce