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