newAcquired :: IO (Lock, Acquisition Lock)
newAcquired = do
  l <- new
  a <- acquire l
  return (l, a)
newAcquired :: IO (Lock, Acquisition Lock)
newAcquired = do
  l <- new
  a <- acquire l
  return (l, a)
newAcquired = do
  l <- new
  a <- acquire l
  return (l, a)