[Haskell-cafe] Conditionals and case expressions in do blocks