countDivs :: Int -> (Int, Int)
countDivs n = (n,product $ map (+1) facCounts)
    where facs      = factors n
          facCounts = map (\i -> length $ filter (== i) facs) $ nub facs
countDivs :: Int -> (Int, Int)
countDivs n = (n,product $ map (+1) facCounts)
    where facs      = factors n
          facCounts = map (\i -> length $ filter (== i) facs) $ nub facs
countDivs n = (n,product $ map (+1) facCounts)
    where facs      = factors n
          facCounts = map (\i -> length $ filter (== i) facs) $ nub facs