squareFree :: Integer -> Bool
squareFree = all (== 1) . map length . group . primeFactors
squareFree :: Integer -> Bool
squareFree = all (== 1) . map length . group . primeFactors
squareFree = all (== 1) . map length . group . primeFactors