Update Primes.hs