[Haskell-beginners] foldr on infinite list to decide prime number