[Haskell-cafe] Alternative STM implementation