import Data.List

main = do
 [l1,l2,l3] <- map read . words <$> getLine
 [r,b,y] <- map read . words <$> getLine
 print $ wrapping (l1,l2,l3) (r,b,y)

wrapping (l1,l2,l3) (r,b,y) = sum $ zipWith (*) (sort [l12,l23,l31]) (reverse (sort [r,b,y]))
 where
  l12 = 2 * (l1 + l2)
  l23 = 2 * (l2 + l3)
  l31 = 2 * (l3 + l1)