An alternative STM Haskell implementation