program sandokan;
var f,g:text;
    n,k:2..5000;
    i,j,o,t:0..5000;
    max:0..2000000000;
    x,v:array[1..5001] of 0..2000000000;
    ok:boolean;



begin
assign(f,'sandokan.in'); reset(f);
assign(g,'sandokan.out'); rewrite(g);

readln(f,n,k);
for i:=1 to n do
   read(f,x[i]);
t:=0;
if k>n then for i:=1 to n do
               write(g,x[i],' ')
       else begin
            i:=1;
            v[1]:=x[1];
            repeat
               ok:=false;
               for j:=2 to n do
                  begin
                  for o:=2 to i do
                     if x[j]=v[o] then ok:=true;
                  if not ok then begin
                              i:=i+1;
                              v[i]:=x[j];
                              end;
                  end;
            until i=k;
            max:=v[1];
            for i:=1 to k do
               if max>v[i] then max:=v[i];
            for i:=1 to k do
               for j:=1 to n do
                  if (x[j]=v[i]) and (x[j]<>max) then begin
                                                      t:=i;
                                                      for o:=i to n do
                                                         x[i]:=x[i+1];
                                                      n:=n-1;
                                                      end;
            for i:=1 to n do
               write(g,x[i],' ');
            end;
close(f);
close(g);
end.