-- take a list of prime factors and return a list of divisors
divisors factors =
    nub $ sort $ map product $ subsequences factors
divisors factors =
    nub $ sort $ map product $ subsequences factors
divisors factors =
    nub $ sort $ map product $ subsequences factors