Program sortarea_c;
var f,g:text;
    i,n,aux:longint;
    a:array[0..500000] of longint;
begin
assign(f,'algsort.in'); reset(f);
assign(g,'algsort.out'); rewrite(g);
readln (f,n);
for i:=1 to n do begin read (f,aux);
                       inc(a[aux]);
				 end;
for i:=1 to n do if (a[i]<>0) then write (g,a[i],' ');
close(f);
close(g);
end.