import Data.List main = do [l1, l2, l3, r, b, y] <- getContents >>= return . concat . map (map read . words) . lines print $ minimum $ map (sum . zipWith (*) [2*(l1+l2),2*(l2+l3),2*(l3+l1)]) (permutations [r,b,y])