primeGen q = 
    if (q ==) . fst . head $ factorize' q oddPrimes
    then q : primeGen (q + 2)
    else primeGen (q + 2)
primeGen q = 
    if (q ==) . fst . head $ factorize' q oddPrimes
    then q : primeGen (q + 2)
    else primeGen (q + 2)
primeGen q = 
    if (q ==) . fst . head $ factorize' q oddPrimes
    then q : primeGen (q + 2)
    else primeGen (q + 2)