[Haskell-cafe] STM example code