module AddOneParameter.C2 where import AddOneParameter.D2 sumSquares1 (x:xs) = sq x + sumSquares1 xs sumSquares1 [] = 0 sq_f_1 = 0