[Haskell-cafe] howto mix <- within do?