n, m = gets.chomp.split.map(&:to_i)
arr = []
n.times{arr << gets.chomp.split.map(&:to_i)}
arr.sort_by!{|a, b| a}
sum = 0
arr.each{|a, b|
    c = [b, m].min
    sum += a * c
    m -= c
    break if c == 0
}
puts sum