type tablou=array [1..18]of 0..19 ;
var t:tablou;
    i,j,k,m,n,p:integer;
    f,g:text;
    b,boo,b1:boolean;
begin
assign(f,'combinari.in');
assign(g,'combinari.out');
reset(f);
rewrite(g);
read(f,n,m);
k:=1;
t[k]:=0;
  while k>0 do
     begin
      repeat
        if (t[k]<n)and(k<=m) then begin
                      b:=true;
                      t[k]:=t[k]+1;
                     end
           else b:=false;
        if b then begin
           boo:=true;
           for i:=1 to k-1 do
            if t[i]=t[k] then boo:=false;
           end;
     until (b and boo) or not(b);
     if b then
              if k=m then begin
                          i:=1;
                          b1:=true;
                          while (i<=m-1)and b1 do
                           begin
                            b1:=t[i]<t[i+1];
                            i:=i+1;
                           end;
                          if b1 then begin
                                        for i:=1 to m do
                                           write(g,t[i],' ');
                                        writeln(g);
                                     end;
                          end
              else begin
                 k:=k+1;
                 t[k]:=0;
                 end
     else k:=k-1;
  end;
close(f);
close(g);
end.