[Haskell-cafe] MVars and locks