N, K = gets.split.map &:to_i
A = $<.map &:to_i
A.sort!

$dp = {}
f = ->i{
  $dp[i] ||= if i < 0
    0
  else
    (-1...i).map{|j|
      A[i] + f[j]
    }.select{|n|
      n <= K
    }.max || 0
  end
}

f[N-1]
p$dp.values.max