n, m = gets.split.map(&:to_i)

ans = 0

n.times.map { gets.split.map(&:to_i) }
  .sort_by! { |a, b| a }
  .each do |a, b|
  if b >= m
    ans += a * m
    break
  end

  ans += a * b
  m -= b
end

puts ans
