maxWhite :: [Int] -> Int
maxWhite (aw : ab : bw : bb : c : d : _) = aw - c + k1 + k2
    where
        k1 = min ab c
        k2 = min d $ bw + c - k1

main :: IO ()
main = print . maxWhite . map read . concat . map words . lines =<< getContents