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;

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 v[p]>m then begin

                 p:=p-1;
                 end
            else if p<n then begin p:=p+1; v[p]:=v[p-1]; end
                        else tipar(p);
 end;
close(g);
end.