var s:array[0..20] of longint;
    n,k:longint;
 
procedure back(l:longint);
var i:longint;
begin
if (l=k) then
       begin
        for i:=1 to k do
                write(s[i],' ');
        writeln;
        end
else
      begin
       for i:=s[l]+1 to n do
               begin
               s[l+1]:=i;
               back(l+1);
               end;
        end;
end;
 
begin
assign(input,'combinari.in');reset(input);
assign(output,'combinari.out');rewrite(output);
readln(n,k);
back(0);
close(input);close(output);
end.