f xs = foldr ((+) . negate) 0 xs