[Haskell-beginners] a simple problem