var a,x:array[0..1000] of integer;
    i,n,k:integer;

procedure afisare;
begin
for i:=1 to k do
write(a[x[i]],' ');
writeln;
end;

procedure back(t:integer);
var i:integer;
begin
for i:=x[t-1]+1 to n-k+t do
begin
x[t]:=i;
if t=k then afisare
else back(k+1);
end;
end;

begin
assign(input,'permutari.in');reset(input);
assign(output,'permutari.out');rewrite(output);
readln(n,k);
for i:=1 to n do read(a[i]);
back(1);
end.