[Haskell-cafe] wanted: HAppS example combining state and io