[Haskell-cafe] Guards with do notation?