[Haskell-cafe] Parse do block problem