var n,l:integer;
    f:text;
    st:array[1..18] of integer;
procedure tipar(k:integer);
var i:integer;
begin
     for i:=1 to k  do write(f,st[i],' ');
     writeln(f);
end;
function ev(k:integer):boolean;
var i:integer;
begin
     ev:=true;
     for i:=1 to k-1 do
          if st[k]<=st[i] then
          begin
               ev:=false;
               exit;
          end;
end;
procedure gen(K:integer);
var i:integer;
begin
     if k=l+1 then tipar(k-1)
              else
               for i:=1 to n do
               begin
                    st[k]:=i;
                    if ev(k) then gen(k+1);
               end;
end;
begin
     assign(f,'combinari.in'); reset(f);
     readln(f,n,l);
     close(f);
     assign(f,'combinari.out'); rewrite(f);
     gen(1);
     close(f);
end.