program sort;

type val_rec = record
    n : longint;
    c : integer;
end;

var n, i, j, d, f, m : integer;
    c : longint;
    s : array[1..1000] of longint;
    t : array[1..1000] of val_rec;

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

    d := 0;

    for i := 1 to n do begin
        f := 0;
        for j := 1 to d do
            if s[i] = t[j].n then
                f := j;

        if f = 0 then begin
            inc(d);
            t[d].n := s[i];
            t[d].c := 1;
        end
        else
            inc(t[f].c);
    end;


    for i := 1 to d do begin
        m := 1;
        for j := 2 to d do
            if t[j].c > t[m].c then
                m := j;
        for j := 1 to t[m].c do
            write(t[m].n, ' ');
        t[m].c := 0;
    end;
end.