program combinari;

var f,g:text;
    n,k,p:integer;
    x:array [1..100] of integer;


procedure tipar;
   var i:integer;
   begin
      for i:=1 to p do
         write(g,x[i],' ');
         writeln(g);
   end;


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

   k:=1;
   x[k]:=0;
   while k>0 do
        if x[k]<n then
                begin
                x[k]:=x[k]+1;
                if k=p then
                           tipar
                       else
                          begin
                             k:=k+1;
                             x[k]:=x[k-1];
                          end;
                 end
                 else
                    k:=k-1;

   close(f);
   close(g);
end.