cnt=0
ans=0
n,m=gets.split.map &:to_i
(1..n).map{gets.split.map &:to_i}.sort{|s,t|s[0]<=>t[0]}.each{|a,b|
    if cnt + b >= m
        p ans + a*(m-cnt)
    else
        cnt = cnt + b
        ans = ans + a*b
    end
}