fEvenSum :: [Integer] -> Integer
fEvenSum l = foldl mySum 0 (filter even l)
             where  mySum acc x = acc + x  
fEvenSum :: [Integer] -> Integer
fEvenSum l = foldl mySum 0 (filter even l)
             where  mySum acc x = acc + x  
fEvenSum l = foldl mySum 0 (filter even l)
             where  mySum acc x = acc + x  