module LiftToToplevel.D1A where

{-lift 'sq' to top level. This refactoring
  affects module 'D1' and 'C1' -}

sumSquares (x:xs) = sq x + sumSquares xs
  where 
     sq x = x ^ pow
     -- sq x = x ^ 2
     pow =2 
 
sumSquares [] = 0

main = sumSquares [1..4]