[Haskell-beginners] Simple IO problem