euler 10 in haskell, summing primes