N,M=gets.split.map(&:to_i)
as=gets.split.map(&:to_i).sort
M.times do
    e=as.pop/2
    em=e-1
    idx=as.bsearch_index{|n|em<n}
    idx=(idx.nil? ? 0 : idx)
    as=as[0..idx] + [e] + as[idx+1..-1] 
end
p as.inject(:+)
