[Haskell-cafe] Haskell code for this example of flow control