[Haskell-cafe] Need some help with an infinite list