program combinari;
type
tabel=array[0..19] of integer;
var
t:tabel;
n,k,i,j:longint;
f1,f2:text;
begin
assign (f1,'combinari.in');
assign (f2,'combinari.out');
reset (f1);
rewrite (f2);
readln (f1,n,k);
for i:=1 to k do t[i]:=i;
i:=1;
while i>0 do begin
for j:=1 to k do write (f2,t[j],' ');
writeln (f2);
i:=k;
while (i>0) and (t[i]=n-k+i) do i:=i-1;
t[i]:=t[i]+1;
if i=0 then break;
for i:=i+1 to k do t[i]:=t[i-1]+1;
end;
close (f1);
close (f2);
end.