(defn input []
  (list
    (->> (clojure.string/split (read-line) #"\s")
      (map #(Integer/parseInt %)))
    (-> (read-line)
      Integer/parseInt)))

(defn MaximumSum [[Ns K]]
    (int
      (#(+
          (* (Math/pow 2 K) (last %))
          (first %)
          (second %))
       (sort Ns))))

(-> (input)
  MaximumSum
  println)