[Haskell-cafe] example in "All about Monads"