var x:array[1..100]of integer;
    i,n,k,j:integer;
    b:boolean;
    f,g:text;
begin
assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
read(f,n,k);
i:=1;x[i]:=0;
repeat
while x[i]<n do begin
b:=true;
x[i]:=x[i]+1;
if i>1 then
for j:=1 to i-1 do
if x[i]<=x[j] then b:=false;
if b then
if i=k then begin
for j:=1 to k do write(g,x[j],' ');
writeln(g);
end else begin inc(i);x[i]:=0; end;
end;
dec(i);
until i=0;
close(f);close(g);
end.