"Genuine Sieve of Eratosthenes" in Haskell