var x:array[0..10000] of longint;
    k,n:longint;
    t:text;

procedure rec(k,m,min,max:longint);
//k-nr pozitia curenta
//m-nr de pozitii
//min-val curenta
//max-val maxima
var i:longint;
begin
if k>m then
  begin
    for i:=1 to m do write(t,x[i],' ');
    writeln(t);;
  end
else
   for i:=min+1 to max do
     begin
       x[k]:=i;
       rec(k+1,m,i,max);
     end;
end;

begin
assign(t,'combinari.in'); reset(t);
readln(t,n,k);
close(t);
assign(t,'combinari.out'); rewrite(t);
rec(1,k,0,n);
close(t);


end.