var a:array[1..22] of integer;
    n,k:integer;
    f,g:text;

function test(x,y:integer):integer;
 var i:integer;
  begin
   if x<=y then test:=1
           else test:=0;
  end;


function inser(poz,p:integer):integer;
 var i:integer;
  begin
   a[poz]:=p;
   if poz=k then begin
                  for i:=1 to k do write(g,a[i],' ');
                  writeln(g);
                 end
            else for i:=1 to n do
              if(test(i,a[poz]))=0 then inser(poz+1,i);
 end;
function backtrack:integer;
 var i:integer;
 begin
 for i:=1 to n do inser(1,i);
 end;
begin
 assign(f,'combinari.in');reset(f);
 readln(f,n,k);
 close(f);
 assign(g,'combinari.out');rewrite(g);
 backtrack;
 close(g);
end.