program combinari;
var f,g:text; i,n,k:byte; st:array[1..18] of byte;

procedure afisare;
begin
For i:=1 to k do Write(g,st[i],' ');
Writeln(g);
end;

procedure comb(p:byte);
var i:byte;
begin
For i:=1 to n do
 begin
 st[p]:=i;
 If (p>1)and(st[p]<=st[p-1]) then
  If p=k then afisare
         else comb(p+1);
 end;
end;
begin
Assign(f,'combinari.in'); Reset(f);
Assign(g,'combinari.out');Rewrite(g);
Readln(f,n,k); Close(f);
comb(1); Close(g);
end.