[Haskell] Simple question about IO in hugs and ghc