HaRe-0.8.0.0: test/testdata/Demote/A2.hs

module Demote.A2 where

import Demote.C2 

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