program energ;
var  n,w,i,j,min,s:longint;
     c,e:array[1..1001]of longint;  r,t:text;
       g:array[1..10005]of longint;
begin
   assign(r,'energii.in');reset(r);
   assign(t,'energii.out');rewrite(t);
    readln(r,n);readln(r,w);
     for i:=1 to n do readln(r,e[i],c[i]);
    for i:=1 to 2*w do g[i]:=10000000;
     for i:=1 to n do
      for j:=2*w downto 1 do
       if j>=e[i] then
        if g[j-e[i]]+c[i]<g[j] then g[j]:=g[j-e[i]]+c[i];
        min:=10000000;
        for i:=w to 2*w do
        if min>g[i] then min:=g[i];
        if min=10000000then write(t,-1)
                   else write(t,min);
        close(r);close(t);

       end.