[Haskell-cafe] Atomically modify two MVars