var n,k:integer;
    a:array[0..19] of integer;

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

      end;

begin
assign(input,'combinari.in');
assign(output,'combinari.out');
reset(input);
rewrite(output);
   read(n); readln(k);

   back(0);


close(input);
close(output);
{Totusi este trist in lume}
end.