get :: IORef Int -> IO Int
get ioref = do
 atomicModifyIORef' ioref (\a -> (a,a))
get :: IORef Int -> IO Int
get ioref = do
 atomicModifyIORef' ioref (\a -> (a,a))
get ioref = do
 atomicModifyIORef' ioref (\a -> (a,a))