[Haskell-cafe] help with safecopy + acid-state