type sir=array[1..18]of shortint;
var x:sir;
    n,k,i:shortint;
    f,g:text;
function init(m:shortint):integer;
begin if m=1 then init:=0
      else init:=x[m-1]
end;
function urm(m:integer):boolean;
begin urm:=x[m]<n;
      x[m]:=x[m]+1
end;
function ok(m:shortint):boolean;
begin
     ok:=true;
     for i:=1 to m-1 do
         if x[m]=x[i] then ok:=false;
end;
procedure tip(m:shortint);
begin
     for i:=1 to k do write(g,x[i],' ');
     writeln(g);
end;
procedure back(m:shortint);
begin if m=k+1 then tip(m)
      else begin
           x[m]:=init(m);
           while urm(m)do
                 if ok(m)then back(m+1);
      end
end;
begin assign(f,'combinari.in');reset(f);
      assign(g,'combinari.out');rewrite(g);
      read(f,n,k);
      back(1);
      close(g)
end.