HaRe-0.8.0.0: test/testdata/LiftOneLevel/D1.hs.expected

module LiftOneLevel.D1 where

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

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

sumSquares [] = 0

sq pow x = x ^ pow

main = sumSquares [1..4]