f (x:xs) = negate x + f xs ; f [] = 0