var n,k,i,j,t:longint;
    a:array[1..10000] of longint;
begin
  read(n,k);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=1 to n-i do
      if a[j]>a[j+1] then
      begin
        t:=a[j];
        a[j]:=a[j+1];
        a[j+1]:=t;
      end;
  for i:=1 to k-1 do
    write(a[i],' ');
  writeln(a[k]);
end.
/**************************************************************
	Problem: 2223
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/