var n,j,i,c,r,b:integer;
    a:array[1..1000]of integer;

begin
readln(n,c);
for i:=1 to n do readln(a[i]);

for i:=1 to n do
for j:=i+1 to n do if a[j]>a[i] then begin b:=a[i];a[i]:=a[j];a[j]:=b;end;


for i:=1 to n do write(a[i],' ');




readln;
end.