[Haskell-cafe] Re: Genuine Eratosthenes sieve [Was: Optimization fun]