Program combinari;
var a : array[0..1000] of integer;
    n,k : integer;
    fin,fout : text;

Procedure back(l : integer);
var i : integer;

begin
if (l=k) then begin for i:=1 to l do write(fout,a[i],' '); writeln(fout); end
else
for i:=a[l]+1 to n do
begin a[l+1]:=i; back(l+1);  end;
end;





begin
assign(fin,'combinari.in');   assign(fout,'combinari.out');
reset(fin);                   rewrite(fout);
readln(fin,n,k);
close(fin);
back(0);
writeln;
close(fout);
end.