var
 v:array[1..20] of integer;
 i,n,p,m:integer;
 f,g:text;
procedure tipar(k:integer);
begin
 for i:=1 to k do
  write(g,v[i],' ');
 writeln(g);
end;

function valid(k:integer):boolean;
begin
 valid:=true;
 for i:=1 to k-1 do
  if (v[i]=v[k]) or (v[i]>v[k]) then valid:=false;
end;

begin
assign(f,'combinari.in');assign(g,'combinari.out');
reset(f);
read(f,m,n);
close(f);
rewrite(g);
p:=1;
while p>0 do
 begin
 v[p]:=v[p]+1;
 if valid(p) then
  if v[p]>m then begin
                 v[p]:=0;
                 p:=p-1;
                 end
            else if p<n then p:=p+1
                        else tipar(p);
 end;
close(g);
end.