var f,g:text;
    n,y,c,x,l,nr,i,j,s:integer;
    a,b,d,e:array[1..1000] of integer;
    ok,ok1:boolean;
begin
     assign(f,'shop.in'); reset(f);
     assign(g,'shop.out'); rewrite(g);
     readln(f,n,c,l);
     for i:=1 to n do readln(f,a[i],b[i]);
     y:=1;
     for i:=1 to n do
     begin
          x:=1;
          for j:=1 to b[i] do x:=x*c;
          for j:=1 to b[i] do
          begin
               d[y]:=x;
               inc(y);
          end;
     end;
     ok:=true;
     while ok and (ok1=false) do
     begin
          i:=y;
          while (e[i]=1) and (i>0) do
          begin
               e[i]:=0;
               i:=i-1;
          end;
          nr:=0;
          if i=0 then ok:=false
          else
          begin
               e[i]:=1;
               writeln;
               for i:=1 to y do
                   if e[i]=1 then
                   begin
                        S:=S+d[i];
                        inc(nr);
                   end;
          end;
          if S=L then ok1:=true;
     end;
     write(g,nr);
     nr:=0;
     for i:=1 to n do
     begin
          x:=0;                  nr:=0;
          for j:=1+x to b[i] do
          if e[j]=0 then inc(nr);
          write(g,nr,' ');
          x:=x+b[i];
     end;
end.