[Haskell-cafe] Conditional IO ?