[Haskell-cafe] Buttons and Clicks - State Monad

Hi, in this piece here http://moonpatio.com/fastcgi/hpaste.fcgi/view?id=1083#a1083 I'm trying to create a button that, every time when clicked, increases a counter by one and does a putStrLn of the counters current value. I'm trying to write this without any use of IORef but merely using the state monad. Can anybody show me how to do this? Günther The UI Code is wxHaskell