uses crt;
var n,c,i,j,b,p:integer;
    x,a,a1,k1,k:array[1..1000] of integer;
begin
clrscr;
read(n,c);
b:=1;
for i:=1 to n do begin read(x[i]); k[i]:=0; end;
for i:=1 to n do
if i=1 then begin a[i]:=x[i]; inc(k[i]); end else
begin
p:=0;
for j:=1 to b do if a[j]=x[i] then begin inc(k[j]); p:=1 end;
if p=0 then begin a[j+1]:=x[i]; inc(b); inc(k[j+1]) end;
end;
p:=1;
for i:=n downto 1 do
 for j:=1 to b do if k[j]=i then begin a1[p]:=a[j]; k1[p]:=k[j]; inc(p) end;
for i:=1 to b do
        for j:=1 to k1[i] do
        write(a1[i]);
readkey
end.