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');
assign(output,'combinari.out');
reset(input);
rewrite(output);
readln(n,k);
back(0);
close(input);
close(output);
end.