program sort;
var a,b,c,d,e,f,g:longint;
arr1:array[1..1000] of longint;
arr2:array[1..1000] of longint;
begin
readln(a,b);


for c:=1 to a do arr2[c]:=0; e:=1;
for c:=1 to a do begin
f:=0;
read(b);
for d:=1 to a do begin
if arr1[d]=b then begin
f:=1; arr2[d]:=arr2[d]+1;
end;
end;
if f=0 then begin
arr1[e]:=b; arr2[e]:=arr2[e]+1; e:=e+1;
end; end;

for c:=1 to a do begin
for d:=c+1 to a do begin
if arr2[d]>arr2[c] then begin
g:=arr2[d]; arr2[d]:=arr2[c]; arr2[c]:=g;
g:=arr1[d]; arr1[d]:=arr1[c]; arr1[c]:=g;
end; end; end;

a:=1;
while arr2[a]>0 do begin
for b:=1 to arr2[a] do write(arr1[a],' ');
a:=a+1;
end;
end.