My version of the sieve of Eratosthenes in Haskell. It's probably not optimized and needs some fixing up. At any rate, here is the first version.