[Haskell-beginners] list doesn't end