Haskell/Primes: Add primeFactors