Haskell ending by doing primes