adding primes.hs