Problem:
Score: 200 points

Problem Statement

There are three positive integers A, B and C written on a blackboard. E869120 performs the following operation K times:

Choose one integer written on the blackboard and let the chosen integer be n. Replace the chosen integer with 2n.

What is the largest possible sum of the integers written on the blackboard after K operations?

Constraints

A, B and C are integers between 1 and 50 (inclusive).

K is an integer between 1 and 10 (inclusive).

Input

Input is given from Standard Input in the following format:

A B C
K

Output

Print the largest possible sum of the integers written on the blackboard after K operations by E869220.

Sample Input 1

5 3 11
1

Sample Output 1

30

In this sample, 5, 3, 11 are initially written on the blackboard, and E869120 can perform the operation once.

There are three choices:

Double 5: The integers written on the board after the operation are 10, 3, 11.

Double 3: The integers written on the board after the operation are 5, 6, 11.

Double 11: The integers written on the board after the operation are 5, 3, 22.

If he chooses 3., the sum of the integers written on the board afterwards is 5 + 3 + 22 = 30, which is the largest among 1. through 3.

Sample Input 2

3 3 4
2

Sample Output 2

22

E869120 can perform the operation twice. The sum of the integers eventually written on the blackboard is maximized as follows:

First, double 4. The integers written on the board are now 3, 3, 8.

Next, double 8. The integers written on the board are now 3, 3, 16.

Then, the sum of the integers eventually written on the blackboard is 3 + 3 + 16 = 22.

Solution in Common Lisp (SBCL 1.1.14) (judge verdict: Accepted)

(defun split-string (str)                                                                     
  (let ((string-position (position #\Space str)))
    (cond
      ((null string-position) (list str))
      (t (cons (subseq str 0 string-position) (split-string (subseq str (1+ string-position)))))
      )))

(defun readline-to-list ()
  (let ((str (read-line *standard-input* nil)))
    (cond
      ((null str) nil)
      ((string= str "") nil)
      (t (cons str (readline-to-list))))))


(defun MaximumSum (k a b c)
  (let* ((sortedList (sort (list (parse-integer c) (parse-integer b) (parse-integer a)) #'>)) (m (car sortedList)))
    (dotimes (i (parse-integer k)) (setf m (* 2 m)))
     (format t "~A~%" (+ m (cadr sortedList) (caddr sortedList)))))

(let* ((r-list (readline-to-list))
       (tmp (split-string (car r-list)))
       (real-list (cons (cadr r-list) tmp)))
  (apply #'MaximumSum real-list))