var v:array[0..20] of longint;
   n,k:longint;
   f,g:text;
  
procedure back(x:longint);
var i:longint;
begin
if (x=k) then
        begin
        for i:=1 to k do
                write(g,v[i],' ');
        writeln(g);
        end
else
        begin
        for i:=v[x]+1 to n do
                begin
                v[x+1]:=i;
                back(x+1);
                end;
        end;
end;

begin

assign(f,'combinari.in');reset(f);
assign(g,'combinari.out');rewrite(g);
readln(f,n,k);
back(0);  
close(f);close(g);
end.