{-squares' count offset = drop offset (take count (squares count + offset))-}

sumSquares' :: Integer -> Integer
sumSquares' x = sum . uncurry squares' $ (x, x)
sumSquares' :: Integer -> Integer
sumSquares' x = sum . uncurry squares' $ (x, x)
sumSquares' x = sum . uncurry squares' $ (x, x)