RmDecl5.hs

module RmDecl5 where

sumSquares x y = let sq 0=0
                     sq z=z^pow
                     pow=2
                 in sq x + sq y