program combinari;
type tabel=array[0..18] of longint;
var t,fr:tabel;
    n,k:longint;
    f1,f2:text;
procedure back(x:longint);
var i:longint;
begin
if x=k+1 then begin
for i:=1 to k do write (f2,t[i],' ');
writeln (f2);
end else begin
for i:=t[x-1]+1 to n do
if fr[i]=0 then begin
t[x]:=i; fr[i]:=1; back(x+1); fr[i]:=0;
end; end;
end;
begin
assign (f1,'combinari.in');
assign (f2,'combinari.out');
reset (f1);
rewrite (f2);
readln (f1,n,k);
back(1);
close (f1);
close (f2);
end.