more Sum of Primes

Haskell