[Haskell-cafe] Lazy ST test code