import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts = map read . words <$> getLine :: IO [Int]

solve xs ys = sum $ filter (>0) $ zipWith (-) xs ys

main = getLine >> solve <$> readInts <*> readInts >>= print
