[Haskell-cafe] Combining ST with STM