Cleaned up sieve.hs