[Haskell-beginners] while loop