program gggg;
var a,b:array[1..200] of longint;
i,j,t,n,g,gg,s:longint;
f:text;

begin
assign(f,'ghiozdan.in');
reset(f);
read(f,n,g);
gg:=g;
for i:=1 to n do
begin
read(f,t);
inc(a[t]);
end;
close(f);
j:=201;
repeat
dec(j);
until (a[j]<>0) and (j<=g);
repeat
if (a[j]<>0) and (j<=g) then begin
b[j]:=g div j;
if a[j]<b[j] then b[j]:=a[j];
g:=g -j*b[j];
end;
dec(j);
until (g=0) or (j=0);
s:=0;
for i:=1 to 200 do
s:=s+b[i];
assign(f,'ghiozdan.out');
rewrite(f);
writeln(f,gg-g,' ',s);
for i:=1 to 200 do
for j:=1 to b[i] do
writeln(f,i);
close(f);
end.