Problem:
Score : 600 points

Problem Statement

A tetromino is a figure formed by joining four squares edge to edge.
We will refer to the following seven kinds of tetromino as I-, O-, T-, J-, L-, S- and Z-tetrominos, respectively:

Snuke has many tetrominos. The number of I-, O-, T-, J-, L-, S- and Z-tetrominos in his possession are a_I, a_O, a_T, a_J, a_L, a_S and a_Z, respectively.
Snuke will join K of his tetrominos to form a rectangle that is two squares tall and 2K squares wide.
Here, the following rules must be followed:

When placing each tetromino, rotation is allowed, but reflection is not.

Each square in the rectangle must be covered by exactly one tetromino.

No part of each tetromino may be outside the rectangle.

Snuke wants to form as large a rectangle as possible.
Find the maximum possible value of K.

Constraints

0≤a_I,a_O,a_T,a_J,a_L,a_S,a_Z≤10^9

a_I+a_O+a_T+a_J+a_L+a_S+a_Z≥1

Input

The input is given from Standard Input in the following format:

a_I a_O a_T a_J a_L a_S a_Z

Output

Print the maximum possible value of K. If no rectangle can be formed, print 0.

Sample Input 1

2 1 1 0 0 0 0

Sample Output 1

3

One possible way to form the largest rectangle is shown in the following figure:

Sample Input 2

0 0 10 0 0 0 0

Sample Output 2

0

No rectangle can be formed.

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

module Main where

import Control.Applicative
import Data.Int

data Test = Test Int64 Int64 Int64 Int64 Int64 Int64 Int64

solve :: Test -> Int64
solve (Test ai ao _ aj al _ _) = ao + go ai aj al
    where go ai aj al | odd ai && odd aj && odd al = ai + aj + al
                      | even ai && even aj && even al = ai + aj + al
                      | ai == 0 || aj == 0 || al == 0 = 2 * (ai `div` 2 + aj `div` 2 + al `div` 2)
                      | otherwise = 3 * m + go (ai - m) (aj - m) (al - m)
                      where m = minimum [ai, aj, al]

test0 = Test 2 1 1 0 0 0 0
test1 = Test 0 0 10 0 0 0 0

runTests = map solve [test0, test1]

main :: IO ()
main = do
  [ai, ao, at, aj, al, as, az] <- map read . words <$> getLine
  print . solve $ Test ai ao at aj al as az