more Counting Primes

Haskell