program combinari;
var f,g:text;
    v:array[0..20]of byte;
    n,k,i,j:longint;
begin
assign(f,'combinari.in');
assign(g,'combinari.out');
reset(f);
rewrite(g);
read(f,n,k);
for i:=0 to k do v[i]:=i;
while true do
  begin
    for i:=1 to k do write(g,v[i],' ');
    writeln(g);
    i:=k;
    while (v[i]=n-k+i)and(i>0)do dec(i);
    if (i=0)then break;
    inc(v[i]);
    for j:=i+1 to k do
      v[j]:=v[j-1]+1;
  end;
close(f);
close(g);
end.