import Control.Applicative ((<$>), (<*>))
import Data.List (sort, sortBy)

main :: IO ()
main = solve <$> (map read <$> words <$> getLine) <*> (map read <$> words <$> getLine) >>= print

solve :: [Int] -> [Int] -> Int
solve [l1, l2, l3] rby = sum $ zipWith (*) l r
  where l = sort [2 * (l1 + l2), 2 * (l2 + l3), 2 * (l3 + l1)]
        r = sortBy (flip compare) rby