[Haskell-beginners] loop problem