HaRe-0.8.0.0: test/testdata/LiftOneLevel/A1.hs

module LiftOneLevel.A1 where
 
import LiftOneLevel.C1

main xs = case xs of
             [] -> 0
             [x:xs] -> x^pow + sumSquares1 xs