D2.hs.expected

module Demote.D2 where

sq x = x ^pow

pow = 2

main = sumSquares [1..4]
  where
    --demote  'sumSquares' should fail as it used by module 'A2'.
    sumSquares (x:xs) = sq x + sumSquares xs
    sumSquares [] = 0