{-demote 'sq' to 'sumSquares'. This refactoring
  affects module 'D1' and 'C1' -}

sumSquares (x:xs) = sq + sumSquares xs
  where
    sq  = x ^pow 
sumSquares (x:xs) = sq + sumSquares xs
  where
    sq  = x ^pow 
sumSquares (x:xs) = sq + sumSquares xs
  where
    sq  = x ^pow 