SIEVE OF ERATOSTHENES in Haskell