var a:array[1..1000] of integer;
a1:array[1..120000] of longint;

n,i,j,max:integer;
c:longint;
begin
readln(n,c);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to c do
begin
a1[i]:=0;
end;
for i:=1 to c do
        begin
        for j:=1 to n do
        begin
        if a[j]=i then a1[i]:=a1[i]+1;
        end;
        end;
for i:=1 to c do
begin
if a1[i]<>0 then
        begin
        for j:=1 to a1[i] do write(i);
        end;
end;
readln;
end.