var f,g:text;
    n,p:byte;
    x:array[1..18] of byte;

procedure bkt;
var k,i:byte;
begin
 k:=1; x[k]:=0;
 while k>0 do
  if x[k]<n then
  begin
   inc(x[k]);
   if k=p then
   begin
    for i:=1 to p do
     write (g,x[i],' ');
    writeln (g);
   end
   else
   begin
    inc(k); x[k]:=x[k-1];
   end;
  end
  else
   dec(k);
end;

begin
 assign (f,'combinari.in'); reset (f);
 assign (g,'combinari.out'); rewrite (g);
 read (f,n,p);
 bkt;
 close (f); close (g);
end.