[Haskell-beginners] Sieve of Aritosthenes